VBS通过wmi获取系统的网卡信息，在windows2012上报错“缺少对象……”

torrent151221

之前写过的一个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