Script ok sous XP mais pas sous windows 7

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:

---

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

---

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

Code:

---

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 :google2: