Script d'ajout serveur WINS

Version imprimable

Bonjour,

voila trouvé un script pour ajouter les adresses WINS dansla configuration TCP/IP, celui-ci fonctionne parfaitement :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
On Error Resume Next
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
 
For Each objNetCard in colNetCards
    strtrimaryServer = "10.30.133.203"
    strSecondaryServer = "10.30.133.204"
    objNetCard.SetWINSServer strSecondaryServer, strtrimaryServer
   Next

Le probleme c'est que je dois ajouter 3 adresses. Quelqu'un connait-il la syntax ?

16/01/2008, 12h25
ced600

En regardant ici j'ai l'impession que ce n'est pas possible.

Pourtant en utilisant l'interface windows, je constate que l'on peu ajouter plus de 2 serveur DNS.
Peut être en jouant avec ceci ?
16/01/2008, 13h29
christalys

Bonjour,

merci de ta réponse. Il s'agit des WINS et pas des DNS ;)
Mais a priori ce n'est pas possible http://msdn2.microsoft.com/en-us/lib...24(VS.85).aspx

Plutot curieux :?
16/01/2008, 13h58
ced600

essaye ainsi :

Code:

strSecondaryServer = "10.30.133.204, 10.30.133.203"

Si cela ne marche pas essaye d'autre séparateur comme ;
16/01/2008, 14h12
christalys

Salut,

j'ai déjà tout essayé :(

Merci :D