Supprimer raccourci bureau [Résolu]

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

Merci raizes 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 69 internautes ce mois-ci

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