VBS Script to enable or disable remote desktop on a remote system

For those times when you need to remote into a system and remote desktop is disabled, the below script can come in very handy.

 ' This script will enable or disable remote desktop on a remote system  
 const HKEY_LOCAL_MACHINE = &H80000002  
 strComputer = InputBox("Enter the COMPUTER NAME of the system you would like to enable or disable Remote Desktop: leave as localhost for this computer","Enable or Disable Remote Desktop","Localhost")  
 If strComputer = "" Then  
 WScript.Quit  
 End If  
 Set StdOut = WScript.StdOut  
 On Error Resume Next  
 Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_  
 strComputer & "rootdefault:StdRegProv")  
 If Err.Number <> 0 Then  
 WScript.Echo "An error has occurred. You may have mistyped the computer name."  
 WScript.Quit  
 End If  
 strKeyPath = "SYSTEMCurrentControlSetControlTerminal Server"  
 strValueName = "fDenyTSConnections"  
 oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue  
 If dwValue = 1 Then  
 prompt = MsgBox ("Remote Desktop is Currently disabled. Do you want to ENABLE it?", vbYesNo)  
 If prompt = vbYes then  
 dwValue = 0  
 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue  
 WScript.Echo "Remote Desktop is now ENABLED on " & strComputer  
 WScript.Quit  
 ElseIf prompt = vbNo then  
 WScript.Echo "Remote Desktop is still DISABLED."  
 Wscript.Quit  
 End If  
 ElseIf dwValue = 0 then  
 prompt = MsgBox ("Remote Desktop is Currently ENABLED. Do you want to DISABLE it?", vbYesNo)  
 If prompt = vbYes then  
 dwValue = 1  
 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue  
 WScript.Echo "Remote Desktop is now DISABLED on " & strComputer  
 WScript.Quit  
 ElseIf prompt = vbNo then  
 WScript.Echo "Remote Desktop is still ENABLED."  
 WScript.Quit  
 End If  
 End If