通过WMI获取系统IP

 

通过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地址!