好记性不如烂笔头,日志中记录了本人学习时遇到的知识点,方便自己回顾所学,也给有需要的童孩提供参考。欢迎大家阅读,并提出宝贵意见。
QTP:获取本地IP
上一篇 /
下一篇 2013-04-16 13:37:13
/ 个人分类:QTP技术
'======================================== '名称:QTP_GetLocalIP '作用:获取本地IP '参数:无 '返回值:本地IP '调用:print QTP_GetLocalIP '======================================== Public Function QTP_GetLocalIP Dim objWMIService,colItems,objItem,objAddress Set bjWMIService = GetObject("winmgmts://./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 QTP_GetLocalIP = objAddress Exit For End If Next Exit For Next End Function
|
收藏
举报
TAG: