How to find the serial number of remote a computers in your network.

copy past the following code in notepad and save in "*.vbs" file. then double on it, it will ask for computer name. just enter the name of computer in your network and it will show you its serial number.

==============================//////======================
On Error Resume Next
Dim strComputer
strComputer = InputBox("Enter the name of the computer:")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSMBIOS = objWMIService.ExecQuery ("Select * from Win32_SystemEnclosure")
For Each objSMBIOS in colSMBIOS
MsgBox strComputer & ": " & objSMBIOS.SerialNumber
Next
===========///////================================///////=====

Or login remotely to that system and type the following command.

C:\Users\Administrator>wmic bios get serialnumber