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

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

微信扫一扫交流

作者:CoderZh
微信关注:hacker-thinking (一个程序员的思考)
本文出处:https://blog.coderzh.com/2007/12/03/981119/
文章版权归本人所有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。