SUPINFO International University

SUPINFO Institute of Information Technology
Laboratoire Microsoft




Activation du Bureau à distance (Terminal services)

Accueil > Script > maintenance > Activation du Bureau à distance (Terminal services)

Activation du Bureau à distance (Terminal services)

Par Nicolas MILBRAND, LABORATOIRE SUPINFO DES TECHNOLOGIES MICROSOFT
Publiée le 12/02/2005 vers 12h.

Description :
Ce script VBS permet d'activer le Bureau à distance.

Script :

Pour activer le service du bureau à distance (Terminal services) : 1 et 0 pour le désactiver

Const ENABLE_CONNECTIONS = 0

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_TerminalServiceSetting")
For Each objItem in colItems
errResult = objItem.SetAllowTSConnections(ENABLE_CONNECTIONS)
Next



Proposer un script

Notre avis :

Votre avis :

Réactions :
0

Votants :
60

Visites :
15942

1
2
3
4
5




Retrouvez ci-dessous les autres sections du Laboratoire Microsoft