Modifier des données dans la class NetworkAdapterConfiguration

Version imprimable

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... :oops:

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 :cry:
Code:

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 .....

04/09/2006, 16h27
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 ;)
04/09/2006, 16h37
NéoX

Ok on va dir que je fait le boulet désolé :oops: mais,
Donc on ne peut pas modifier les parametre avec cette méthode...?
Qu'elle méthode faut'il utiliser?
04/09/2006, 17h24
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 !!! :kill:
06/09/2006, 14h07
NéoX

Hum bon on va dir que je suis un boulet... :oops: 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 :D

Le code, cela devrait faire quelquechose comme ça :

Code:

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.

07/09/2006, 10h59
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