'============================================================== ' Get IP script v1.0 Created by: Jim Parsons 10/19/05 ' Purpose: Get MAC address ' Required: Win XP / 2000 ' Free to use and abuse '============================================================== On Error Resume Next Set objShell = CreateObject("WScript.Shell") strIP = inputbox("Enter Host name or IP address: ") Set objExec = objShell.Exec("nbtstat -a " & strIP) strNBTSTAT = LCase(objExec.StdOut.ReadAll) result1 = InStr(1, strNBTSTAT, "mac address") '+1 If result1 = 0 Then wscript.echo "No response or not a valid Host/IP" CleanUp wscript.quit Else strTextFinal = Mid(strNBTSTAT, result1, 31) 'wscript.echo strTextFinal FINAL_MESSAGE = objShell.Popup(strTextFinal,,"GET MAC SCRIPT v1.0 © Jim Parsons", 0 + 64) End If CleanUp wscript.quit Sub CleanUp() Set objshell = nothing Set objExec = nothing End Sub