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