获取本机IP地址

Private Sub 获取本机IP地址_Click()
Dim strComputer As String, IPAddress As String
Dim objWMIService As Object, IPConfigSet As Object, IPConfig, strAddress
strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig In IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then
        For Each strAddress In IPConfig.IPAddress
            MsgBox "本机IP为：" + strAddress
        Next
    End If
Next
End Sub