Written by:R Teachout
11/17/2006 2:22 AM

strComputer = "."
' Change The Line Above to be similar to the following commented line
' strComputer = "192.168.x.x"
' and it will enable on a remote machine instead of the local machine
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colTSSettings = objWMIService.InstancesOf("Win32_TerminalServiceSetting")
For Each colTS in colTSSettings
colTS.SetAllowTSConnections(1)
Next
wscript.echo "Enabled on " & strComputer
EnableRemoteDesktop.vbs.txt

TrackbackPrint

Location: BlogsRamblings, Scriptlets, and more!VBS / Administration Scriptlets