Un esigenza tipica dei sistemisti è quella di controllare in remoto i vari client tramite funzionalità  di desktop remoto. Potrebbe però essere necessario connettersi a client la cui configurazione non è nota o che non possiedono alcun software VNC o simili.

Il desktop remoto di windows sfrutta il protocollo RDP ed è presente in tutte le versioni di windows e, seppur con qualche differenza ci permette di controllare il desktop del computer target in maniera molto efficiente. Il lato negativo è che in genere tale funzionalità  non è abilitata a meno che non si configura il tutto manualmente tramite le propietà  del sistema.

In uno scenario di rete aziendale dove tipicamente gli amministratori possiedono i diritti sui computer target (es. gruppo omain Admins o simili) si può utilizzare lil codice vbs riportato di seguito:

1
2
3
4
5
6
7

strComputer = InputBox ("Inserisci il nome del computer da abilitare")
Set objWMIService = GetObject("winmgmts:!\" & strComputer & "rootcimv2")
Set colTSSettings = objWMIService.InstancesOf("Win32_TerminalServiceSetting")
For Each colTS in colTSSettings
colTS.SetAllowTSConnections(1)
Wscript.Echo UCase(strComputer) & " Il desktop remoto è stato abilitato correttamente !"
Next

strComputer = InputBox ("Inserisci il nome del computer da abilitare")
Set objWMIService = GetObject("winmgmts:!\" & strComputer & "rootcimv2")
Set colTSSettings = objWMIService.InstancesOf("Win32_TerminalServiceSetting")
For Each colTS in colTSSettings
colTS.SetAllowTSConnections(1)
Wscript.Echo UCase(strComputer) & " Il desktop remoto è stato abilitato correttamente !"
Next

E’ sufficiente copiare il tutto su un file di testo avendo cura di salvarlo come file vbs (Visual Basic Script).
Facile ed immediato !

Attenzione: per poter effettuare l’accesso al computer remoto una volta effettuata la connessione bisogna essere membri del gruppo locale “Remote desktop user”. I Domain admins possono accedere in remoto a qualsiasi client del dominio.