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




For Each objComputer in colSettings

    strModel = objComputer.Model



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 ''''