como derrubar usuário Win pelo prg

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

paiva_dbdc
Usuário Nível 3
Usuário Nível 3
Mensagens: 342
Registrado em: 12 Nov 2012 09:58
Localização: uberlandia mg

como derrubar usuário Win pelo prg

Mensagem por paiva_dbdc »

Boa noite

como posso fazer logoff de um determinado usuario Win ?

Motivo: como trabalho pelo TS e se por acaso um usuario TS ficar travado

pelo proprio sistema acessado em outro terminal faria o Logoff do usuario
TRAVADO.

ai NAo precisaria usar o aplicativo de gerenciamento de terminais e fazer
por la.

APROVEITANDO...

ai tambem poderia derrubar o usaurio em um W7 Emulando o TS ?!....
acredito que seria === correto ?


Paiva
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

como derrubar usuário Win pelo prg

Mensagem por alxsts »

Olá!

Talvez este artigo ajude: How to logoff remote desktop sessions via command line tools?

Procure no Google por "kill sessions in windows". Tem muita coisa...
[]´s
Alexandre Santos (AlxSts)
Kapiaba
Colaborador
Colaborador
Mensagens: 1908
Registrado em: 07 Dez 2012 16:14
Localização: São Paulo
Contato:

como derrubar usuário Win pelo prg

Mensagem por Kapiaba »

Não tenho certeza se funcionará, mas podeis usar o comando SHUTDOWN do próprio windows para fazer logoff. abs.
Kapiaba
Colaborador
Colaborador
Mensagens: 1908
Registrado em: 07 Dez 2012 16:14
Localização: São Paulo
Contato:

como derrubar usuário Win pelo prg

Mensagem por Kapiaba »

Talvez possa te ajudar:

Código: Selecionar todos

/*
   Copyright (C) 1999  Jose Lalin <dezac@corevia.com>

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version, with one exception:

   The exception is that if you link the Harbour Runtime Library (HRL)
   and/or the Harbour Virtual Machine (HVM) with other files to produce
   an executable, this does not by itself cause the resulting executable
   to be covered by the GNU General Public License. Your use of that
   executable is in no way restricted on account of linking the HRL
   and/or HVM code into it.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
   their web site at http://www.gnu.org/).
*/

// #Include "FiveWin.Ch"

#Define EWX_LOGOFF   0
#Define EWX_SHUTDOWN 1
#Define EWX_REBOOT   2
#Define EWX_FORCE    4
#Define EWX_POWEROFF 8

CLASS TShutDown

  DATA nError PROTECTED

  METHOD New() INLINE Self

  // Terminates all apps and logs off the current user
  METHOD LogOff()   INLINE ::nError := ExitWndEx( EWX_LOGOFF, 0 )

  // Shuts down the computer
  METHOD ShutDown() INLINE ::nError := ExitWndEx( EWX_SHUTDOWN, 0 )

  // Rebootes the pc
  METHOD Reboot()   INLINE ::nError := ExitWndEx( EWX_REBOOT, 0 )

  // Forces all processes to terminate. This can cause
  // the application lose data if not saved
  METHOD Force()    INLINE ::nError := ExitWndEx( EWX_FORCE, 0 )

  // Shuts down the computer and turns off power
  METHOD PowerOff() INLINE ::nError := ExitWndEx( EWX_POWEROFF, 0 )

ENDCLASS

DLL32 FUNCTION ExitWndEx( uFlags AS DWORD, dwRes AS DWORD ) ;
      AS BOOL PASCAL FROM "ExitWindowsEx" LIB "User32.dll"
Avatar do usuário
dbsh
Usuário Nível 3
Usuário Nível 3
Mensagens: 128
Registrado em: 14 Jul 2004 14:19
Localização: ES

como derrubar usuário Win pelo prg

Mensagem por dbsh »

Para quebrar o galho este script em bat e rápido e fácil, e funciona com qualquer windows
você pode escolher qual seção você quer derrubar

Código: Selecionar todos

@echo off
qwinsta
set opcao=
set /p "opcao=>Digite ID da secao: "
echo opcao

IF "%opcao%"=="0" goto fim
IF "%opcao%"=="" goto fim

rwinsta %opcao%

:FIM

Já este derruba todas as seções
o primeiro script eu testei já este não deu para testar, iria derrubar todas seções de trabalho do cliente

Código: Selecionar todos

for /f "skip=1 tokens=3" %%a in (qwinsta) do rwinsta %%a
for /f "skip=1 tokens=2" %%a in (qwinsta) do rwinsta %%a
Se você quiser só desconectar as seções sem derrubar troque de rwinsta por tsdiscon
pode chamar do console ou de uma outra seção
010011110010000001110011011101010110001101100101011100110111001101101111001000001110100100100000011000110110111101101110011100110111010001110010011101011110110101100100011011110010000001100001001000000110111001101111011010010111010001100101
01001101011000010111001001100011011011110111001100100000010000010110111001110100011011110110111001101001011011110010000001000100011001010010000001000010011011110110111001101001
0101010001100101011011000011101000100000001010000011001000110111001010010011100100101101001110010011100000110100001100110010110100110101001100100011100100110000
Responder