通过WMI获取系统IP,这对在多系统下运行自动化测试,自动产生测试结果报告是很有用处的!同时WMI中还有很多可以用的方法!
以下是获取系统IP的Vbscript代码,将下面代码复制,粘贴在QTP中运行,或者粘贴到自建一个空的VBS文件,双击!
'获取系统IP
Set objWMIService = GetObject("winmgmts:")
Set colNicConfig = objWMIService.ExecQuery("SELECT * FROM " & _
"Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objNicConfig In colNicConfig
MSGBOX "Network Adapter: " & objNicConfig.Index
If Not IsNull(objNicConfig.IPAddress) Then
For Each strIPAddress In objNicConfig.IPAddress
MSGBOX " IP Address(es):" & strIPAddress
Next
End If
Next
'这段码会取出你当前系统所有适配器的id,然后显示该适配器的IP地址!