Enables Remote Desktop on any computer (including a remote computer)
Note : I tested in my Windows Xp and Windows 7 .Work great !!!
Save as .vbs and execute.
Dim strPC
strPC = InputBox(“What machine would you like to connect to and enable remote desktop?”, _
“Connect to Server”)
set oRD = GetObject(“winmgmts:{impersonationLevel=impersonate}!//”& strPC & _
“/root/cimv2″).InstancesOf(“Win32_TerminalServiceSetting”)
For each srv in oRD
If srv.AllowTSConnections <> 1 Then
result=srv.SetAllowTSConnections(1)
MsgBox “Remote Desktop Now enabled”
Else
MsgBox “Remote Desktop is already enabled”
end If
Next
Thanks to Jeremy McGuinn
Possibly Related Posts:
- Linux local privilege escalation via SUID
- CisCo : Installing the VSG ( Virutual Security Gateway ) Software from an ISO File
- Cisco : How to install SSL cert on Cisco ACS ?
- News : Have Facebook accounts been hacked in Bangalore?
- News : Hackers break SSL encryption used by millions of sites