使用 WMI 來 Release / Renew IP
使用 WMI 來 Release / Renew IP
<< VB.Net 寫法 >>
使用 WMI 物件的Win32_NetworkAdapterConfiguration 物件類別
請先加入參考 System.Management
Imports System.Management
' 初始化 ManagementClass 類別的新執行個體 (Instance)。
' WMI 類別 : Win32_NetworkAdapterConfiguration
Dim clsInstance As New ManagementClass("Win32_NetworkAdapterConfiguration")
' 釋放 (所有) 網卡 IP
Private Sub btnRelease_Click(ByVal s As System.Object, ByVal e As System.EventArgs) _
Handles btnRelease.Click
' 呼叫 RenewDHCPLeaseAll 方法
clsInstance.InvokeMethod("ReleaseDHCPLeaseAll", Nothing)
' 相當於 IPconfig / Release
End Sub
' 重新取得 (所有) 網卡 IP
Private Sub btnRenew_Click(ByVal s As System.Object, ByVal e As System.EventArgs) _
Handles btnRenew.Click
' 呼叫 RenewDHCPLeaseAll 方法
clsInstance.InvokeMethod("RenewDHCPLeaseAll", Nothing)
' 相當於 IPconfig / Renew
End Sub
' PS : 當網卡設定成自動 (由DHCP) 取得IP時
================================================================
<< VB6 寫法 >>
使用 WMI 物件的Win32_NetworkAdapterConfiguration 物件類別
Private Sub IP_Renew() ' 重新取得網卡 IP
GetObject("winmgmts:").Get("Win32_NetworkAdapterConfiguration").RenewDHCPLeaseAll
End Sub
Private Sub IP_Release() ' 釋放網卡 IP
GetObject("winmgmts:").Get("Win32_NetworkAdapterConfiguration").ReleaseDHCPLeaseAll
End Sub