使用 WMI 來 Release / Renew IP

使用 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