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