Supprimer raccourci bureau

[Résolu]
Signaler
Messages postés
8
Date d'inscription
vendredi 27 mars 2009
Statut
Membre
Dernière intervention
9 avril 2009
-
Messages postés
8
Date d'inscription
vendredi 27 mars 2009
Statut
Membre
Dernière intervention
9 avril 2009
-
Bonjour à tous,

Afin de créer un raccourci, nommé WGPAOBF32, sur le bureau de toutes les machines de l'entreprise, on a mis un petit programme en .vbs dans le sysvol d'un des serveurs.

Voici le script :

Dim Shell, DesktopPath, shrtCut
Set Shell = CreateObject ("WScript.Shell")
DesktopPath = Shell.SpecialFolders ("Desktop")
Set shrtCut = Shell.CreateShortcut (DesktopPath & "\WGPAOBF32.ink")
shrtCut.TargetPath = "C:\WGPAOBF\wgpaobf32.exe"
shrtCut.Save

Il fonctionne bien mais nous aimerions, afin de faire des tests pour une nouvelle appli, supprimer ce raccourci sur toutes les machines.
Donc l'inverse en fait.

Est-ce que quelqu'un aurait une idée du script à effectuer ?

Merci d'avance pour votre aide.

2 réponses

Messages postés
8
Date d'inscription
vendredi 27 mars 2009
Statut
Membre
Dernière intervention
9 avril 2009

Non bah c'est bon j'ai trouvé.

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set Shell = CreateObject("WScript.Shell")

DesktopPath = Shell.SpecialFolders("Desktop")

objFSO.DeleteFile (DesktopPath & "\WGPAOBF32.lnk")

Ca fonctionne très bien, mais si quelqu'un a une méthode plus simple et souhaite m'en faire part qu'il n'hésite pas.
Messages postés
8
Date d'inscription
vendredi 27 mars 2009
Statut
Membre
Dernière intervention
9 avril 2009

J'ai essayé ce script juste pour ma machine pour tester, mais ça ne fonctionne pas.

Private Sub Command1_Click()

Dim WSHShell

Set WSHShell = CreateObject("Wscript.Shell")

Dim BureauPath

BureauPath = WSHShell.SpecialFolders("Desktop")

Kill BureauPath & "\WGPAOBF32.lnk"

set WSHShell = nothing

End Sub