VBS script to add computer serial number

[JCSDBill]

Does anyone know a way to add the serial number of a computer to Server 2003 AD to display when viewing computer objects? Heard it could be done.
Any help is appreciated.

 

[JCSDBill]

Just for clarification - I would like to add the serial number in the DESCRIPTION field for the computer object...

 

[GrimR]

I have this which adds the users name. Maybe you can modify it

On error resume next
Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set objRegistry = GetObject _
    ("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment("Process")


Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

strName = objUser.FullName
strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters"
strValueName = "srvcomment"
strDescription = strName

objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strDescription

MCITP:EA/SA, MCSE, MCSA, MCDBA, MCTS, MCP+I, MCP