vba 获得本机的ip address

Dim strComputer As String    Dim objWMI As Object    Dim colIP As Object    Dim IP As Object    Dim i As Integer    Dim ipserver As String    ipserver = ""        strComputer = "."    Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")    Set colIP = objWMI.ExecQuery _        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")            For Each IP In colIP        If Not IsNull(IP.IPAddress) Then            For i = LBound(IP.IPAddress) To UBound(IP.IPAddress)                ipserver = IP.IPAddress(i)                MsgBox IP.IPAddress(i), vbInformation, IP.Description(i)                MsgBox （ipserver）        Next        End If    Next