WISDOMBAY

WINDOWS SCRIPTING CORNER @ WISDOMBAY

A periodic Section maintained by Pramod S Nair

19. A Windows Script that gets MAC Address of a Remote Machine

Posted on WisdomBay @ 5:50 AM 22-04-2006 | Post by Pramod S Nair

This script can be used to get the MAC Address or Physical Address of a Remote machine provided, the Hostname or IP Address of that machine is known.

'A Windows Script that deals with the output from a shell command 'This example deals in finding the MAC Address of a Remote Machine, provided it's Ip or hostname is inputted. 'Compiled by Pramod S Nair 'http://www.wisdombay.com 'Written 4:09 PM 04/21/2006 Dim objWshShell Dim objEx dim intInterfaceNo dim rmMachine Set objWshShell = CreateObject("WScript.Shell") 'get user input rmMachine = InputBox("Remote Machine Name/IP Address : ","Remote Logical Address") if rmMachine<>"" Then 'We are going to execute the nbtstat -a hostname command in a cmd shell launched with /c param. so it quits after execution strToExec = "nbtstat -a " & rmMachine 'Make an Exec Obj Set objEx = objWshShell.Exec(strToExec) 'Now go through the output from the shell command and weed out the line in which we are interested Dim strOut strOut = "MAC Address of " & rmMachine & " is " Do While objEx.StdOut.AtEndOfStream <> True 'get current line strCurLine = objEx.StdOut.ReadLine 'GET MAC ADDRESS 'Look out for a line with MAC Address = If InStr(strCurLine,"MAC Address =") Then strAr = split(strCurLine,"=") dim rMac rMac = strAr(1) End If Loop If len(trim(rMac))=0 Then strOut = strOut & "Not Available. " & vbnewline & "Please check the hostname/ip address (" & rmMachine &") that you provided" Else strOut = strOut & strAr(1) End If WScript.Echo strOut End If 'End of Script

How to use :
1. Copy the code given above to clipboard.
2. Create a new file and name it as you like with a '.vbs' extension.
3. Now you can use this script for getting the Physical address or MAC Address of a Remote PC .