open windows registry [ start > Run > Regedit.exe hit Enter ]
Hive: HKEY_LOCAL_MACHINE
Key: \System\CurrentControlSet\Control\Terminal Server\
Name: fsDenyTSConnections
Type: REG_DWORD
Value: 0=Enable this key, that is Remote Desktop Connection
Value: 1=Disable this key, that is Dont allow remote person to Connect to the computer
if u are an Administrator and if u want to enable remote desktop connection remotely then i have a small script..
‘======================================================
‘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……
‘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 machine…you 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.SetDWORDValueHKEY_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
