[VB.NET] Retour vers le WMI :-)Résolu

Question

Bonjour &#224; tous,

bon alors l&#224; je s&#232;che les amis, j'ai beau chercher des infos sur le net, autant pour la recup d'infos via WMI y'a moyen de trouver autant l&#224; je gal&#232;re, voici mon souci :

Tout simplement changer une ip avec WMI, bon, j'ai trouv&#233; un code en C sur le site de sup'info que j'ai adapt&#233; en VB mais d'une ca ne marche pas et de 2, ben franchement, ca me parle pas :



Dim Ms 
As 
New ManagementScope("\root\cimv2")

Dim requete 
As 
New ObjectQuery("select IPAddress,DefaultIPGateway,DNSServerSearchOrder,IPSubnet from win32_networkadapterconfiguration where index= 1"

Dim recherche 
As 
New ManagementObjectSearcher(Ms, requete)


Ms.Connect()



Dim Col 
As ManagementObjectCollection = recherche.Get  'jusque l&#224; tout va bien , mais apr&#232;s c'est un peu le flou artistique



Dim ObjNewIp 
As ManagementBaseObject = 
Nothing
Dim ObjSetIp 
As ManagementBaseObject = 
Nothing
Dim ObjNewGate 
As ManagementBaseObject = 
Nothing


For 
Each Obj 
As ManagementObject 
In Col


ObjNewIp = Obj.GetMethodParameters("EnableStatic")
ObjNewGate = Obj.GetMethodParameters("SetGateways")
ObjNewGate("DefaultIPGateway") = 
New 
String() {"198.45.65.78"}
ObjNewIp("IPAddress") = 
New 
String() {"198.45.65.89"}
ObjNewIp("SubnetMask") = 
New 
String() {"255.255.255.0"}
ObjSetIp = Obj.InvokeMethod("EnableStatic", ObjNewIp, 
Nothing)  ' erreur: l'operation n'est pas valide en raison de l'&#233;tat actuel de l'objet . ??????? 
ObjSetIp = Obj.InvokeMethod("SetGateways", ObjNewGate, 
Nothing)



Next

Bon ben voil&#224;, quelques modifs et quelques commentaires seraient grandement appreci&#233;s,
merci pour le coup de main.

adnotlegland · Accepted Answer

Bon ben pour en finir, jme suis arr&#233;t&#233; sur un code de ce style pour redefinir les dns, si quelqu'un a mieux je suis preneur :


Dim Ms 
As 
New ManagementScope("\root\cimv2")

Dim requete 
As 
New ObjectQuery("select * from win32_networkadapterconfiguration where index= 1")

Dim recherche 
As 
New ManagementObjectSearcher(Ms, requete)


Ms.Connect()



Dim Col 
As ManagementObjectCollection = recherche.Get



Dim dns1 as string ="192.168.0.253"
Dim dns2 as string ="192.168.0.254"
Dim NewDns() 
As 
String = {dns1, dns2}

If dns2 = "0.0.0.0" 
Then
ReDim 
Preserve NewDns(0)

End 
If
For 
Each obj 
As ManagementObject 
In Col
ObjNewDns = obj.GetMethodParameters("SetDNSServerSearchOrder")
ObjNewDns("DnsServerSearchOrder") = NewDns
obj.InvokeMethod("SetDNSServerSearchOrder", ObjNewDns, 
Nothing)

Next

Merci &#224; tous

troxsa · Answer

Salut,
J'arrive a faire mieux :) faire un chagement d'IP via WMI distant (avoir les droits admin)
Je te fait une demo demain si tu veux ! :)

@+
http://www.troxsa.info/Code VB.net

asecher · Answer

qui vient de changer mon IP ??????

(joke)

Alain 31

troxsa · Answer

C'est un peu pres le meme principe que http://www.troxsa.info/index.php?option=com_content&task=view&id=50&Itemid=2
et c'est complement possible a faire :)

<hr size="2" width="100%">
Plus votre titre sera pertinent plus vous aurez de r&#233;ponse

http://www.troxsa.info/
Code Vb.net

adnotlegland · Answer

bizarrement le code que j'ai post&#233; plus haut marche si l'on effectue la requete avec un (select *) !!!!??
Par contre TroXsa je me suis inspir&#233; de ton code sur le redemmarage d'un pc distant :

Dim Ms 
As 
New ManagementScope("\root\cimv2")

Dim requete 
As 
New ObjectQuery("select * from win32_networkadapterconfiguration where index= 1" )

Dim recherche 
As 
New ManagementObjectSearcher(Ms, requete) 
Ms.Connect()



Dim Col 
As ManagementObjectCollection = recherche.Get
Dim gateway() 
As 
Object = {"192.168.0.58"}



For 
Each Obj 
As ManagementObject 
In Col


Obj.InvokeMethod("SetGateways", gateway)



Exit 
For
Next

Et l&#224; j'obtiens un problem de cast, donc voil&#224;, si j'osais je te demanderais un petit exemple pour modifier des dns

troxsa · Answer

Je vais te faire &#231;a aujourd'hui  :)

http://www.troxsa.info/
Code Vb.net

adnotlegland · Answer

up

[VB.NET] Retour vers le WMI :-)

7 réponses

Discussions similaires