[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBS通过wmi获取系统的网卡信息,在windows2012上报错“缺少对象……”

本帖最后由 pcl_test 于 2016-8-22 15:25 编辑

之前写过的一个VBS脚本,用Win32_NetworkAdapter获取系统的网卡信息,
  1. Sub GetNic( argv )
  2. strComputer = "."
  3. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
  4. Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")
  5. Dim minobj
  6. minobj=Null
  7. aa=0
  8. ab=0
  9. StrRes=" "
  10. For Each objItem in colItems     
  11. if Len(objItem.NetConnectionID)>2 and objItem.AdapterType="Ethernet 802.3" and InStr(objItem.NetConnectionStatus,"2") and InStr(objItem.PNPDeviceID,"PCI")>0  then
  12.    StrRes= objItem.NetConnectionID & "," & objItem.MACAddress  & "," & objItem.Description &","& objItem.PNPDeviceID      
  13.   If 4=argv Then Wscript.Echo StrRes
  14.     if 0=ab Then
  15.     ab=1
  16.       Set minobj=objItem
  17.     ElseIf StrComp(objItem.NetConnectionID,minobj.NetConnectionID)<0 Then
  18.       set minobj=objItem
  19.     end if
  20. end if  
  21. Next
  22. Set objItem =minobj
复制代码
在window2008上运行没有问题,但是在windows2012上报错,提示(22,1)Microsoft VBScript运行时错误,缺少对象:‘minobj’
需要怎么修改呢,是不是2008和2012实现机制不一样
xuyao

返回列表