TR Dojo: Enable and disable remote desktop on a Windows Server

June 28, 2010, 1:56 AM PST | Length: 250

Bill Detwiler shows you a cool registry hack that lets you remotely enable or disable remote desktop on a Windows Server. Once you’ve watched this TR Dojo video, you can find a link to the original TechRepublic article and print the tip from our TR Dojo Blog.


========================================================================== 'Script_Name : Enable_RDP_Remotely.vbs 'Description : This script enables the Remote desktop functionality remotely ' The script perform registry changes. In order to apply those changes ' a reboot is required...... 'Date : 19/11/2005 'Version: 0.1 'Written by : Claudio Manes (aka Griffon) 'Remarks and Limitations : Works for WinXP and Windows 2003 Servers. Win2000 has not been tested Yet ' A Reboot is required '========================================================================== 'Error Handling, Declare Constants and Variable... '-------------------------------------------------- On Error Resume Next Const HKEY_LOCAL_MACHINE = &H80000002 dim vbYesNo dim vbQuestion vbYesNo = 4 vbQuestion = 48 'Create inputbox in order to collect the computer Name '------------------------------------------------------ StrComputer=InputBox("Enter Name of the Remote Computer...","Connect to Remote Computer") 'Connect to the Remote Registry using WMI space...We assume that you have administrative rights '----------------------------------------------------------------------------------------------- Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") 'Error handling...if not able to connect to the remote will be notified '------------------------------------------------------------------------------------- If Err.Number 0 Then MsgBox "Error. Computer not accessible...Possible reasons" & vbcrlf & vbcrlf &_ "1.the computer name is incorrect" & vbcrlf & _ "2.the computer is not running... " & vbcrlf & _ "3.the currently logged-on user has no admin rights"& vbcrlf & vbcrlf &_ "End of Script",64,"An Error occured" WScript.Quit() End If 'to enable remote desktop, 'registry key HKLM\System\CurrentControlSet\Control\Terminal Server\fsDenyTSConnections 'should be set to 0 strKeyPath = "System\CurrentControlSet\Control\Terminal Server" strValueName = "fDenyTSConnections" dwValue = 0 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue 'Ask the User if he wants to reboot the machine right now or do it later.... '--------------------------------------------------------------------------- retry= msgbox ("A Reboot is required in order to apply the changes" & vbcrlf & _ "Do you want to reboot the remote computer Now ?",52,"Reboot the Remote Machine") Select Case retry Case vbYes 'WMI Code used to reboot the remote computer Set oWMI = GetObject("winMgmts:\\"& strComputer) Set colComputers = oWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem") For Each refComputer In colComputers If refComputer.Reboot() 0 Then WScript.Echo "Reboot failed" Else WScript.Echo "Computer rebooted" WScript.echo " Action completed sucessfully " End If Next Case vbNo WScript.Echo("Changes will not be applied for the moment") End Select