Bir alttaki postta registry ile değiştirilen ayarın Vb.script ile yapılışı :
Just incase you’re too lazy to walk down to the server room… a co-worker just sent out the following VBS script to remotely enable’remote desktop’.
strComputer = “SERVERNAME.GOES.HERE.COM”
Set objWMIService = GetObject(“winmgmts:”_
& “{impersonationLevel=impersonate}!\\”; & strComputer & “\root\cimv2”)
Set colTSSettings = objWMIService.InstancesOf(“Win32_TerminalServiceSetting”)
For Each colTS in colTSSettings
colTS.SetAllowTSConnections(1)
Next
Update
Another cohort has an even easier way. From the command line:
WMIC /NODE:”ServerName” /USER:”DomainName\Administrator” /PASSWORD:”Password” RDTOGGLE WHERE ServerName=”ServerName” CALL SetAllowTSConnections 1