seth7c
Nouveau membre
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 :
[cpp]
' 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
[/cpp]
J'ai tenté ça, mais sans succès :
[cpp]
' 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
[/cpp]
Merci beaucoup par avance !
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 :
[cpp]
' 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
[/cpp]
J'ai tenté ça, mais sans succès :
[cpp]
' 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
[/cpp]
Merci beaucoup par avance !