none
Dar Logoff quando fechar programa. RRS feed

  • Pergunta

  • Bom dia, estou com um problema e preciso de ajuda.

    O ambiente:

    Tenho um servidor com licença para Terminal Server aonde se logam varios usuários.

    As pólices configuradas permitem que os usuários acessem somente duas aplicações que iniciam no logon.

    O Problema:

    Alguns usuários fecham a aplicação principal , como a segunda roda em segundo plano, a sessão continua em aberto, o usuário fecha o acesso remoto sem dar logoff e quando loga novamente volta a mesma sessão com a aplicação fechada e sem desktop.

    Alguém conhece uma forma de força o logoff assim que o usuário fechar a aplicação ?

    Obrigado

    quinta-feira, 19 de maio de 2016 14:28

Todas as Respostas

  • Pq vc não coloca logof por inatividade?
    quinta-feira, 19 de maio de 2016 14:33
  • Flávio.

    Você pode tentar assim, coloque esse script para iniciar após a execução do executável da sua aplicação na sessão do usuário no terminal, o mesmo vai ficar monitorando a execução do executável da aplicação, quando o mesmo for finalizado ele ira realizar o logoff da sessão.

    Coloque o nome do executável da sua aplicação no lugar do notepad.exe "ProcWatch="notepad.exe""

    strComputer="."
    ProcWatch="notepad.exe"
    
    Set objShell = CreateObject("WScript.Shell")
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name ='" & ProcWatch & "'")
    Do Until colProcesses.Count = 0
    	wscript.Sleep 10000
    	Set colProcesses = objWMIService.ExecQuery _
    	("Select * from Win32_Process Where Name ='" & ProcWatch & "'")
    Loop
    
    objShell.Run ("%windir%\system32\logoff.exe")
    
    Set objShell = Nothing
    Set objWMIService = Nothing
    Set colProcesses = Nothing

    Uma outra dica esta neste site, veja qual seria o melhor caminho para o seu cenário.

    http://www.dicasquefunfa.com.br/2012/05/como-encerrar-uma-cessao.html


    Your potential. Our passion - Microsoft

    sexta-feira, 20 de maio de 2016 00:14