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 ?