VBS获取本机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

[温馨提示]：该文章由原博客园导入而来，如排版效果不佳，请移步：http://www.cnblogs.com/coderzh/archive/2007/12/03/981119.html