Discussion :

[christalys]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[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 ?

[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

[ced600]

essaye ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strSecondaryServer = "10.30.133.204, 10.30.133.203"

Si cela ne marche pas essaye d'autre séparateur comme ;

[christalys]

Salut,

j'ai déjà tout essayé

Merci