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 : Sélectionner tout - Visualiser dans une fenêtre à part
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"