Déconnecter un lecteur réseaux
Résolu
Steph115
Messages postés
163
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
3 février 2012
-
21 nov. 2005 à 04:56
Steph115 Messages postés 163 Date d'inscription mercredi 22 octobre 2003 Statut Membre Dernière intervention 3 février 2012 - 22 nov. 2005 à 14:42
Steph115 Messages postés 163 Date d'inscription mercredi 22 octobre 2003 Statut Membre Dernière intervention 3 février 2012 - 22 nov. 2005 à 14:42
A voir également:
- Wscript.network vba
- Wscript.network - Meilleures réponses
- Supprimer lecteur réseau - Meilleures réponses
- Lecteur code barre pas cher - Forum PDA
- Eclipse lecteur mp3 - Forum Flash
- Lecteur ccp - Forum C / C++ / C++.NET
- Fabriquer un lecteur rfid - Forum C# / .NET
- Lecteur empreinte digitale usb - Forum Java
10 réponses
aieeeuuuuu
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
20 mai 2011
3
22 nov. 2005 à 11:54
22 nov. 2005 à 11:54
re,
non pas ala fin du code, dans la methode WshNetwork.RemoveNetworkDrive, tu as un parametre bUpdateProfil.
il sert peut etre a mettre a jour ton explorer ?!?
essaie donc
WshNetwork.RemoveNetworkDrive "X:",,true
et dis nous ce que ca donne
non pas ala fin du code, dans la methode WshNetwork.RemoveNetworkDrive, tu as un parametre bUpdateProfil.
il sert peut etre a mettre a jour ton explorer ?!?
essaie donc
WshNetwork.RemoveNetworkDrive "X:",,true
et dis nous ce que ca donne
cs_jeanmarc
Messages postés
34
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
22 novembre 2005
21 nov. 2005 à 06:27
21 nov. 2005 à 06:27
Bonjour,
[mk:@MSITStore:D:\Mes%20scripts%20vbs\sources-vbs\SCRIPT56.CHM::/html/wsobjwshnetwork.htm WshNetwork, objet] | [mk:@MSITStore:D:\Mes%20scripts%20vbs\sources-vbs\SCRIPT56.CHM::/html/wsmthenumnetworkdrives.htm EnumNetworkDrives, méthode] | [mk:@MSITStore:D:\Mes%20scripts%20vbs\sources-vbs\SCRIPT56.CHM::/html/wsmthmapnetworkdrive.htm MapNetworkDrive, méthode]
<!--Footer Start-->
Langue
<LI>[ JScript]
<LI>[ VBScript]
<LI>[ Afficher tout]</LI>
<!--NONSCROLLING BANNER END-->
Retire un lecteur réseau partagé de votre système.
[ object].RemoveNetworkDrive([ strName], [[ bForce]], [[ bUpdateProfile]])
Arguments
* object : Objet WshNetwork.
* strName : Valeur de chaîne indiquant le nom du lecteur mappé que vous voulez supprimer. Le paramètre strName peut être soit un nom local, soit un nom à distance en fonction de la façon dont le lecteur est mappé.
* bForce : Facultatif. Valeur booléenne indiquant s'il faut forcer la suppression du lecteur mappé. Si bForce est fourni avec la valeur true, cette méthode supprime les connexions, que la ressource soit ou non utilisée.
* bUpdateProfile : <DD>Facultatif. Valeur de chaîne indiquant s'il faut supprimer le mappage du profil utilisateur. Si bUpdateProfile est fourni avec la valeur true, ce mappage est supprimé du profil de l'utilisateur. bUpdateProfile est false par défaut.
Notes
Si le lecteur a un mappage entre un nom local (lettre de lecteur) et un nom à distance (nom UNC), il faut que strName soit défini sur le nom local. Si le chemin du réseau n'a pas de mappage de nom local (lettre de lecteur), strName doit être défini sur le nom distant.
Exemple
Le code suivant supprime le lecteur
[VBScript] Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.
<!-- [end] -->
[JScript]
<!-- [end] -->
[mk:@MSITStore:D:\Mes%20scripts%20vbs\sources-vbs\SCRIPT56.CHM::/html/wsobjwshnetwork.htm WshNetwork, objet] | [mk:@MSITStore:D:\Mes%20scripts%20vbs\sources-vbs\SCRIPT56.CHM::/html/wsmthenumnetworkdrives.htm EnumNetworkDrives, méthode] | [mk:@MSITStore:D:\Mes%20scripts%20vbs\sources-vbs\SCRIPT56.CHM::/html/wsmthmapnetworkdrive.htm MapNetworkDrive, méthode]
<!--Footer Start-->
Langue
<LI>[ JScript]
<LI>[ VBScript]
<LI>[ Afficher tout]</LI>
<!--NONSCROLLING BANNER END-->
Retire un lecteur réseau partagé de votre système.
[ object].RemoveNetworkDrive([ strName], [[ bForce]], [[ bUpdateProfile]])
Arguments
* object : Objet WshNetwork.
* strName : Valeur de chaîne indiquant le nom du lecteur mappé que vous voulez supprimer. Le paramètre strName peut être soit un nom local, soit un nom à distance en fonction de la façon dont le lecteur est mappé.
* bForce : Facultatif. Valeur booléenne indiquant s'il faut forcer la suppression du lecteur mappé. Si bForce est fourni avec la valeur true, cette méthode supprime les connexions, que la ressource soit ou non utilisée.
* bUpdateProfile : <DD>Facultatif. Valeur de chaîne indiquant s'il faut supprimer le mappage du profil utilisateur. Si bUpdateProfile est fourni avec la valeur true, ce mappage est supprimé du profil de l'utilisateur. bUpdateProfile est false par défaut.
Notes
Si le lecteur a un mappage entre un nom local (lettre de lecteur) et un nom à distance (nom UNC), il faut que strName soit défini sur le nom local. Si le chemin du réseau n'a pas de mappage de nom local (lettre de lecteur), strName doit être défini sur le nom distant.
Exemple
Le code suivant supprime le lecteur
"E
"logique.
[VBScript] Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.
RemoveNetworkDrive"E:"
<!-- [end] -->
[JScript]
var WshNetwork = WScript.CreateObject("WScript.Network");
WshNetwork.RemoveNetworkDrive
("E:");
<!-- [end] -->
Steph115
Messages postés
163
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
3 février 2012
21 nov. 2005 à 09:11
21 nov. 2005 à 09:11
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.
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.
aieeeuuuuu
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
20 mai 2011
3
21 nov. 2005 à 17:51
21 nov. 2005 à 17:51
t'as essayé avec bUpdateProfil = true ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Steph115
Messages postés
163
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
3 février 2012
21 nov. 2005 à 17:53
21 nov. 2005 à 17:53
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.
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.
cs_jeanmarc
Messages postés
34
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
22 novembre 2005
21 nov. 2005 à 20:33
21 nov. 2005 à 20:33
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.
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
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
cs_jeanmarc
Messages postés
34
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
22 novembre 2005
21 nov. 2005 à 21:03
21 nov. 2005 à 21:03
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
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
cs_jeanmarc
Messages postés
34
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
22 novembre 2005
22 nov. 2005 à 12:09
22 nov. 2005 à 12:09
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.
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.
Steph115
Messages postés
163
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
3 février 2012
22 nov. 2005 à 14:42
22 nov. 2005 à 14:42
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.
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.
Steph115
Messages postés
163
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
3 février 2012
22 nov. 2005 à 14:42
22 nov. 2005 à 14:42
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.
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.
