Discussion :

[AvOOK]

Bonjour à tous,

Via une gpo qui s'exectute a l'ouverture de session windows (XP) j'ai creer un script vbs qui efface un raccourci sur le bureau de l'utilisateur.

vois ci mon script :

Code :

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

1
2
3
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set net= CreateObject("Wscript.network")
objFSO.DeleteFile "c:\Documents and Settings\MON NOM\bureau\NOM DU RACCOURCI.lnk"

Le probleme est que je voudrai mettre a la place de mon nom, 'une variable" qui permettrai que le script s'execute pour tout les utilisateurs. J'ai un parc de 500 users et j''aimerai ne pas avoir a creer un scripts pour chaque utilisateurs

Si vous pouvez m'aider...merci d'avance.

[Flamby38]

Il y a 2 possibilités, soit récupérer le username via un bout de code puis l'inserer dans ta chaine de caractere :

Code :

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

1
2
3
4
 
Set WshNet = CreateObject("WScript.Network") 
User = WshNet.Username
strChemin = "c:\Documents and Settings\" & User & "\bureau\NOM DU RACCOURCI.lnk"

ou alors utiliser la variable %username% de windows :

Code :

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

1
2
 
objFSO.DeleteFile "c:\Documents and Settings\%username%\bureau\NOM DU RACCOURCI.lnk"

[sokai]

Tu px même faire:

Code :

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

1
2
 
objFSO.DeleteFile "%USERPROFILE%\bureau\NOM DU RACCOURCI.lnk"

J'espère que ca t'aidera !

A+

[AvOOK]

Aucun des codes que vous m'avez proposé ne fonctionnent

[pitchalov]

salut.

Le premier proposé devrait fonctionner :

Code :

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

1
2
3
4
5
Set WshNet = CreateObject("WScript.Network") 
Set objFSO = CreateObject("Scripting.FileSystemObject")
User = WshNet.Username
strChemin = "c:\Documents and Settings\" & User & "\bureau\NOM DU RACCOURCI.lnk"
objFSO.DeleteFile strChemin

Autre possibilité :

Code :

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

1
2
3
4
5
Set objFSO = CreateObject("Scripting.FileSystemObject")
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
strChemin = strDesktop & "\NOM DU RACCOURCI.lnk"
objFSO.DeleteFile strChemin

ça marche comme ça?

[AvOOK]

Je test de suite je te dit ca

En tout cas ...merci !

[AvOOK]

Ca a l'air de bien fonctionner merci bcp pour l'aide.