VBScript - Configurer les WINS

  • Auteur de la discussion seth7c
  • Date de début

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 !
 

zeb

Modérateur
M'enfin !
A quoi servent les lignes 1 à 12 ?

SetWINSServer() ne prend que deux paramètres, c'est comme ça !
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 050
Membres
1 586 282
Dernier membre
Yannick3553
Partager cette page
Haut