Script d'ouverture de session en VB pour effacer les anciens mappages
3 réponses
Glenn Gagné
Bonjour,
J'ai fait quelques recherches pour trouver un script en VBScript qui me
permet de supprimer les anciens mappages réseaux. Très intéressants... mais
ça ne semble pas fonctionner.
J'ai pas de problème pour en créer, mais pour en détruire c'est pas pareil.
Voici ce que j'utilise... mais qui ne marche pas:
=========================
Option Explicit
Dim objet_reseau, enumere_lettres
On Error Resume Next
Set objet_reseau = CreateObject("Wscript.Network")
Set enumere_lettres = objet_reseau.EnumNetworkDrives
For i = 0 to enumere_lettres.Count-1 Step 2
objet_reseau.RemoveNetworkDrive enumere_lettres.Item(i)
Next
=========================
Ça semble être la bonne méthode d'après les sites qui répète cet
instruction, mais ça ne marche pas dans mon cas.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Etienne Legendre
Bonjour
La commande net use X: /delete peut fonctionner aussi ! Bon, ce n'est pas du "VBscript" ....
EtienneL
"Glenn Gagné" a écrit dans le message de news:
Bonjour,
J'ai fait quelques recherches pour trouver un script en VBScript qui me permet de supprimer les anciens mappages réseaux. Très intéressants... mais ça ne semble pas fonctionner.
J'ai pas de problème pour en créer, mais pour en détruire c'est pas pareil.
Voici ce que j'utilise... mais qui ne marche pas:
======================== > Option Explicit Dim objet_reseau, enumere_lettres
On Error Resume Next Set objet_reseau = CreateObject("Wscript.Network") Set enumere_lettres = objet_reseau.EnumNetworkDrives For i = 0 to enumere_lettres.Count-1 Step 2 objet_reseau.RemoveNetworkDrive enumere_lettres.Item(i) Next ======================== > Ça semble être la bonne méthode d'après les sites qui répète cet instruction, mais ça ne marche pas dans mon cas.
À l'aide !!!!
Bonjour
La commande net use X: /delete peut fonctionner aussi !
Bon, ce n'est pas du "VBscript" ....
EtienneL
"Glenn Gagné" <glenn_gagne@hotmail.com> a écrit dans le message de news:
uLOOo5NBGHA.2704@TK2MSFTNGP15.phx.gbl...
Bonjour,
J'ai fait quelques recherches pour trouver un script en VBScript qui me
permet de supprimer les anciens mappages réseaux. Très intéressants...
mais
ça ne semble pas fonctionner.
J'ai pas de problème pour en créer, mais pour en détruire c'est pas
pareil.
Voici ce que j'utilise... mais qui ne marche pas:
======================== > Option Explicit
Dim objet_reseau, enumere_lettres
On Error Resume Next
Set objet_reseau = CreateObject("Wscript.Network")
Set enumere_lettres = objet_reseau.EnumNetworkDrives
For i = 0 to enumere_lettres.Count-1 Step 2
objet_reseau.RemoveNetworkDrive enumere_lettres.Item(i)
Next
======================== >
Ça semble être la bonne méthode d'après les sites qui répète cet
instruction, mais ça ne marche pas dans mon cas.
La commande net use X: /delete peut fonctionner aussi ! Bon, ce n'est pas du "VBscript" ....
EtienneL
"Glenn Gagné" a écrit dans le message de news:
Bonjour,
J'ai fait quelques recherches pour trouver un script en VBScript qui me permet de supprimer les anciens mappages réseaux. Très intéressants... mais ça ne semble pas fonctionner.
J'ai pas de problème pour en créer, mais pour en détruire c'est pas pareil.
Voici ce que j'utilise... mais qui ne marche pas:
======================== > Option Explicit Dim objet_reseau, enumere_lettres
On Error Resume Next Set objet_reseau = CreateObject("Wscript.Network") Set enumere_lettres = objet_reseau.EnumNetworkDrives For i = 0 to enumere_lettres.Count-1 Step 2 objet_reseau.RemoveNetworkDrive enumere_lettres.Item(i) Next ======================== > Ça semble être la bonne méthode d'après les sites qui répète cet instruction, mais ça ne marche pas dans mon cas.
À l'aide !!!!
Glenn Gagné
Je sais,
Mais le problème c'est qu'avec cet option je dois spécifier le mappage.
Avec la méthode VBScript je suis supposé être capable de "scanner" les lecteurs réseaux du poste et les efacer tous pour remplcer ceux-ci par le nouveaux !
"Etienne Legendre" a écrit dans le message de news:
Bonjour
La commande net use X: /delete peut fonctionner aussi ! Bon, ce n'est pas du "VBscript" ....
EtienneL
"Glenn Gagné" a écrit dans le message de news:
Bonjour,
J'ai fait quelques recherches pour trouver un script en VBScript qui me permet de supprimer les anciens mappages réseaux. Très intéressants... mais ça ne semble pas fonctionner.
J'ai pas de problème pour en créer, mais pour en détruire c'est pas pareil.
Voici ce que j'utilise... mais qui ne marche pas:
======================== > > Option Explicit Dim objet_reseau, enumere_lettres
On Error Resume Next Set objet_reseau = CreateObject("Wscript.Network") Set enumere_lettres = objet_reseau.EnumNetworkDrives For i = 0 to enumere_lettres.Count-1 Step 2 objet_reseau.RemoveNetworkDrive enumere_lettres.Item(i) Next ======================== > > Ça semble être la bonne méthode d'après les sites qui répète cet instruction, mais ça ne marche pas dans mon cas.
À l'aide !!!!
Je sais,
Mais le problème c'est qu'avec cet option je dois spécifier le mappage.
Avec la méthode VBScript je suis supposé être capable de "scanner" les
lecteurs réseaux du poste et les efacer tous pour remplcer ceux-ci par le
nouveaux !
"Etienne Legendre" <Etiennel@free.frXVX-ENLEVER-XVX.COM> a écrit dans le
message de news:uePeUpVBGHA.532@TK2MSFTNGP15.phx.gbl...
Bonjour
La commande net use X: /delete peut fonctionner aussi !
Bon, ce n'est pas du "VBscript" ....
EtienneL
"Glenn Gagné" <glenn_gagne@hotmail.com> a écrit dans le message de news:
uLOOo5NBGHA.2704@TK2MSFTNGP15.phx.gbl...
Bonjour,
J'ai fait quelques recherches pour trouver un script en VBScript qui me
permet de supprimer les anciens mappages réseaux. Très intéressants...
mais
ça ne semble pas fonctionner.
J'ai pas de problème pour en créer, mais pour en détruire c'est pas
pareil.
Voici ce que j'utilise... mais qui ne marche pas:
======================== > > Option Explicit
Dim objet_reseau, enumere_lettres
On Error Resume Next
Set objet_reseau = CreateObject("Wscript.Network")
Set enumere_lettres = objet_reseau.EnumNetworkDrives
For i = 0 to enumere_lettres.Count-1 Step 2
objet_reseau.RemoveNetworkDrive enumere_lettres.Item(i)
Next
======================== > >
Ça semble être la bonne méthode d'après les sites qui répète cet
instruction, mais ça ne marche pas dans mon cas.
Mais le problème c'est qu'avec cet option je dois spécifier le mappage.
Avec la méthode VBScript je suis supposé être capable de "scanner" les lecteurs réseaux du poste et les efacer tous pour remplcer ceux-ci par le nouveaux !
"Etienne Legendre" a écrit dans le message de news:
Bonjour
La commande net use X: /delete peut fonctionner aussi ! Bon, ce n'est pas du "VBscript" ....
EtienneL
"Glenn Gagné" a écrit dans le message de news:
Bonjour,
J'ai fait quelques recherches pour trouver un script en VBScript qui me permet de supprimer les anciens mappages réseaux. Très intéressants... mais ça ne semble pas fonctionner.
J'ai pas de problème pour en créer, mais pour en détruire c'est pas pareil.
Voici ce que j'utilise... mais qui ne marche pas:
======================== > > Option Explicit Dim objet_reseau, enumere_lettres
On Error Resume Next Set objet_reseau = CreateObject("Wscript.Network") Set enumere_lettres = objet_reseau.EnumNetworkDrives For i = 0 to enumere_lettres.Count-1 Step 2 objet_reseau.RemoveNetworkDrive enumere_lettres.Item(i) Next ======================== > > Ça semble être la bonne méthode d'après les sites qui répète cet instruction, mais ça ne marche pas dans mon cas.
À l'aide !!!!
Thierry DEMAN [MVP]
Bonsoir,
NET USE * /D /Y
fonctionne très bien aussi pour déconnecter toutes les unités possibles!
Mais, attention le "répertoire par défaut" (home directory) et les unités réseau en cours d'utilisation ne peuvent pas être déconnectées. => c'est sans doute ton problème.
Mais le problème c'est qu'avec cet option je dois spécifier le mappage.
Avec la méthode VBScript je suis supposé être capable de "scanner" les lecteurs réseaux du poste et les efacer tous pour remplcer ceux-ci par le nouveaux !
"Etienne Legendre" a écrit dans le message de news:
Bonjour
La commande net use X: /delete peut fonctionner aussi ! Bon, ce n'est pas du "VBscript" ....
EtienneL
"Glenn Gagné" a écrit dans le message de news:
Bonjour,
J'ai fait quelques recherches pour trouver un script en VBScript qui me permet de supprimer les anciens mappages réseaux. Très intéressants... mais ça ne semble pas fonctionner.
J'ai pas de problème pour en créer, mais pour en détruire c'est pas pareil.
Voici ce que j'utilise... mais qui ne marche pas:
======================== >> > Option Explicit Dim objet_reseau, enumere_lettres
On Error Resume Next Set objet_reseau = CreateObject("Wscript.Network") Set enumere_lettres = objet_reseau.EnumNetworkDrives For i = 0 to enumere_lettres.Count-1 Step 2 objet_reseau.RemoveNetworkDrive enumere_lettres.Item(i) Next ======================== >> > Ça semble être la bonne méthode d'après les sites qui répète cet instruction, mais ça ne marche pas dans mon cas.
À l'aide !!!!
Bonsoir,
NET USE * /D /Y
fonctionne très bien aussi pour déconnecter toutes les unités possibles!
Mais, attention le "répertoire par défaut" (home directory) et les unités réseau en cours d'utilisation ne peuvent pas être
déconnectées.
=> c'est sans doute ton problème.
"Glenn Gagné" <glenn_gagne@hotmail.com> a écrit dans le message de news: %23okpO7YBGHA.1372@TK2MSFTNGP14.phx.gbl...
Je sais,
Mais le problème c'est qu'avec cet option je dois spécifier le mappage.
Avec la méthode VBScript je suis supposé être capable de "scanner" les
lecteurs réseaux du poste et les efacer tous pour remplcer ceux-ci par le
nouveaux !
"Etienne Legendre" <Etiennel@free.frXVX-ENLEVER-XVX.COM> a écrit dans le
message de news:uePeUpVBGHA.532@TK2MSFTNGP15.phx.gbl...
Bonjour
La commande net use X: /delete peut fonctionner aussi !
Bon, ce n'est pas du "VBscript" ....
EtienneL
"Glenn Gagné" <glenn_gagne@hotmail.com> a écrit dans le message de news:
uLOOo5NBGHA.2704@TK2MSFTNGP15.phx.gbl...
Bonjour,
J'ai fait quelques recherches pour trouver un script en VBScript qui me
permet de supprimer les anciens mappages réseaux. Très intéressants...
mais
ça ne semble pas fonctionner.
J'ai pas de problème pour en créer, mais pour en détruire c'est pas
pareil.
Voici ce que j'utilise... mais qui ne marche pas:
======================== >> > Option Explicit
Dim objet_reseau, enumere_lettres
On Error Resume Next
Set objet_reseau = CreateObject("Wscript.Network")
Set enumere_lettres = objet_reseau.EnumNetworkDrives
For i = 0 to enumere_lettres.Count-1 Step 2
objet_reseau.RemoveNetworkDrive enumere_lettres.Item(i)
Next
======================== >> >
Ça semble être la bonne méthode d'après les sites qui répète cet
instruction, mais ça ne marche pas dans mon cas.
fonctionne très bien aussi pour déconnecter toutes les unités possibles!
Mais, attention le "répertoire par défaut" (home directory) et les unités réseau en cours d'utilisation ne peuvent pas être déconnectées. => c'est sans doute ton problème.
Mais le problème c'est qu'avec cet option je dois spécifier le mappage.
Avec la méthode VBScript je suis supposé être capable de "scanner" les lecteurs réseaux du poste et les efacer tous pour remplcer ceux-ci par le nouveaux !
"Etienne Legendre" a écrit dans le message de news:
Bonjour
La commande net use X: /delete peut fonctionner aussi ! Bon, ce n'est pas du "VBscript" ....
EtienneL
"Glenn Gagné" a écrit dans le message de news:
Bonjour,
J'ai fait quelques recherches pour trouver un script en VBScript qui me permet de supprimer les anciens mappages réseaux. Très intéressants... mais ça ne semble pas fonctionner.
J'ai pas de problème pour en créer, mais pour en détruire c'est pas pareil.
Voici ce que j'utilise... mais qui ne marche pas:
======================== >> > Option Explicit Dim objet_reseau, enumere_lettres
On Error Resume Next Set objet_reseau = CreateObject("Wscript.Network") Set enumere_lettres = objet_reseau.EnumNetworkDrives For i = 0 to enumere_lettres.Count-1 Step 2 objet_reseau.RemoveNetworkDrive enumere_lettres.Item(i) Next ======================== >> > Ça semble être la bonne méthode d'après les sites qui répète cet instruction, mais ça ne marche pas dans mon cas.