?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)