Suppression raccourci sur le bureau

Dans le message :4D048DE6-8B0B-49A7-963F-09C98399104B@microsoft.com,
berthelagrandepatte <berthelagrandepatte@discussions.microsoft.com> a pris
la peine d'écrire ce qui suit :

Bonjour

Pour les utilisateurs de portables, il faut que certains raccourcis
sur le bureau disparaissent lorsqu'ils ne sont pas connectés. Hors,
je n'arrive pas à trouver la commande qui permette cela en vbscript.

Est ce possible de supprimer les raccourcis en vbscript ?

Directement, en utilisant la classe "WshShortCut", la réponse est NON car la
méthode "Delete" n'existe pas !
(seule "Save" existe)

Mais ce n'est pas un problème, car un simple batch avec une commande "del"
suffit :
(mais il faut connaitre le libellé exact du raccourci, qui peut différer de
celui du fichier)

del %userprofile%bureaulibellé-du-raccourci-à-flinguer.lnk
ou
del %allusersprofile%bureaulibellé-du-raccourci-à-flinguer.lnk

NB : tout raccourci non Internet est un fichier à extension ".lnk"
Cette extension n'apparait JAMAIS dans l'explorateur, mais on peut très bien
l'utiliser pour adresser un fichier raccourci

PS: les raccourcis Internet ont une extension ".url"
La méthode est la même pour les supprimer.

--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr

Dans le message :4D048DE6-8B0B-49A7-963F-09C98399104B@microsoft.com,
berthelagrandepatte <berthelagrandepatte@discussions.microsoft.com> a pris
la peine d'écrire ce qui suit :

Bonjour

Pour les utilisateurs de portables, il faut que certains raccourcis
sur le bureau disparaissent lorsqu'ils ne sont pas connectés. Hors,
je n'arrive pas à trouver la commande qui permette cela en vbscript.

Est ce possible de supprimer les raccourcis en vbscript ?

Directement, en utilisant la classe "WshShortCut", la réponse est NON car la
méthode "Delete" n'existe pas !
(seule "Save" existe)

Mais ce n'est pas un problème, car un simple batch avec une commande "del"
suffit :
(mais il faut connaitre le libellé exact du raccourci, qui peut différer de
celui du fichier)

del %userprofile%bureaulibellé-du-raccourci-à-flinguer.lnk
ou
del %allusersprofile%bureaulibellé-du-raccourci-à-flinguer.lnk

NB : tout raccourci non Internet est un fichier à extension ".lnk"
Cette extension n'apparait JAMAIS dans l'explorateur, mais on peut très bien
l'utiliser pour adresser un fichier raccourci

PS: les raccourcis Internet ont une extension ".url"
La méthode est la même pour les supprimer.

--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr

Merci pour cette réponse. A bientot

On Error Resume Next
Set wshNetwork = CreateObject("WScript.Network")
machines_non_geree_par_le_script=ucase("xxxxxxx-zzzzzzzz")
if InStr(machines_non_geree_par_le_script, ucase(wshNetwork.ComputerName))
then
'
' On sort directement du script
'
WScript.Quit
end if
Dim FSO
Set Shell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
' La liste des folder:
' "AppData" application data
' "Cookies" cookies
' "Desktop" bureau
' "Favorites" favoris
' "NetHood" voisinnage réseau
' "Personal" mes documents
' "PrintHood" voisinage d'impression
' "Recent" Recent
' "SendTo" envoyer vers(dossier des racourcis pour le menu contextuel)
' "Start Menu" menu démarer
' "Templates" modèles
' "Programs" program files
' "Startup" dossier de démarage
' "Local Settings" idem
' "Local AppData" idem
' "Cache" cache
' "History" historique
' "My Pictures" mes images
' "Fonts" polices
' "My Music" ma musique
' "CD Burning" gravure cd
' "My Video" mes vidés
' "Administrative Tools" outils d'administration
Path = Shell.SpecialFolders("Desktop")
FSO.DeleteFile "c:Documents and SettingsAll UsersBureauAdobe Reader
7.0.lnk"
FSO.DeleteFile Path & "PixiRoute.lnk"
FSO.DeleteFile Path & "Solon.lnk"
FSO.DeleteFile Path & "Meteoplus.lnk"
FSO.DeleteFile Path & "Budgets.lnk"
FSO.DeleteFile Path & "Arcole.lnk"
FSO.DeleteFile Path & "NetMeeting.lnk"
FSO.DeleteFile Path & "Gestion Clientèle.lnk"
FSO.DeleteFile Path & "Facturation Clients [Argus Cold].lnk"
FSO.DeleteFile Path & "Opérateurs.lnk"
FSO.DeleteFile Path & "Operateurs.lnk"
FSO.DeleteFile Path & "Opérateurs PC.lnk"
FSO.DeleteFile Path & "SP Viry.lnk"
FSO.DeleteFile Path & "SP Cluses.lnk"
FSO.DeleteFile Path & "RC Cluses.lnk"
FSO.DeleteFile Path & "RC Bellegarde.lnk"
FSO.DeleteFile Path & "RC Bonneville.lnk"
FSO.DeleteFile Path & "RC Eloise.lnk"
FSO.DeleteFile Path & "Application Maintenance.lnk"
FSO.DeleteFile Path & "Demande d'intervention Maintenance*.lnk"
'
'Programmes
'
Path = Shell.SpecialFolders("Programs")
FSO.DeleteFile Path & "Outlook Express.lnk"
'
'menu démarer
Path = Shell.SpecialFolders("Start Menu")
FSO.DeleteFile Path & "Outlook Express.lnk"
'
' Déconnecte les lecteurs réseau
Set Drive = WSHNetwork.EnumNetworkDrives
If Drive.Count <> 0 Then
For i=0 To Drive.Count - 1 Step 2
If Drive(i)<>" " Then
If Drive(i)<> HomeDrive Then
'WshNetwork.RemoveNetworkDrive Drive(i) , TRUE
End If
End If
Next
End If


script à mettre dans la déconexion