Bonjour,
Je travaille dans l'administration de serveurs et j'ai besoin de créer un script pour que tous mes postes aient les bons WINS.
J'ai le script qui va bien mais le souci : je ne parviens pas à paramétrer le 3eme wins !
Voici le code :
Code :
- ' This code configures two WINS servers
- ' ------ SCRIPT CONFIGURATION ------
- strComputer = "."
- strW1 = "10.0.0.1"
- strW2 = "10.0.0.2"
- ' --------- END CONFIGURATION ------
- Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
- Set nics = objWMIService.ExecQuery _
- ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True" )
- For Each nic In nics
- intSetWINS = nic.SetWINSServer ("10.8.230.137", "10.152.51.254" )
- Next
|
J'ai tenté ça, mais sans succès :
Code :
- ' This code configures two WINS servers
- ' ------ SCRIPT CONFIGURATION ------
- strComputer = "."
- strW1 = "10.0.0.1"
- strW2 = "10.0.0.2"
- strW3 = "10.0.0.3"
- ' --------- END CONFIGURATION ------
- Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
- Set nics = objWMIService.ExecQuery _
- ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True" )
- For Each nic In nics
- intSetWINS = nic.SetWINSServer ("10.8.230.137", "10.152.51.254", "10.152.55.254" )
- Next
|
Merci beaucoup par avance ! 
