Compter les lecteurs réseau mapés

Bonjour à tous,

Je tente de réaliser un script d'ouverture de session permettant de connecter les lecteurs réseau.
Pour tout les utilisateurs, les lecteurs à maper sont les mêmes.

En glanant des informations à gauche et à droite, le déroulement de mon script devra être le suivant :

1) Je déconnecte tout les lecteurs
2) Puis je connecte les lecteurs à mettre à disposition des utilisateurs.
3) Je renomme le nom de partage .

Actuellement, les étapes 2 et 3 fonctionnent.

C'est l'étape 1 qui me pose soucis.
Le code de déconnection étant le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'* Début du code ** Set WshNetwork = CreateObject("Wscript.Network") Set oDrives = WshNetwork.EnumNetworkDrives   '...   For i = 0 to oDrives.Count - 1 Step 2 WshNetwork.RemoveNetworkDrive oDrives.Item(i), true, true Next   '... '*** Fin du code ***

---

Si j'ai bien compris, oDrives.count doit renvoyer le nombre de lecteurs réseaux mapés.
Le constat que je fais est que la valeur renvoyée est parfois erronée.
Lorsque je compare le nombre de lecteurs réseaux mapés listé par l'explorateur et la valeur renvoyé, soit c'est concordant, soit la valeur renvoyée est inférieur.

D'autre part, lorsque les deux valeurs concordent, et que la déconnection se déroule, il me reste toujours un lecteur mapé. Ce qui, d'après le code ci-dessus, est normal.
J'ai 5 lecteurs mapés => oDrives.count = 6, du coup je ne passe que 4 fois dans ma boucle.
Ce qui m'étone, est que ce code n'est pas de moi, l'ayant trouvé sur le Net, sur ce forum y compris. Donc, si ce code n'était pas bon, j'aurais dû trouver des retours en ce sens.

Pouvez-vous m'aider, SVP ?

Bonjour

Pour commencer un peu de lecture sur la méthode EnumNetworkDrives sur le msdn de microsoft.

En gros, cette méthode te retourne une collection d'items contenant des informations (par paire) sur les lecteurs réseau connectés (2 informations par lecteur).
Première info : Le nom local du lecteur réseau
2e info : Le chemin UNC correspondant.

Exemple : oDrives.Item(0) --> "F:", oDrives.Item(1) --> "\\serveur\partage1", oDrives.Item(2) --> "G:", oDrives.Item(3) --> "\\serveur\partage2", etc.

Citation:

---

Si j'ai bien compris, oDrives.count doit renvoyer le nombre de lecteurs réseaux mapés.

---

Donc, ce n'est pas le cas. oDrives.count te renvoie le nombre de tes lecteurs réseaux multiplié par 2. D'où le "Step 2" dans ta boucle qui récupère les infos de tes lecteurs réseau.

Citation:

---

J'ai 5 lecteurs mapés => oDrives.count = 6, du coup je ne passe que 4 fois dans ma boucle.

---

Si oDrives.count = 6, tu ne passeras que 3 fois dans ta boucle, et ton script déconnectera les lecteurs correspondant à oDrives.Item(0), oDrives.Item(2) et oDrives.Item(4)

Par contre c'est bizarre que le EnumNetworkDrives ne te renvoie que 3 lecteurs si tu en as 5 de connectés. Ce sont bien tous des lecteurs réseau ?

Pour ma part, j'avais constaté que EnumNetworkDrives me renvoyait parfois plus de lecteurs connectés que j'en avais de présents dans le poste de travail, car il listait aussi les partages serveurs ouverts avec l'explorateur (avec un nom local vide).

Pour voir un peu plus clair, commence par afficher ce que fait ton script :

Code:

---

1 2 3 4 5 6 7 8

For i = 0 to oDrives.Count - 1 Step 2 ' Affichage des infos du lecteur à déconnecter : Wscript.Echo "Déconnection du lecteur n° " & (i+2)/2 & " : " & oDrives.Item(i) & " --> " & oDrives.Item(i+1) ' Déconnection WshNetwork.RemoveNetworkDrive oDrives.Item(i), true, true ' Test d'erreur If Error.Number <> 0 Then Wscript.Echo "Erreur n° " & Error.Number Next

---

Tu trouveras peut-être les réponses à tes questions avec ça.

En espérant t'aider.