Eu tenho um script que exibe algumas informações de IP, nome de login e endereços do Mac, mas mostra todos os endereços de dispositivo Bluetooth mesmo. Como modificar este script para listar o endereço MAC da interface ethernet com fio e exibir também o seu nome?
Dim WMI, Configs, Config, Adapters, Adapter
Dim Nics, Nic, StrIP, CompName
Dim intCount, strMAC, strQuery, objWMIService, colItems, objItem, i
Dim WshNetwork, strUserName
intCount = 0
strMAC = ""
' We're interested in MAC addresses of physical adapters only
strQuery = "SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionID > ''"
Set objWMIService = GetObject( "winmgmts://./root/CIMV2" )
Set colItems = objWMIService.ExecQuery( strQuery, "WQL", 48 )
For Each objItem In colItems
If InStr( strMAC, objItem.MACAddress ) = 0 Then
strMAC = strMAC & ", " & objItem.MACAddress
intCount = intCount + 1
End If
Next
' Remove leading comma
If intCount > 0 Then strMAC = Mid( strMAC, 2 )
Set Nics = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each Nic in Nics
if Nic.IPEnabled then
StrIP = Nic.IPAddress(i)
Set WshNetwork = WScript.CreateObject("WScript.Network")
CompName = WshNetwork.Computername
Set WMI = GetObject("winmgmts:{impersonationlevel=impersonate}root/cimv2")
strUserName = wshNetwork.UserName
' BEGIN CALLOUT A
Set Configs = WMI.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=True")
' END CALLOUT A
For Each Config In Configs
' BEGIN CALLOUT B
Set Adapters = WMI.AssociatorsOf("Win32_NetworkAdapterConfiguration.Index=" & Config.Index, "Win32_NetworkAdapterSetting")
' END CALLOUT B
'For Each Adapter In Adapters
'If Left(Adapter.Description, 14) = "Cisco AnyConnect VPN Virtual Miniport Adapter for Windows" Then
'VPNIP = Config.IPAddress(0)
'End If
Next
'Next
MsgBox "IP Adres: "&StrIP & vbNewLine _
& "Computer Name: "&CompName & vbNewLine _
& "Login: "&strUserName & vbNewLine _
& "Mac Adres: "& strMAC _
,4160,"Information IP"
'wscript.quit
end if
next
Tags vbscript