Configure Application Compatibility mode (VBScript)

This code can be found in Chapter 17 of Windows Server 2003 Security 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 configures Application Compatibility mode.
' ------ SCRIPT CONFIGURATION ------
strComputer = "."
intRelaxEnabled = 1  ' 1 = Relaxed Security; 0 = Full Security
' ------ END CONFIGURATION ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colItems = objWMI.ExecQuery("Select * from Win32_TerminalServiceSetting")
for each objItem in colItems
WScript.Echo objItem.UserPermission
   objItem.UserPermission = intRelaxEnabled
   objItem.Put_
   WScript.Echo "Set Permission Compatibility to " & intRelaxEnabled
next

This code has been viewed 1502 times.

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