none
Client léger et connexion TSE RRS feed

  • Discussion générale

  • Bonjour,

    nous avons Windows Server 200 R2 en TSE.

    Nous avons aussi des clients légers Wyse V90L avec Windows XPE et 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.

    En fait comme j'ai deux types d'utilisateurs, j'aimerais avoir:

    • surtout pour l'utilisateur  "Elève": la possibilité de fermer sa session, de changer de session et d'éteindre le client.
    • pour l'utilisateur "Professeur": la possibilité de de fermer sa session, de changer de session, de basculer sur le bureau du client (où je mettrai un raccourci lui permettant de se reconnecter sur le serveur) et évidemment d'éteindre le client.
      Pour le professeur, je pense leur laisser l'accès total au client sans restriction. De toutes les façons, ils ne pourront rien modifier. Donc pas besoin de script.

    Quelqu'un peut-il m'aider en modifiant le script pour que je le mette sur les clients destinés aux élèves?

    En vous remerciant d'avance, le voici:

    [quote]

    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"

    [/quote]

    dimanche 22 décembre 2013 07:16

Toutes les réponses