好记性不如烂笔头,日志中记录了本人学习时遇到的知识点,方便自己回顾所学,也给有需要的童孩提供参考。欢迎大家阅读,并提出宝贵意见。

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:

 

评分:0

我来说两句

Open Toolbar