none
VBS - modify script to add interface name. RRS feed

  • General discussion

  • Hi,

    could anyone help me modify my script to add interface name to displayed mac address?

    Could be also possible to modify this script to list mac address of only wired ethernet interface, now it shows all interfaces?

    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 )
    
    
    dim NIC1, Nic, StrIP, CompName
    
    Set NIC1 = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
    
    For Each Nic in NIC1
    
    if Nic.IPEnabled then
    
    StrIP = Nic.IPAddress(i)
    
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    
    Dim objNetwork
    
    Set objNetwork = CreateObject("WScript.Network")
    
    CompName = WshNetwork.Computername
    
    Dim WMI, Configs, Config, Adapters, Adapter
    
    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

    • Changed type Bill_Stewart Friday, July 7, 2017 6:33 PM
    • Moved by Bill_Stewart Friday, July 7, 2017 6:33 PM This is not "fix/debug/rewrite my script for me" forum
    Monday, May 22, 2017 7:15 AM

All replies