Summary:  Here is a vbs script that a customer actually wrote that changes the computer description based on serial number and model. He had his setup as a GPO that ran on each target. Since the computer description can be changed by the user, he set it to run on boot up and shutdown so it would always show the same:

 The VBS Script:

''''''

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colSettings = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")

Set colBIOS = objWMIService.ExecQuery ("Select * from Win32_BIOS")

For each objBIOS in colBIOS

    strSerial = objBIOS.SerialNumber

next

For Each objComputer in colSettings

    strModel = objComputer.Model

next

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set objRegistry = GetObject ("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters"

strValueName = "srvcomment"

strDescription = strModel & " - " & strSerial

objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strDescription ''''