Bonjour,
Suite à un renouvellement de serveur je suis entraéin de me familiariser avec WSH de maniere a mettre en place un script de connexion me permettant de ne pas avori a reconfigurer chaque pc du parc (200?) au niveau, au moins, des imprimantes et mappages reseaux...
Je n'ai pas le droit d'installer le script sur notre serveur active directory local, pour des raisons de... securité... Je pensais donc les mettre sur un partage sur le nouveau serveur 2003 (serveur de fichier et serveur d'imprimante tres basique, meme pas de raid ni rien...) et mettre un raccourci dans le menu demarrer/Demarage de chaque pc, qui pointerait vers le script, mais j'aimerais bien le cacher un peu mieux que ca... Auriez vous un fichier .reg a me proposer poru se faire? ou un autre moyen?
J'ai trouvé le code pour desinstaller les anciens disques dur réseau par rapport au serveur d'ou ils proviennent, de maniere a reinstaller les nouveau du nouveau serveur. Le probleme c'est que pour l'instant, je n'ai pas encore trouvé le moyen de reinstaller les lecteurs en fonction du groupe de l'utilisateur... L'un d'entre vous saurait il comment je peux faire pour extraire le groupe de l'utilisateur?
Voici le code que j'utilise actuellement pour supprimer le partage reseau en fonction du serveur:
Code :
- Set WshNetwork = WScript.CreateObject("WScript.Network" )
- Set oDrives = WshNetwork.EnumNetworkDrives
- For i = 0 to oDrives.Count - 1 Step 2
- If odrives.item(i+1)="\\nom_serveur1\nom_partage" Then
- WshNetwork.RemoveNetworkDrive oDrives.Item(i), 1, 1
- End If
- Next
|
Voici le code que j'utilise pour installer les nouveaux partages:
Code :
- WSHNetwork.MapNetworkDrive "V:", "\\nom_serveur2\commun$", -1
|
Mon deuxiemme soucis serait de desinstaller les imprimantes, mais je n'y arrive pas... par contre j'arrive a les installer, et a en mettre une par defaut.
Voici le code que j'essaie d'utiliser pour desinstaller une imprimante en particulier:
Code :
- Set WshNetwork = WScript.CreateObject("WScript.Network" )
- Set oPrinters = WshNetwork.EnumPrinterConnections
- For i = 0 to oPrinters.Count - 1 Step 2
- WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)
- If oPrinters.Item(i+1)="\\nom_serveur2\imprimante_x" Then
- WScript.Echo "imprimante_x trouvée" 'cette ligne est juste la pour effectuer mes tests, voir si le script trouve l'imprimante
- WshNetwork.RemovePrinterConnection oPrinters.Item(i)
- End If
- Next
|
Le probleme c'est que ca me renvoie une erreur absurde à la ligne 10, caractere 1:
Code: 800708CA
Source: WSHNetwork.RemoveNetworkDrive
C'est pourtant WshNetwork.EnumPrinterConnections que j'utilise!!!
J'espere avoir ete assez clair!
Merci d'avance pour l'aide que vous pourriez m'apporter
@ bientot