VBS 通过WMI接口动态查询网卡
示例代码:
Set objWMIService = GetObject("WinMgmts:\\.\root\cimv2")
Set networkAdapters = objWMIService.ExecQuery("select Name, NetConnectionID from Win32_NetworkAdapter")
Set networkAdapters = objWMIService.ExecQuery("select Name, NetConnectionID from Win32_NetworkAdapter")
For Each networkAdapter in networkAdapters
objRetVal = objRetVal & networkAdapter.Name & Chr(13) & Chr(10)
Next
objRetVal = objRetVal & networkAdapter.Name & Chr(13) & Chr(10)
Next
MsgBox objRetVal