Public Function GetMACAddressEx(ServerName)
    Dim objs 'WbemScripting.SWbemObjectSet
    Dim obj 'WbemScripting.SWbemObject
    
    If ServerName = "" Then
        Set objs = GetObject _
           ("winmgmts:").ExecQuery( _
           "SELECT MACAddress " & _
           "FROM Win32_NetworkAdapter " & _
           "WHERE ((MACAddress Is Not NULL) " & _
           "AND (Manufacturer <> 'Microsoft'))")
    Else
        Set objs = GetObject _
           ("winmgmts://" & ServerName).ExecQuery( _
           "SELECT MACAddress " & _
           "FROM Win32_NetworkAdapter " & _
           "WHERE ((MACAddress Is Not NULL) " & _
           "AND (Manufacturer <> 'Microsoft'))")
    End If
    
    For Each obj In objs
        GetMACAddressEx = obj.MACAddress
        Exit For
    Next 
End Function

Wscript.Echo GetMACAddressEx("INSERT_SERVER_NAME_HERE!!")
Wscript.Echo "End"