VBScript to Get a PC’s Serial Number

Most manufacturers of PC equipment incorporate an electronic serial number into their hardware.  This makes it easy for inventory systems to gather and track machines by their serial numbers.  You may find a need to obtain a PC’s serial number in  your script.  If WMI has the serial number in its data, this script will retrieve it for you. If not, it returns "".

'
' Gets the serial number for the PC hardware
'
function getPCSerialNumber(strComputer)

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 

   Set colItems = objWMIService.ExecQuery( _
       "SELECT * FROM Win32_ComputerSystemProduct",,48) 

   theValue = ""

   For Each objItem in colItems 
       theValue = objItem.IdentifyingNumber
   Next

   getPCSerialNumber = theValue

end function