Script VBS Mappage Disque Réseau et printer LPT2

Script VBS Mappage Disque Réseau et printer LPT2 - VB/VBA/VBS - Programmation

Marsh Posté le 13-09-2005 à 11:54:48    

Bonjour tout le monde, j'aurai besoin de 2 infos l'une concernant un script VBS pour le mappage d'un disque réseau, et l'autre pour le re-routage d'une port LPT2 vers une imprimante réseau.
 
j'essaie d'installer un partage sur un serveur depuis des postes client, mais ya beaucoup de feintes :)
déjà 1, le système réseau est maintenant en Wlan, donc pas moyen de mettre un script sur le serveur pour qu'a chaque lancement de session le script se lance, car pas moyen d'avoir accès au serveur avant d'être arrivé sous Windows 2000, le temps que le sans-fil trouve le réseau !
donc la feinte vient du fait que j'ai inclus le script vbs dans le répertoire de démarrage sur chaque pc, avec une commande d'attente de 30sec avant d'exécuter les lignes suivantes :
 
Dim WshNet
WScript.Sleep 30000
Set WshNet = CreateObject("WScript.Network" )
WshNet.MapNetworkDrive "Z:", "\\serveur\data","True","user","pass"
 
ensuite je suis déjà bloqué car ce script utilise la reconnexion automatique au lancement de session de windows, et vu qu'il essaie de reconnecter le lecteur automatiquement à l'ouverture de session, et que le réseau sans-fil n'est pas encore détecté et bien il rapporte une erreur, mais ensuite le script se lance, attend 30 sec et affiche le lecteur dans le poste de travail :)
 
connaissez vous un moyen de faire la même manip, mais sans que le lecteur se reconnecte automatiquement à l'ouverture de session ? je sais pas si ya un moyen, en gros qu'il se connecte et une fois qu'on redémarre l'ordinateur, il n'essaie pas de se reconnecter automatiquement, et ensuite le script se lance et affiche après 30 sec le disque dans le poste de travail !
 
voilà pour mon soucis, si vous avez besoin d'autres détais n'hésitez pas !
 
------------------------
 
concernant le re-routage d'un port lpt2 vers une imprimante réseau avec un nom dns, ya-t-il un moyen de faire fonctionner cela sous win2k, le seul moyen que j'avais trouvé ct une commande Dos du type :
 
net use lpt2:\\serveur\epson
 
mais apparement pas moyen que ça marche, peut être y-a-til un moyen de faire pareil dans le script vbs ?
 
je suis pas très fort j'ai réussi à aller jusque là mais je suis perdu :)
 
merci d'avance pour vos explications @ pluche

Reply

Marsh Posté le 13-09-2005 à 11:54:48   

Reply

Marsh Posté le 14-09-2005 à 22:14:10    

Pour solutionner ton problème de délai ( si domaine et active directory )
Il faut active la gpo demandant que la connection réseau soit établie avant ...  
 
Pour le vbs, je t'encourage à creuser car c'est simple et performant pour de l'administration, ....
 
Voir le post "vbs, les liens utiles" rubrique programmation

Reply

Marsh Posté le 25-09-2005 à 11:31:46    

Pour le mappage de Drive :
 
'--- Fonction Mappage d'un drive
Sub DriveMapper(Drive, Share)
 
For i = 0 to oDrives.Count -1 Step 2
 if LCase(Drive) = LCase(oDrives.Item(i)) then
   if not LCase(Share) = LCase(oDrives.Item(i+1)) then
     WshNetwork.RemoveNetworkDrive Drive, true, true
   Else
     Exit Sub
   End If
 End if
Next
WshNetwork.MapNetworkDrive Drive, Share
 
End Sub
 
 
Pour le démappage :
 
'--- Fonction DéMappage d'un drive
 
Sub DriveUnMapper(Drive, Share)
 
For i = 0 to oDrives.Count -1 Step 2
 if LCase(Drive) = LCase(oDrives.Item(i)) then
  if not LCase(Share) = LCase(oDrives.Item(i+1)) then
   WshNetwork.RemoveNetworkDrive Drive, true, true
  Else
   Exit Sub
  End If
 End If
Next
 
End Sub

Reply

Marsh Posté le 25-09-2005 à 11:34:12    

Sans oublier de créer les oblets avant !
 
'--- Création des objets Network
Set WshNetwork = WScript.CreateObject("WScript.Network" )
Set oDrives = WshNetwork.EnumNetworkDrives

Reply

Sujets relatifs:

Leave a Replay

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