Modification de fichier pour connexion TSE

Bonjour,

nous avons Windows Server 2003 R2 et des clients légers en TSE.

Les clients légers sont des Wyse V90L avec Windows XPE et des HP t5740e avec Windows 7E

J'ai récupéré ce script qui permet au client léger de démarrer directement en TSE.

Mais on a le problème suivant: lorsqu'on ferme la fenêtre du bureau à distance on tombe sur un écran vide sans aucune possibilité, ni de se reconnecter sur le serveur, ni de changer de session, ni d'éteindre le client, ni d'accéder au bureau de l'utilisateur via l'OS embarqué des clients légers.

Donc est-il possible en modifiant le script pour les clients destinés aux élèves:
-que l'élève ait la possibilité de fermer sa session
-de changer de session
-et d'éteindre le client.

En vous remerciant d'avance, voici le script (je n'y connais rien en VBScript):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 On Error Resume Next Set fs = CreateObject ("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject ("WScript.Shell") 'Get the username and profile directory MUser = WshShell.ExpandEnvironmentStrings ("%USERNAME%") MUserProfile = wshShell.ExpandEnvironmentStrings("%USERPROFILE%") 'Delete icons fs.DeleteFolder MUserProfile & "\Start Menu\Programs\Accessories",True fs.DeleteFile MUserProfile & "\Start Menu\Programs\*.lnk" 'Run the app wshShell.Run "C:\Windows\System32\mstsc.exe" ' Connect to wmi set objWMIService = GetObject("winmgmts:root\cimv2") Do found = false ' List the processes strQuery = "Select * from win32_process where name='mstsc.exe'" set colProcesses = objWMIService.ExecQuery(strQuery) for each proc in colProcesses ' Get the reference class linking processes to sessions to get the session object path strQuery = "References of {win32_process.handle='" & proc.handle & "'} where ResultClass=Win32_SessionProcess" set colSessionReferences = objWMIService.ExecQuery(strQuery) for each oSessionReference in colSessionReferences 'Get associators of the session object that are user accounts (linked by win32_loggedonuser) strQuery = "Associators of {" & oSessionReference.antecedent & "} where AssocClass=win32_LoggedOnUser" set colUsers = objWMIService.ExecQuery(strQuery,,48) for each user in colUsers if user.name = MUser then found = true next next next Loop While found = true 'Run the Windows 2003 logoff utility wshShell.Run "c:\windows\system32\logoff.exe"