Discussion :

[Gad29]

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

[pc75]

Bonjour,

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

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:\\" & 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

[Gad29]

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 :

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

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 :

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

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

[pc75]

Re,

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

[raymix]

Bonjour,

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

Code :

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

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

[Gad29]

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 :

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

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

Bref maintenant mon script marche le vendredi avant de partir