VBScript - Configurer les WINS

VBScript - Configurer les WINS - VB/VBA/VBS - Programmation

Marsh Posté le 21-05-2008 à 13:22:51    

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 :
  1. ' This code configures two WINS servers
  2. ' ------ SCRIPT CONFIGURATION ------
  4. strComputer = "."
  6. strW1 = "10.0.0.1"
  7. strW2 = "10.0.0.2"
  9. ' --------- END CONFIGURATION ------
  11. Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  12. Set nics = objWMIService.ExecQuery _
  13. ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True" )
  15. For Each nic In nics
  16.   intSetWINS = nic.SetWINSServer ("10.8.230.137", "10.152.51.254" )
  17. Next


 
 
 
J'ai tenté ça, mais sans succès :
 

Code :
  1. ' This code configures two WINS servers
  2. ' ------ SCRIPT CONFIGURATION ------
  4. strComputer = "."
  6. strW1 = "10.0.0.1"
  7. strW2 = "10.0.0.2"
  9. strW3 = "10.0.0.3"
  11. ' --------- END CONFIGURATION ------
  15. Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  17. Set nics = objWMIService.ExecQuery _
  18. ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True" )
  22. For Each nic In nics
  23.   intSetWINS = nic.SetWINSServer ("10.8.230.137", "10.152.51.254", "10.152.55.254" )
  24. Next


 
 
Merci beaucoup par avance !  :jap:

Reply

Marsh Posté le 21-05-2008 à 13:22:51   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed