[Iska]

Вот ещё один вариант, с использованием сторонней библиотеки:

Код:

Option Explicit

Const sscNBSTATSuccess = 0

Dim objNBTNetwork
Dim strMACAddress
Dim strDestAddress


strDestAddress = "192.168.223.3"

' «SScripting.NBTNetwork» из библиотеки «System Scripting Runtime» (http://www.netal.com/ssr.htm)
Set objNBTNetwork = WScript.CreateObject("SScripting.NBTNetwork")

If objNBTNetwork.QueryNodeStatus(strDestAddress, 1000, strMACAddress) = sscNBSTATSuccess Then
    WScript.Echo strMACAddress
Else
    WScript.Echo "Can't connect to [" & strDestAddress & "]."
End If

WScript.Quit 0