Bonjour j'utilise ce script fait en vbs pour connecter un lecteur réseau :

Set objNetwork = Wscript.CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "z:", "\\PC\Partage1"

Pour supprimer un lecteur réseaux j'ai tester en faisant comme cela :

Set objNetwork = Wscript.CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "z:", ""

Set objNetwork = Wscript.CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "z:", null

mais sans grand resultat :(

Est ce que quelqu'un aurais la solution à ce problème ???


Merci. ++ Nexus

Chaque problème a sa solution. S'il n'y a pas de solution c'est qu'il n'y a pas de problème.

Bonjour,

Merci de ta fonction.

j'ai donc écrit cela :

Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.RemoveNetworkDrive "X:"


Ca déconnecte bien le lecteur X: car après quand je veut retourner dessus il me demande bien un mot de passe.
Mais cela n'enlève pas l'icone du poste d etravail je suis obligé de faire souris droite puis se déconnecter pour que l'icone disparaissent.

Y aurait-il une fonction qui permettrais d'enlever l'icone du bureau ???

Merci. ++ Nexus

Chaque problème a sa solution. S'il n'y a pas de solution c'est qu'il n'y a pas de problème.

t'as essayé avec bUpdateProfil = true ?

je met cette ligne a la fin des lignes de code ?


Merci. ++ Nexus

Chaque problème a sa solution. S'il n'y a pas de solution c'est qu'il n'y a pas de problème.

Bonsoir,
En regardant la doc, je viens de tester la création du raccourci icône. Ca marche.
Maintenant, il suffit de trouver la méthode pour supprimer ce raccourci !!!
Ci-dessous, création du raccourci:
         set WshShell = WScript.CreateObject("WScript.Shell")
         strDesktop = WshShell.SpecialFolders("Desktop")
         set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk")
         oShellLink.TargetPath = WScript.ScriptFullName
         oShellLink.WindowStyle = 1
         oShellLink.Hotkey = "CTRL+SHIFT+F"
         oShellLink.IconLocation = "notepad.exe, 0"
         oShellLink.Description = "Shortcut Script"
         oShellLink.WorkingDirectory = strDesktop
         oShellLink.Save

Je viens de tester la suppression d'un raccourci.
Il y a plusieurs façons de créer un raccourci.
 
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\nom visuel de l'icone.lnk")
oShellLink.TargetPath = WScript.ScriptFullName
oShellLink.WindowStyle = 1

'oShellLink.Hotkey = "Ctrl+Alt+e"
oShellLink.Hotkey = "CTRL+SHIFT+F"

oShellLink.IconLocation = "notepad.exe, 0"
oShellLink.Description = "Icone bureau jean-marc"   'commentaire icone
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save

wscript.quit

Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\test.lnk")
link.Arguments = "1 2 3"
link.Description = "raccourci test"
link.HotKey = "CTRL+ALT+MAJ+X"
link.IconLocation = "foo.exe,1"
link.TargetPath = "c:\blah\foo.exe"
link.WindowStyle = 3
link.WorkingDirectory = "c:\blah"
link.Save

wscript.quit
'suppression d un raccourci
Set Shell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
DesktopPath = Shell.SpecialFolders("Desktop")
FSO.DeleteFile DesktopPath & "\Shortcut Script.lnk"
Set FSO = Nothing

Bonjour,
Effectivement, aieeeuuuuu, tu as raison (c'est précisé dans la doc de la méthode).
Je n'ai pas testé la partie mappage de chez moi vers mon boulot.
J'ai simplement testé la partie icone.
Avec ça, Steph115 a tous les éléments pour valider son topic.

Merci pour tout ca marche effectivement.


Merci. ++ Nexus

Chaque problème a sa solution. S'il n'y a pas de solution c'est qu'il n'y a pas de problème.