?Tell the script to accept no undefined variables. Option Explicit ?Define the variables to use. Dim oWshShell ?Create an object representing the Windows graphical shell. Set oWshShell = CreateObject(«Wscript.Shell») ?Assign this subkey a value of 18. oWshShell.RegWrite («HKLMSOFTWAREMicrosoftWindows NTCurrentVersionTerminal ServerCompatibilityApplicationsAppNameFlags», 18)