Discussion :

[NéoX]

Bonjour,
Voila mon probléme:
J'arrive à afficher les information concernant le reseaux comme l'ip, le dns, le gateway...
Et j'aimerais modifier ces informations... mais je ne sait pas comment fair...

Le code que j'utilise doit etre un truc du styl lecture seul car kan j'execute ca lit, ca modifi le contenu de la variable même, mais de retour sous windows dans l'invitte de commande le contenu de ipconfig /all reste inchangé....

Pleas help

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
 
 
Set objWMIService2 = getObject("winmgmts:\\" & NomPC & "\root\cimv2")
Set colItems2 = objWMIService2.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = true",,48)
For Each objItem2 in colItems2
 
		Wscript.Echo "Nom: " & objItem2.caption
 
		Wscript.Echo "IPEnabled: " & objItem2.IPEnabled
 		objItem2.IPEnabled = false
 		Wscript.Echo "IPEnabled: " & objItem2.IPEnabled ' Le resulta renvoyer sera bien IpEnabled: Faux, mais en faite nan lol
 
  		Wscript.Echo "Addresse IP: " & objItem2.IPaddress(0)
  		objItem2.IPaddress(0)= "172.17.203.120"
  		Wscript.Echo "Addresse IP: " & objItem2.IPaddress(0) 'même probléme
.....
etc
.....

[ced600]

Voici l'aide MSDN sur l'objet Win32_NetworkAdapterConfiguration:
http://msdn.microsoft.com/library/de...figuration.asp
Lorsque tu clique sur IPEnabled et IPAdress, une petite boite apparait et te precises notemment que IPEnabled et IPAdress sont en lecture seule.
D'ailleurs tu peut également observer que IPAdress est dut type tableau

[NéoX]

Ok on va dir que je fait le boulet désolé mais,
Donc on ne peut pas modifier les parametre avec cette méthode...?
Qu'elle méthode faut'il utiliser?

[ced600]

Rien de très compliquer, tu va sur la page que je t'ai donnée en lien précédement. Ensuite, tu regardes un peu les méthodes proposées, et notament "EnableStatic".
Il suffit de lire ce qui est écrit sur les pages données en lien par ceux qui essayent de t'aider !!!

[NéoX]

Hum bon on va dir que je suis un boulet... ca fait plusieur jour que je regarde ce site mais j'ai deja beaucoup de mal avec l'anglais et beaucoup de mal a me diriger dessus...
ce que je voudrai c'est quon me dise clairement comment je peut fair en me donnan le code... msdn avan que tu me revoi laba je lavai deja scrupté mais il y a trop d'info et trop d'info tue l'info surtou en anglais lol

[ced600]

Le code, cela devrait faire quelquechose comme ça :

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
Dim strIPAddress, strSubnetMask, errEnable 
strIPAddress = Array("192.168.0.1")
strSubnetMask = Array("255.255.255.0")
 
Set objWMIService2 = getObject("winmgmts:\\" & NomPC & "\root\cimv2")
Set colItems2 = objWMIService2.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = true",,48)
 
 
For Each objItem2 in colItems2
errEnable = objItem2.EnableStatic(strIPAddress, strSubnetMask)
Next
 
Set objWMIService2 = Nothing
Set colItems2 = Nothing

J'espère que cette fois ci ton problème est résolu.

[NéoX]

Merci beaucoup, ca marche trés bien !!
Maintenant que je vois comment utiliser ces fonctions, je vais m'tteler pour pouvoir modifier ma passerelle, mon dns et mon wins.
Je te remercie encore.... Salut