[Iska]

Аналогичнейшим же вышеприведённому скрипту amel27 [он, скорее всего, просто промахнулся в определении]:

Код:

strDestIPAdress = "192.168.0.1"

Set objWMIService = GetObject("winmgmts:\\" & strDestIPAdress & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery( _
    "Select Caption, IPAddress, MACAddress From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards
    For Each elem In objNetCard.IPAddress
        If elem = strDestIPAdress Then
            WScript.Echo objNetCard.Caption, objNetCard.MACAddress
        End If
    Next
Next