Get Network Computer Serial No Remotely Without Searching In CPU

Dear all We can Easily get Serial No From remote computer With-out Searching in the CPU cabinet.(Windows Os Only)
Just Copy and paste below Codes in Notepad And save it as anyname.VBS and Double Click On it then Enter Ip Address Or Computer name you Wish To Query.

On Error Resume Next
ComputerName = InputBox("Enter the name of the computer you wish to query")
winmgmt1 = "winmgmts:{impersonationLevel=impersonate}!//"& ComputerName &""
'WScript.Echo winmgmt1
Set SNSet = GetObject( winmgmt1 ).InstancesOf ("Win32_BIOS")
for each SN in SNSet
    MsgBox "The serial number for the specified computer is: " & SN.SerialNumber
Next
If Err.Number <> 0 Then ShowError("Failed To Conncet Specified Computer This May Be Problem With Authentication Or Remote Computer is Notavailable ")
Sub ShowError(strMessage)
    WScript.Echo strMessage
    Err.Clear
End Sub

Wait a moment while it display a Serial No. If You want Your Local Computer Serial No Just click Cancel On the Above window.

Enjoy.............