Submitted By: Jeremy McGuinn

Enables Remote Desktop on any computer (including a remote computer).

Visual Basic
Edit|Remove
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