‘ 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”