VBS et WMI

Question

Bonjour, 

Voilà j'arrive bien à ajouter une passerelle en WMI sur une interface. Par contre le seule problème que j'ai c'est que je n'arrive pas à l'enlever toujours avec WMI

Voilà mon code :


' Utilisation de WMI pour les modifications
Set objWMIService = GetObject("winmgmts:\.oot\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration WHERE Index=16")

' Modification des paramètres IP
For Each objNetAdapter in colNetAdapters
strGateway = Array()
errGateway = objNetAdapter.SetGateways(strGateway, strGatewayMetric)

Next

Comme vous voyez j'ai essayé strGateway Array(), strGateway Array("")

Mais rien ne marche.

Si quelqu'un avait une idée ou encore mieux le réponse ce serait cool pour moi

Merci @+

________________
TheEwook
http://www.codes-studio.com

thierrydelepine · Answer

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
    arrGateways = Array("192.168.1.100", "192.168.1.200")
    objNetCard.SetGateways(arrGateways)
Next

moi j'utilise çà pour modifier les passerelles en VB et ca marche

donc je presume que 
arrGateways = Array("") doit marcher

par contre je ne specifie pas strGatewayMetric comme toi

philippechauvier · Answer

Pour info, toutes les classes WMI sont parfaitement d&#233;taill&#233;es sur le site microsoft (en anglais) :


http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi

VBS et WMI

2 réponses

Discussions similaires