IPアドレス(DHCP)と取り直す: Win32_NetworkAdapterConfiguration
■Topics
DHCPの設定になっているNICに対してIPアドレスの取り直しを行うサンプルです。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%' And DHCPEnabled = True")
For Each Nic In NicSet
Ret = Nic.RenewDHCPLease()
Next
If Ret = 0 Then
MsgBox "IP再取得に成功しました。"
Else
MsgBox "IP再取得に失敗しました。"
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%' And DHCPEnabled = True")
For Each Nic In NicSet
Ret = Nic.RenewDHCPLease()
Next
If Ret = 0 Then
MsgBox "IP再取得に成功しました。"
Else
MsgBox "IP再取得に失敗しました。"
End If
Set NicSet = Nothing
Set Nic = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
実行すると「Intel」が含まれDHCPの設定になっているNICに対してIPアドレスの取り直しを行います。成功すれば「IP再取得に成功しました。」と表示されます。
このサンプルでは成功の判断しか行っていませんが、失敗時のエラーの取得も可能です。RenewDHCPLeaseメソッドを実行した結果でエラーの状況を取得できます。
Win32_NetworkAdapterConfiguration クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。