因为正好有用到，整了个公用函数，一次获取本机全部IP地址：

Option ExplicitPrivate Declare Function WSAstartup Lib "WSOCK32.DLL" Alias "WSAStartup" (ByVal wVersionRequired As Integer, ByRef lpWSAData As WSAdata) As Long
Private Declare Function WsACleanup Lib "WSOCK32.DLL" Alias "WSACleanup" () As Long
Private Declare Function WSAIoctl Lib "ws2_32.dll" (ByVal s As Long, ByVal dwIoControlCode As Long, lpvInBuffer As Any, ByVal cbInBuffer As Long, lpvOutBuffer As Any, ByVal cbOutBuffer As Long, lpcbBytesReturned As Long, lpOverlapped As Long, lpCompletionRoutine As Long) As Long
Private Declare Function socket Lib "WSOCK32.DLL" (ByVal af As Long, ByVal s_type As Long, ByVal protocol As Long) As Long
Private Declare Function closesocket Lib "WSOCK32.DLL" (ByVal s As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Type sockaddrsin_family As Integersin_port As Integersin_addr As Longsin_zero As String * 8
End TypePrivate Type sockaddr_genAddressIn As sockaddrfiller(0 To 7) As Byte
End TypePrivate Type INTERFACE_INFOiiFlags As LongiiAddress As sockaddr_geniiBroadcastAddress As sockaddr_geniiNetmask As sockaddr_gen
End TypePrivate Type INTERFACEINFOiInfo(0 To 7) As INTERFACE_INFO
End TypePrivate Type WSAdatawVersion As IntegerwHighVersion As IntegerszDescription As String * 255szSystemStatus As String * 128iMaxSockets As IntegeriMaxUdpDg As IntegerlpVendorInfo As Long
End TypePrivate Const AF_INET = 2
Private Const SOCK_STREAM = 1
Private Const INVALID_SOCKET = -1
Private Const SIO_GET_INTERFACE_LIST As Long = &H4004747FPrivate Function GetStrIPFromLong(nIP As Long) As StringOn Error Resume NextDim btBuffer(3) As ByteCall CopyMemory(ByVal VarPtr(btBuffer(0)), ByVal VarPtr(nIP), 4)Let GetStrIPFromLong = btBuffer(0) & "." & btBuffer(1) & "." & btBuffer(2) & "." & btBuffer(3)
End FunctionPublic Function EnumLocalIpAddress() As String()On Error GoTo ZDim lngSocketHandle       As LongDim lngBytesReturned      As LongDim tpBuffer              As INTERFACEINFODim nNumInterfaces        As IntegerDim i                     As IntegerDim StartupInfo           As WSAdataDim strIPBuffer()         As StringIf WSAstartup(&H202, StartupInfo) <> 0 ThenExit FunctionEnd IflngSocketHandle = socket(AF_INET, SOCK_STREAM, 0)If lngSocketHandle = INVALID_SOCKET ThenExit FunctionEnd IfIf WSAIoctl(lngSocketHandle, SIO_GET_INTERFACE_LIST, ByVal 0, ByVal 0, tpBuffer, 1024, lngBytesReturned, ByVal 0, ByVal 0) Thenclosesocket lngSocketHandleExit FunctionEnd IfnNumInterfaces = CInt(lngBytesReturned / 76)ReDim strIPBuffer(nNumInterfaces - 1)For i = 0 To nNumInterfaces - 1strIPBuffer(i) = GetStrIPFromLong(tpBuffer.iInfo(i).iiAddress.AddressIn.sin_addr)Next iEnumLocalIpAddress = strIPBufferclosesocket lngSocketHandleWsACleanupExit Function
Z:
End Function

使用很简单：

    Dim i As Long, strIPAdd() As StringstrIPAdd = EnumLocalIpAddressIf SafeArrayGetDim(strIPAdd) > 0 ThenFor i = 0 To UBound(strIPAdd)Debug.Print strIPAdd(i)NextEnd If