Script VBS Mappage Disque Réseau et printer LPT2 - VB/VBA/VBS - Programmation
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
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
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
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