DHCPに変更する: Win32_NetworkAdapterConfiguration
■Topics
NICに割り当てられているIPアドレスをDHCPの設定に変更するサンプルです。Win32_NetworkAdapterConfigurationクラスを使用します。
Private Sub Command1_Click()
Dim NicSet As SWbemObjectSet
Dim Nic As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Dim Ret As Long
Ret = -1
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set NicSet = Service.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration " & _
"Where Description Like '%Intel%'")
For Each Nic In NicSet
Ret = Nic.EnableDHCP()
Next
If Ret = 0 Then
MsgBox "DHCP に変更しました。"
Else
MsgBox "DHCP に変更できませんでした。"
End If
Set NicSet = Nothing
Set Nic = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
Dim NicSet As SWbemObjectSet
Dim Nic As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Dim Ret As Long
Ret = -1
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set NicSet = Service.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration " & _
"Where Description Like '%Intel%'")
For Each Nic In NicSet
Ret = Nic.EnableDHCP()
Next
If Ret = 0 Then
MsgBox "DHCP に変更しました。"
Else
MsgBox "DHCP に変更できませんでした。"
End If
Set NicSet = Nothing
Set Nic = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
それでは実行してみましょう。
実行している内容としてはWQLで「Intel」という文字が含まれるNICを取得するようにした上で見つかったNICのIPアドレス設定をDHCPに変更するというものです。
ですから環境によってはWQLを変える必要があります。EnableDHCPを実行すると成功すれば0が帰ってきます。それ以外のステータスも帰ってくることがあるので実際にはそこまで考慮する必要もあるかもしれません。帰り値の詳細はWMI SDKを参照してください。
Win32_NetworkAdapterConfiguration クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。