IP アドレス (DHCP) を取り直す: Win32_NetworkAdapterConfiguration - WMI Sample (VB)

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