Index
Mon CV 
Mon Labo
Web 
Bureautique 
Graphisme 
Administration réseau 
Contacts
Livre d'or 
Voici un code pour pouvoir écrire des informations sur le fond d'écran de l'utilisateur (en TSE) : Set Sh = CreateObject("WScript.Shell")
url1 = "\\[SERVEUR]\[REPERTOIRE]\[IMAGE].jpg" 'IMAGE VIERGE
url2 = "C:\Documents and Settings\%USERNAME%\Wallpaper.bmp" 'EMPLACEMENT DE DESTINATION
texte = "Connexion : "&Hour(Now)& "H"& Minute(Now)& " \nSession : "&Sh.ExpandEnvironmentStrings("%SESSIONNAME%")& " \nServeur : "&Serveur&" \nClient : "&clientname&" "
StrCommand = "cmd /C c:\ImageMagick\convert -font c:/windows/fonts/arial.ttf """&url1&""" -pointsize 12 -fill black -gravity SouthEast -annotate 0 """&texte&""" """&url2&""""
Sh.run StrCommand, 0, true
|
