'获取本机IP
'owner DeViL
'return 本机的IP地址
Public Function GetIP
   ComputerName="."
    Dim objWMIService,colItems,objItem,objAddress
    Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
    For Each objItem in colItems
        For Each objAddress in objItem.IPAddress
            If objAddress <> "" then
                GetIP = objAddress
                Exit Function
            End If
        Next
    Next

End Function

本文转自CoderZh博客园博客，原文链接：http://www.cnblogs.com/coderzh/archive/2007/12/03/981119.html，如需转载请自行联系原作者