How to find PC serial No. remotely?

It’s a WMI script in which you have to enter the hostname/IP Address of target comp. and you will get the desired Serial No. in a flick of your eye. Just copy the below code to a new file named

Serial no. finder.txt and save it as .vbs file. Below are the codes :

On Error Resume Next

Dim System

if Wscript.Arguments.Count >0 then

sSystem=Wscript.Arguments(0)

end if

ComputerName = InputBox("Enter the name of the computer you wish to query")

winmgmt1 = "winmgmts:{impersonationLevel=impersonate}!//"& ComputerName &""

Set SNSet = GetObject( winmgmt1 ).InstancesOf ("Win32_BIOS")

for each SN in SNSet

MsgBox "The serial number for the specified computer is: " & SN.SerialNumber

Next

Happy Working J J J