Tester une adresse Ip

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:

---

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 ;)

Bonjour,

Peux-tu ajouter un msgbox et nour dire le résultat ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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 MsgBox objNetCard.IPAddress(0).StartWith("192.168.0") 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

---

Je ne suis pas dans un environement de dév mais j'édite mon script sous notepadd ++ et je l'exécute en double cliquant dessus.
Aucun affiche pas de boite de dialogue.

Je vais me renseigner sur le net pour lancer le script via dos et pouvoir en suivre l'exécution.

Edit :
J'ai modifié le code de la façon suivante, pour écrire dans un fichier ""

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

On Error Resume Next Const ForReading = 1, ForWriting = 2 Set WshShell = WScript.CreateObject("WScript.Shell") Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("C:\Documents and Settings\Desktop\ecr.txt", ForWriting,true) strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetCards = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each objNetCard in colNetCards f.write(objNetCard.IPAddress(0).StartWith("192.168.0")) 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

---

Dans ce cas le fichier est vide. Si je modifie la ligne qui écrit dans le fichier de la façcon qui suit :

Code:

---

f.write(objNetCard.IPAddress(0))

---

J'ai bien l'@Ip de ma machine dans le fichier.

Je vais chercher un autre moyen de tester la sting contenant l'@Ip

Re,

As-tu essayé de lancer ton script en enlevant "on error resume next" ?

Bonjour,

Es-tu certain de "StartWith"?
Essaye avec un test du genre:

Code:

---

1 2	if instr(objNetCard.IPAddress(0), "192.168.0.") > 0 then ...

---

J'ai trouvé une solution qui consiste à utiliser la Methode Mid() pour enregistrer dans une String le début des adresse Ip et ensuite comparé à l'aide d'un simple signe égale cette String et "192.168.....".
C'est à dire :

Code:

---

1 2 3 4 5

... strAdr = Mid(objNetCard.IPAddress(0), 1, 9) If (strAdr = "192.168.0" OR strAdr = "192.168.3") Then ....

---

Merci de l'attention que vous avez porté à mon problème.
La méthode StartWith ne doit pas exister en Vbscript ou je l'ai mal utilisée....
Si elle existait pas il m'aurais crié dessus je pense :aie:

Bref maintenant mon script marche le vendredi avant de partir :ccool: