批处理之家 - Powered by Discuz! Board

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

复制代码