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:
- Tips : How To Skip 60 seconds When Downloading DepositFiles
- Backtrack : TestDisk ( Digital forensics ,forensics analysis)
- LINUX : Control users loggin /etc/passwd file
- News : Hackers winning the security battle, says Cisco
- Security :OpenDNS – For Secure and Reliable Internet Surfing