Change windows computer description via registry
‘ Change the Computers Current Computer Description
Set oShell = CreateObject(“Wscript.Shell”)
strDescriptionMod = inputbox(“Enter a New Computer Description”,””)
oshell.RegWrite “HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServiceslanmanserverparameterssrvcomment”, strDescriptionMod, “REG_SZ”