Script de changement de lecteurs réseaux

Bonjour tout le monde,

Dans mon entreprise, nous venons de migrer nos serveurs, dont notre serveur de fichier.
probleme: les lecteurs réseaux des postes postes client (une centaine) ne sont pas montés via un script de logon, mais directement ajoutés en local.

ancien serveur: server4
nouveau serveur: server14

j'ai donc commencé a codé un petit script en vb (langage que je ne connais pas trés bien, mais qui m'a l'air d'etre assez adapté). ce script regarde tous les lecteurs réseaux et remplace l'ancien serveur par le nouveau quand il y a besoins.

les briques marche séparement, mais une fois assemblées me mettent une erreure, avez-vous des pistes pour résoudre ce problème ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Set WshNetwork = WScript.CreateObject("WScript.Network") Set objDrive = WshNetwork.EnumNetworkDrives   For intDrive = 0 to objDrive.Count -1 Step 2 If InStr( LCase(objDrive.Item(intDrive +1) ), LCase("server4") ) Then WshNetwork.RemoveNetworkDrive objDrive.Item(intDrive) , true, true WshNetwork.MapNetworkDrive objDrive.Item(intDrive), Replace( LCase(objDrive.Item(intDrive +1)) , LCase("server4"),LCase("server14") ) , true End If Next

---

l'erreure est du type:

Citation:

---

ligne: 7
caractere: 1
erreur: nom de réseau introuvale
source: WshNetwork.MapNetworkDrive

---

j'ai trituré le code dans tout les sens rien n'y fait :/
please help me ^^

affiche la chaine généré histoire de vérifier...

Code:

---

Wscript.echo "WshNetwork.MapNetworkDrive " & objDrive.Item(intDrive) & ", " & Replace( LCase(objDrive.Item(intDrive +1)) & " , " & LCase("server4") & "," & LCase("server14") ) & " , true"

---

la fonction Replace génére une erreur car il lui faut plus d'arguments

j'ai donc modifier la ligne:

Code:

---

1 2	Wscript.echo "WshNetwork.MapNetworkDrive " & objDrive.Item(intDrive) & ", " & Replace( LCase(objDrive.Item(intDrive +1)) , LCase("server4") , LCase("server14") ) & " , true"

---

cette ligne est elle correct pour aficher la ligne comme vous le vouliez ?

le resultat me semble convenir:

Citation:

---

WshNetwork.MapNetworkDrive Z:, \\server14\public , true

---

==
Dans mon 1er post:
lorsque je met uniquement la ligne pour enlever un drive, ou alors uniquement la ligne pour ajouter un drive, ça marche
mais quand je met les deux lignes , ça ne marche pas.

j'ai d'abord mis une tempo mais c'est toujours pareil

le problème ne viendrai-il pas de l'objet "WshNetwork" ? Comment puis-je le savoir ?

bonjour,

mon erreur venait du fait que le chemin n'existait pas (:king: king of bouleto)

voici donc un script qui fonctionne , je le poste car il pourrait peu etre servir a d'autre :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Set WshNetwork = WScript.CreateObject("WScript.Network") Set OFS = CreateObject("Scripting.FileSystemObject") Set objDrive = WshNetwork.EnumNetworkDrives   ExSrv = "server4" NewSrv = "server14"   For intDrive = 0 to objDrive.Count -1 Step 2 If InStr( LCase(objDrive.Item(intDrive +1) ), LCase(ExSrv) ) Then   Drive = objDrive.Item(intDrive) ExPath = objDrive.Item(intDrive +1) NewPath = Replace( LCase(objDrive.Item(intDrive +1)) , LCase(ExSrv),LCase(NewSrv) )   WshNetwork.RemoveNetworkDrive Drive , true, true   If OFS.FolderExists(NewPath) Then WshNetwork.MapNetworkDrive Drive, NewPath , true Else WScript.Echo "<" & NewPath & "> n'existe pas !" End If   End If Next WScript.Echo "Terminé"

---