getmac.vbs

Option Explicit

Dim oWim, items, item, info, comp

comp = "."

If WScript.Arguments.Count > 0 Then
	comp = WScript.Arguments.Item(0)
End If

Set oWim = GetObject("winmgmts:\\" & comp & "\root\cimv2")
Set items = oWim.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE DNSDomain IS NOT NULL")

For Each item In items
	info = info & item.IPAddress(0) & ": " & item.MACAddress & VBNewLine
Next

WScript.Echo info