Disable manage server screen2 (VBScript)

This code can be found in Chapter 2 of Windows Server Cookbook

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the VBScript code from this site.

' This code sets the Manage/Configure Your Server screen for
' the currently logged on user.
' ---------------------------------------------------------------
' From the book "Windows Server Cookbook" by Robbie Allen
' ISBN: 0-596-00633-0
' ---------------------------------------------------------------

' ------ SCRIPT CONFIGURATION ------
intEnable = 1   ' 0 = disable screen; 1 = enable screen
strComputer = "."
' ------ END CONFIGURATION ---------
const HKCU   = &H80000001
strKeyPath   = "Software\Microsoft\Windows NT\CurrentVersion\Setup\Welcome\srvWiz"
set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
intRC = objReg.SetDwordValue(HKCU, strKeyPath, "", intEnable)
if intRC <> 0 then
   WScript.Echo "Error setting registry value: " & intRC
else
   WScript.Echo "Successfully disabled screen"
end if

This code has been viewed 910 times.

New from the creators of TechTasks.com: StatSheet.com