Bonjour à tous !
L'objectif de mon script est le suivant :
Tester l'adresse Ip de la machine si elle commence par "192.168.0" OU si elle commence par "192.168.3" alors on configura un serveur WINS.

En voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
    If objNetCard.IPAddress(0).StartWith("192.168.0") OR objNetCard.IPAddress(0).StartWith("192.168.3") Then
    strPrimaryServer = "192.168.0.9"
    strSecondaryServer = ""
    objNetCard.SetWINSServer strPrimaryServer, strSecondaryServer
End If
Next
Mon problème est que si l'adresse ip de la machine commence par les deux valeurs indiquée la configuration est rentrée. MAIS si l'adresse Ip est "n'importe" quelle autre valeur le serveur WINS est aussi configuré.
Mon test est donc toujours vrai ?

Je n'ai pas eu de formation en VbScript j'ai commencé mon apprentissage ce matin donc si il y à des erreurs de débutant merci de me les indiquer.

A la base j'ai repris ce script sur un forum et je le "customise" pour qu'il réponde à mes besoins.

Merci d'avance de votre attention