Find Server Serial no by VBS

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colBIOS = objWMIService.ExecQuery _

    ("Select * from Win32_BIOS")

For each objBIOS in colBIOS

    Wscript.Echo "Manufacturer: " & objBIOS.Manufacturer

    Wscript.Echo "Serial Number: " & objBIOS.SerialNumber

Next

Find Server Serial no by VBS

Find your machine's serial number (DELL, IBM and HP)

Serial number checker to get S/N in Windows environment (2000/XP/2003)

http://h41111.www4.hp.com/hps/carepack/emea_middle_east/en/getserial.html

Find your machine's serial number (DELL, IBM and HP)