Discussion :

[Invité]

bonjour,
ce petit script fonctionne sous Windows XP, mais pas sous Windows 7
pouvez-vous m'expliquer ce qui change, hormis les chemins qui ne sont pas les mémes?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Set objShell1 = CreateObject("WScript.Shell")
 
Set objFSO1 = CreateObject("Scripting.FileSystemObject")
 
IF objFSO1.FileExists("C:\Documents and Settings\All Users\Desktop" & "\OCM.lnk") THEN
 
objFSO1.DeleteFile ("C:\Documents and Settings\All Users\Desktop" & "\OCM.lnk")
 
ENd IF

[omen999]

bonjour,
ma boule de cristal m'incline à penser que c'est cette ligne qui foire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objFSO1.DeleteFile ("C:\Documents and Settings\All Users\Desktop" & "\OCM.lnk")

sous win7, tous les répertoires "systèmes" sont protégés en écriture
voir ici

ou
les mots clés runas vbscript administrateur avec