[vbs -Wsh] Script de démarrage windows + mappage

Script de démarrage windows + mappage [vbs -Wsh] - VB/VBA/VBS - Programmation

Marsh Posté le 25-10-2004 à 18:24:52    

Bonjour à tous!!!
Je fais un petit script de démarrage avec mappage réseau..
Jusque là pas de soucis..
Mais étant donné que quand un mappage existe déjà (fait par lutilisateur),  mon script plante (sans l'option "on error resume next" ), je voulais faire un petit test, ou mieux, supprimer tous les lecteur réseau non-standard...
Je pesais utiliser cette fonction "RemoveNetworkDrive".
Voilà a  quoi j'arrive:

Code :
  1. Set WshShell = WScript.CreateObject("WScript.Shell" )
  2. Set WshNetwork = WScript.CreateObject("WScript.Network" )
  3. Set NetWorkDrives = WshNetwork.EnumNetworkDrives
  4. 'WshShell.Run "cscript //H:CScript"
  6. 'on error resume next
  7.    For i = 0 to NetWorkDrives.Count - 1 Step 2 'ppd 2 car dans la case impaire on à la lettre et dans l'impaire, le chemin réseau
  8.       If NetWorkDrives.Item(i) <> "" then 'test si il y a une lettre de lecteur
  9.       x="""" & NetWorkDrives.Item(i) & """"
  10.       WScript.Echo x
  11.       WshNetwork.RemoveNetworkDrive x
  12.       End if
  13.    Next


 
Mais bon, ca ne fonctionne pas... apparement,  WshNetwork.RemoveNetworkDrive  ne supporte pas la variable que je lui donne :(
 
Vous avez une idée??? [:tuffgong]  
 
Merci, a+


Message édité par helvetik le 25-10-2004 à 18:25:23
Reply

Marsh Posté le 25-10-2004 à 18:24:52   

Reply

Marsh Posté le 25-10-2004 à 18:30:20    

bheu, oubliez.... Je suis un tablar....
 
 
Pour ceux que ca interresserait quand meme:

Code :
  1. For i = 0 to NetWorkDrives.Count - 1 Step 2
  2.       If NetWorkDrives.Item(i) <> "" then
  3.         WshNetwork.RemoveNetworkDrive NetWorkDrives.Item(i)
  4.       End if
  5.    Next


Je sais pas ce qui m'a pris de passer par une variable... sans, ca passe tout seul...
2 minutes après que je poste en plus... :D


Message édité par helvetik le 25-10-2004 à 18:30:44
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed