Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1701 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Script VBS Mappage Disque Réseau et printer LPT2

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Script VBS Mappage Disque Réseau et printer LPT2

n°1198377
Dr. Bodwea​r
Koi de 9 doK?
Posté le 13-09-2005 à 11:54:48  profilanswer
 

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

mood
Publicité
Posté le 13-09-2005 à 11:54:48  profilanswer
 

n°1199757
c_moa
Posté le 14-09-2005 à 22:14:10  profilanswer
 

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

n°1206829
Fred_l
Posté le 25-09-2005 à 11:31:46  profilanswer
 

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

n°1206832
Fred_l
Posté le 25-09-2005 à 11:34:12  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Script VBS Mappage Disque Réseau et printer LPT2

 

Sujets relatifs
JS : inclure du html entre deux balises <script>php debutant aide script
script bat[Perl] Mon script a besoin de privileges supplémentaires
Equivalent script shell sous Windows[RESOLU] PB script de creation d'utilisateur
Problème script qcm en phperreur dans mon script sql
script tout facile qui tourne pasScript compteur de visite : marche pas !!!
Plus de sujets relatifs à : Script VBS Mappage Disque Réseau et printer LPT2


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR