Sub GetNic( argv )
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter") 
Dim minobj
minobj=Null
aa=0
ab=0
StrRes=" "
For Each objItem in colItems     
 if Len(objItem.NetConnectionID)>2 and objItem.AdapterType="Ethernet 802.3" and InStr(objItem.NetConnectionStatus,"2") and InStr(objItem.PNPDeviceID,"PCI")>0  then 
 	   StrRes= objItem.NetConnectionID & "," & objItem.MACAddress  & "," & objItem.Description &","& objItem.PNPDeviceID      
 	  If 4=argv Then Wscript.Echo StrRes
    if 0=ab Then
    	ab=1
      Set minobj=objItem
    ElseIf StrComp(objItem.NetConnectionID,minobj.NetConnectionID)<0 Then
      set minobj=objItem
    end if
 end if  
Next
Set objItem =minobj
复制代码