VBS获取本机IP地址

' 获取本机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，如需转载请自行联系原作者