Supprimer raccourci bureau [Résolu]

Messages postés
8
Date d'inscription
vendredi 27 mars 2009
Dernière intervention
9 avril 2009
- - Dernière réponse : raizes
Messages postés
8
Date d'inscription
vendredi 27 mars 2009
Dernière intervention
9 avril 2009
- 9 avril 2009 à 12:12
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.
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
8
Date d'inscription
vendredi 27 mars 2009
Dernière intervention
9 avril 2009
3
Merci
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.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 90 internautes nous ont dit merci ce mois-ci

Commenter la réponse de raizes
Messages postés
8
Date d'inscription
vendredi 27 mars 2009
Dernière intervention
9 avril 2009
0
Merci
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
Commenter la réponse de raizes

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.