AjpdSoft Información Usuarios Terminal Server

Nueva descarga de la aplicación AjpdSoft Información Usuarios Terminal Server. Con esta aplicación podrás saber qué usuarios hay conectados a los servidores de Terminal Server, en qué servidor está cada usuario, hora de inicio de sesión, número de veces que se ha conectado, denegar/permitir acceso al servidor, establecer un servidor de Terminal Server como preferido, hacer control remoto automáticamente a un usuario, etc.

Imaginemos esta situación y la problemática que conlleva:

Desde que nuestra empresa empezó a crecer en volumen de usuarios tuvimos que ir aumentando proporcionalmente el número de servidores de Terminal Server. Actualmente contamos con 4 servidores con Windows 2003. El problema surgió a partir de la adquisición del segundo servidor. Actualmente tenemos 250 usuarios conectados a los tres servidores de Terminal Server. Nuestros técnicos informáticos, cuando tienen que hacer control remoto a algún usuario que haya conectado a algún servidor de Terminal Server, a veces les es casi imposible saber en qué servidor está el usuario al que le tienen que hacer control remoto. Para averiguar en qué servidor está el usuario utilizaban varios métodos:

Preguntar directamente al usuario: hay usuarios que sí saben en qué servidor están conectados, en cambio otros no lo saben.
Tener un inventario de los usuarios y a qué servidores se les conecta: este inventario suele estar desactualizado y, lo que es peor , determinados usuarios saben cambiar el servidor al que se conectan.
Buscar desde el «Administrador de Servicios de Terminal Server», servidor por servidor, donde se haya el usuario en cuestión.

Tras analizar la problemática, nuestros desarrolladores informáticos, junto con nuestros administradores de sistemas se pusieron manos a la obra, para intentar solucionar este problema. La solución a este problema requiere una parte de desarrollo y otra de administración de sistemas.

En primer lugar desarrollaron un script que se ejecuta al inicio de cada sesión de Terminal Server. Este script (desarrollado en Delphi) realiza las siguientes tareas (entre otras):

Comprueba si existen determinadas carpetas, si no existen las crea en el perfil del usuario que inicia sesión en Terminal Server. Estas carpetas son necesarias para la aplicación de Facturación de nuestra empresa.
Escribe un valor en una clave de un fichero .ini de una aplicación, en concreto escribe la ruta del perfil del usuario que inicia sesión en Terminal Server. Este dato es necesario para la aplicación de Contabilidad de la organización.
Copia ficheros de una ubicación a la carpeta «Windows» del perfil del usuario que inicia la sesión de Terminal Server. Estos ficheros son necesarios para el correcto inicio de la aplicación de Gestión de nuestra organización.
Guarda en un fichero .ini de información los datos del usuario que inicia sesión en Terminal Server: nombre de usuario, nombre del servidor de Terminal Server al que se ha conectado, nombre de red del equipo cliente del usuario, fecha y hora de inicio de sesión, número de conexiones que ha realizado el usuario, permiso de acceso al servidor, servidor preferido (si se conecta a uno distinto se le cerrará la sesión, si así se ha configurado).

Evidentemente, de las tareas que realiza el script de inicio de sesión (pulsa aquí para ver un manual sobre cómo realizar un script para inicio de sesión de Terminal Server), la que comentaremos en este artículo es la última (marcada en negrita). El código en Delphi 6 del script para realizar esta tarea es el siguiente:

program inicioSesion;

{$APPTYPE CONSOLE}

uses
  SysUtils, inifiles, Dialogs, windows, Classes, shellapi, Controls;


function obtenerDirectorioWindows : TFileName;
var
  WinDir: array [0..MAX_PATH-1] of char;
begin
  SetString(Result, WinDir, GetWindowsDirectory(WinDir, MAX_PATH));
end;


function obtenerDirectorioSistema : TFileName;
var
  SysDir: array [0..MAX_PATH-1] of char;
begin
  SetString(Result, SysDir, GetSystemDirectory(SysDir, MAX_PATH));
end;


function ejecutarEsperar (aplicacion: String; parametros : string): Cardinal;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;

begin
  Result := 0;

  FillChar(StartInfo, SizeOf(StartInfo), 0);
  StartInfo.cb := SizeOf(StartInfo);

  if CreateProcess(
    PChar(aplicacion), PChar(parametros), nil, nil, false, 0,
    nil, nil, StartInfo, ProcInfo)
  then
    Result := ProcInfo.hProcess;
end;


function ejecutarFichero (fichero, parametros : string) : boolean;
var
  resEj : THandle;
begin
  resEj := 0;
  resEj := ShellExecute(resEj, 'open', PChar(fichero),
        PChar(parametros), nil, SW_SHOWNORMAL);
  if resEj < 32 then
  begin
    result := false;
  end
  else
  begin
    result := true;
  end;
end;


function obtenerVariableEntorno (variable : string) : String;
var
  Env : PChar;
  valorVariable : string;
begin
  Result := '';
  Env := GetEnvironmentStrings;
  While Env^ <> #0 do
  begin
    valorVariable := StrPas(Env);
    if Pos (variable, valorVariable) = 1 then
    begin
      Result := copy (valorVariable, length(variable) + 1,
          length(valorVariable));
      exit;
    end;
    Inc(Env, StrLen(Env) + 1);
  end;
end;


procedure cerrarSesion;
var
  rl, flgs : Cardinal;
  hToken : Cardinal;
  tkp : TOKEN_PRIVILEGES;
begin
  flgs := 0;
  flgs := (flgs and (not (EWX_REBOOT or EWX_SHUTDOWN or EWX_POWEROFF))) or EWX_LOGOFF;
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    if not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES
             or TOKEN_QUERY, hToken) then
      //silenciosa
    else
    begin
      if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then
      begin
        tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
        tkp.PrivilegeCount           := 1;
        AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);
        if GetLastError <> ERROR_SUCCESS then
          Writeln('Se ha producido un error al intentar ajustar los privilegios.');
      end;
    end;
  end;
  //     else begin
  ExitWindowsEx(flgs, 0);
  //     end;
end;


var
  rutaPerfil : string;
  nombreServidor : string;
  nombreUsuario : string;
  nombreEquipoCliente : string;
  numConexiones : integer;
  avisarUsuario : Boolean;
  nombreServidorPref : string;
  mensaje : string;
  permitirInicio : Boolean;
  cerrarSesionUsuario : Boolean;
  iniciarSTS : Boolean;
  controlRemoto : Boolean;
  usuAdministrador : Boolean;
  usuControlRemoto : string;
  listaFichero : TStringList;
  idSesion : string;
  numProceso : Cardinal;
const
  docInfo = '//servidor/netlogon/info.ini';

begin
  try
    //comprobamos si le corresponde iniciar sesión en este servidor
    nombreServidor := obtenerVariableEntorno ('COMPUTERNAME=');
    nombreUsuario :=  obtenerVariableEntorno ('USERNAME=');
    with tinifile.create (docInfo) do
    try
      nombreServidorPref := ReadString (nombreUsuario, 'Servidor preferido', '');
      avisarUsuario :=  readBool (nombreUsuario, 'Mostrar aviso', false);
      permitirInicio := readBool (nombreUsuario, 'Permitir inicio sesión', true);
      cerrarSesionUsuario := readBool (nombreUsuario, 'Cerrar sesión', false);
    finally
      free;
    end;
    if not permitirInicio then
    begin
      if avisarUsuario then
        MessageDlg('Atención: no tiene permiso para inciar sesión. Consulte ' +
            'con el departamento de Nuevas Tecnologías. ' +
            'Pulse Aceptar para cerrar la sesión.', mtWarning, [mbok], 0);
      cerrarSesion;
    end;
    if avisarUsuario and (AnsiUpperCase (nombreServidor) <>
        AnsiUpperCase (nombreServidorPref)) then
    begin
      if cerrarSesionUsuario then
        mensaje := 'Atención: su servidor por defecto es [' +
            nombreServidorPref + ']. Se ha conectado a [' +
            nombreServidor + '].' + chr(13) + chr(13) + chr(13) +
            'Pulse Aceptar para cerrar la sesión.'
      else
        mensaje := 'Atención: su servidor por defecto es [' +
            nombreServidorPref + ']. Se ha conectado a [' +
            nombreServidor + '].';
      MessageDlg(mensaje, mtWarning, [mbok], 0);
      if cerrarSesionUsuario then
      begin
        cerrarSesion;
      end;
    end;
    //***** FIN comprobamos si le corresponde iniciar sesión en este servidor

    rutaPerfil := obtenerVariableEntorno ('USERPROFILE=');


    //*******PARA GUARDAR EN QUÉ SERVIDOR ESTÁ CADA USUARIO *******
    nombreEquipoCliente :=  obtenerVariableEntorno ('CLIENTNAME=');
    //escribimos en info.ini los datos del usuario
    with tinifile.create (docInfo) do
    try
      numConexiones := ReadInteger (nombreUsuario, 'Nº Conexiones', 0);
      numConexiones := numConexiones + 1;
      writeString (nombreUsuario, 'Servidor', nombreServidor);
      writeString (nombreUsuario, 'Equipo cliente', nombreEquipoCliente);
      writeString (nombreUsuario, 'Hora Inicio sesion', datetimetostr(now));
      WriteInteger (nombreUsuario, 'Nº Conexiones', numConexiones);
    finally
      free;
    end;
    //*******FIN PARA GUARDAR EN QUÉ SERVIDOR ESTÁ CADA USUARIO *******


    //Iniciar Administrador de servicios de Terminal Server
    //Control remoto
    with tinifile.create (docInfo) do
    try
      iniciarSTS := ReadBool (nombreUsuario, 'Iniciar servicios TS', false);
      controlRemoto := ReadBool (nombreUsuario, 'Control remoto', false);
      usuAdministrador := ReadBool (nombreUsuario, 'Administrador', false);
      usuControlRemoto := ReadString (nombreUsuario,
          'Usuario control remoto', '');
    finally
      free;
    end;

    if (usuAdministrador = true) and (usuControlRemoto <> '')
        and (controlRemoto = true) then
    begin
      with tinifile.create (docInfo) do
      try
        WriteString (nombreUsuario, 'Usuario control remoto', '');
      finally
        free;
      end;

      numProceso := ejecutarEsperar(obtenerDirectorioSistema +
          '/cmd.exe', '/c query user ' +
          usuControlRemoto + ' > C:/resultado_query.txt');
      if numProceso <> 0 then
        WaitForSingleObject(numProceso, INFINITE);

      if FileExists('C:/resultado_query.txt') then
      begin
        listaFichero := TStringList.Create;
        listaFichero.LoadFromFile('C:/resultado_query.txt');
        if listaFichero.Count > 1 then
        begin
          if MessageDlg('¿Desea realizar control remoto al usuario [' +
              usuControlRemoto + ']?' + chr(13) + chr(13) +
              ' Para cerrar el control remoto no olvide pulsar "Control + *".',
              mtconfirmation,
              [mbyes, mbno], 0) = mryes then
          begin
            idSesion := trim (copy (listaFichero.Strings[1], 23, 19));
            ejecutarFichero ('cmd.exe', ' /c shadow ' + idSesion);
          end;
        end
        else
          MessageDlg('El usuario [' + usuControlRemoto +
              '] no tiene sesión abierta en el servidor [' +
              nombreServidor + '].', mtInformation, [mbok], 0);
        DeleteFile(pchar('C:/resultado_query.txt'));
      end;
    end;
    if iniciarSTS then
      ejecutarFichero ('tsadmin.exe', '');
    //*******FIN Iniciar Administrador de servicios de Terminal Server
    //control remoto

  except
  end;
end.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

program inicioSesion;

{$APPTYPE CONSOLE}

uses

SysUtils, inifiles, Dialogs, windows, Classes, shellapi, Controls;

function obtenerDirectorioWindows : TFileName;

var

WinDir: array [0..MAX_PATH-1] of char;

begin

SetString(Result, WinDir, GetWindowsDirectory(WinDir, MAX_PATH));

end;

function obtenerDirectorioSistema : TFileName;

var

SysDir: array [0..MAX_PATH-1] of char;

begin

SetString(Result, SysDir, GetSystemDirectory(SysDir, MAX_PATH));

end;

function ejecutarEsperar (aplicacion: String; parametros : string): Cardinal;

var

StartInfo: TStartupInfo;

ProcInfo: TProcessInformation;

begin

Result := 0;

FillChar(StartInfo, SizeOf(StartInfo), 0);

StartInfo.cb := SizeOf(StartInfo);

if CreateProcess(

PChar(aplicacion), PChar(parametros), nil, nil, false, 0,

nil, nil, StartInfo, ProcInfo)

then

Result := ProcInfo.hProcess;

end;

function ejecutarFichero (fichero, parametros : string) : boolean;

var

resEj : THandle;

begin

resEj := 0;

resEj := ShellExecute(resEj, 'open', PChar(fichero),

PChar(parametros), nil, SW_SHOWNORMAL);

if resEj < 32 then

begin

result := false;

end

else

begin

result := true;

end;

function obtenerVariableEntorno (variable : string) : String;

var

Env : PChar;

valorVariable : string;

begin

Result := '';

Env := GetEnvironmentStrings;

While Env^ <> #0 do

begin

valorVariable := StrPas(Env);

if Pos (variable, valorVariable) = 1 then

begin

Result := copy (valorVariable, length(variable) + 1,

length(valorVariable));

exit;

end;

Inc(Env, StrLen(Env) + 1);

end;

procedure cerrarSesion;

var

rl, flgs : Cardinal;

hToken : Cardinal;

tkp : TOKEN_PRIVILEGES;

begin

flgs := 0;

flgs := (flgs and (not (EWX_REBOOT or EWX_SHUTDOWN or EWX_POWEROFF))) or EWX_LOGOFF;

if Win32Platform = VER_PLATFORM_WIN32_NT then

begin

if not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES

or TOKEN_QUERY, hToken) then

//silenciosa

else

begin

if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then

begin

tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

tkp.PrivilegeCount := 1;

AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);

if GetLastError <> ERROR_SUCCESS then

Writeln('Se ha producido un error al intentar ajustar los privilegios.');

end;

// else begin

ExitWindowsEx(flgs, 0);

// end;

end;

var

rutaPerfil : string;

nombreServidor : string;

nombreUsuario : string;

nombreEquipoCliente : string;

numConexiones : integer;

avisarUsuario : Boolean;

nombreServidorPref : string;

mensaje : string;

permitirInicio : Boolean;

cerrarSesionUsuario : Boolean;

iniciarSTS : Boolean;

controlRemoto : Boolean;

usuAdministrador : Boolean;

usuControlRemoto : string;

listaFichero : TStringList;

idSesion : string;

numProceso : Cardinal;

const

docInfo = '//servidor/netlogon/info.ini';

begin

try

//comprobamos si le corresponde iniciar sesión en este servidor

nombreServidor := obtenerVariableEntorno ('COMPUTERNAME=');

nombreUsuario := obtenerVariableEntorno ('USERNAME=');

with tinifile.create (docInfo) do

try

nombreServidorPref := ReadString (nombreUsuario, 'Servidor preferido', '');

avisarUsuario := readBool (nombreUsuario, 'Mostrar aviso', false);

permitirInicio := readBool (nombreUsuario, 'Permitir inicio sesión', true);

cerrarSesionUsuario := readBool (nombreUsuario, 'Cerrar sesión', false);

finally

free;

end;

if not permitirInicio then

begin

if avisarUsuario then

MessageDlg('Atención: no tiene permiso para inciar sesión. Consulte ' +

'con el departamento de Nuevas Tecnologías. ' +

'Pulse Aceptar para cerrar la sesión.', mtWarning, [mbok], 0);

cerrarSesion;

end;

if avisarUsuario and (AnsiUpperCase (nombreServidor) <>

AnsiUpperCase (nombreServidorPref)) then

begin

if cerrarSesionUsuario then

mensaje := 'Atención: su servidor por defecto es [' +

nombreServidorPref + ']. Se ha conectado a [' +

nombreServidor + '].' + chr(13) + chr(13) + chr(13) +

'Pulse Aceptar para cerrar la sesión.'

else

mensaje := 'Atención: su servidor por defecto es [' +

nombreServidorPref + ']. Se ha conectado a [' +

nombreServidor + '].';

MessageDlg(mensaje, mtWarning, [mbok], 0);

if cerrarSesionUsuario then

begin

cerrarSesion;

end;

//***** FIN comprobamos si le corresponde iniciar sesión en este servidor

rutaPerfil := obtenerVariableEntorno ('USERPROFILE=');

//*******PARA GUARDAR EN QUÉ SERVIDOR ESTÁ CADA USUARIO *******

nombreEquipoCliente := obtenerVariableEntorno ('CLIENTNAME=');

//escribimos en info.ini los datos del usuario

with tinifile.create (docInfo) do

try

numConexiones := ReadInteger (nombreUsuario, 'Nº Conexiones', 0);

numConexiones := numConexiones + 1;

writeString (nombreUsuario, 'Servidor', nombreServidor);

writeString (nombreUsuario, 'Equipo cliente', nombreEquipoCliente);

writeString (nombreUsuario, 'Hora Inicio sesion', datetimetostr(now));

WriteInteger (nombreUsuario, 'Nº Conexiones', numConexiones);

finally

free;

end;

//*******FIN PARA GUARDAR EN QUÉ SERVIDOR ESTÁ CADA USUARIO *******

//Iniciar Administrador de servicios de Terminal Server

//Control remoto

with tinifile.create (docInfo) do

try

iniciarSTS := ReadBool (nombreUsuario, 'Iniciar servicios TS', false);

controlRemoto := ReadBool (nombreUsuario, 'Control remoto', false);

usuAdministrador := ReadBool (nombreUsuario, 'Administrador', false);

usuControlRemoto := ReadString (nombreUsuario,

'Usuario control remoto', '');

finally

free;

end;

if (usuAdministrador = true) and (usuControlRemoto <> '')

and (controlRemoto = true) then

begin

with tinifile.create (docInfo) do

try

WriteString (nombreUsuario, 'Usuario control remoto', '');

finally

free;

end;

numProceso := ejecutarEsperar(obtenerDirectorioSistema +

'/cmd.exe', '/c query user ' +

usuControlRemoto + ' > C:/resultado_query.txt');

if numProceso <> 0 then

WaitForSingleObject(numProceso, INFINITE);

if FileExists('C:/resultado_query.txt') then

begin

listaFichero := TStringList.Create;

listaFichero.LoadFromFile('C:/resultado_query.txt');

if listaFichero.Count > 1 then

begin

if MessageDlg('¿Desea realizar control remoto al usuario [' +

usuControlRemoto + ']?' + chr(13) + chr(13) +

' Para cerrar el control remoto no olvide pulsar "Control + *".',

mtconfirmation,

[mbyes, mbno], 0) = mryes then

begin

idSesion := trim (copy (listaFichero.Strings[1], 23, 19));

ejecutarFichero ('cmd.exe', ' /c shadow ' + idSesion);

end;

end

else

MessageDlg('El usuario [' + usuControlRemoto +

'] no tiene sesión abierta en el servidor [' +

nombreServidor + '].', mtInformation, [mbok], 0);

DeleteFile(pchar('C:/resultado_query.txt'));

end;

if iniciarSTS then

ejecutarFichero ('tsadmin.exe', '');

//*******FIN Iniciar Administrador de servicios de Terminal Server

//control remoto

except

end;

end.

Con el script anterior, conseguiremos guardar la información necesaria para saber en qué servidor está conectado un usuario actualmente. También nos servirá para realizar control remoto, si así lo hemos indicado en la aplicación que a continuación os explicaremos. Para realizar el control remoto automático al usuario hemos utilizado dos comandos de Windows 2000/2003:

query user nombre_usuario > ficherodestino

este comando devuelve en «ficherodestino» los datos del usuario «nombre_usuario» si ha iniciado sesión (id de sesión, tiempo de inactividad, etc), necesarios para el siguiente comando, el que hace el control remoto:

shadow id_sesion

Este comando es el que realiza el control remoto al id de sesión pasado como parámetro. Para poder ejecutar correctamente estos dos comandos, nuestros desarrolladores tuvieron que realizar una función que ejecutara comandos de MS-DOS y se le pudieran pasar parámetros. También era necesario que la función que ejecutara el comando «query» esperara a que este terminara, de lo contrario funcionaba sólo a veces. En resumen, lo que se ideó para ejecutar estos comandos desde Delphi en Windows 2003 (al iniciarse la sesión del usuario) fue:

Función que ejecuta el comando «query user» y espera a que termine, el resultado se guarda en el fichero C:/ resultado_query.txt.
Función que ejecuta de forma normal (no es necesario esperar a que termine) el comando «shadow», obteniendo el ID de sesión, previamente, del fichero «resultado_quey.txt».
Antes de ejecutar el comando «shadow», se realizan una serie de comprobaciones (que el usuario se haya marcado como administrador, que exista en el servidor (tenga sesión activa actualmente), etc.

Tras realizar el script de inicio de sesión, desarrollamos la aplicación que administraría el fichero .ini que genera el script de inicio de sesión. Donde se guardan todos los datos de los usuarios. Dicho fichero .ini tiene la siguiente estructura:

[nombre_usuario]
Servidor=[[Ultimo servidor al que se ha conectado]]
Equipo cliente=[[Nombre red equipo cliente]]
Hora Inicio sesion=[[Día y hora inicio sesión]]
Nº Conexiones=[[Número de conexiones del usuario]]
Nombre completo=[[Nombre completo del usuario]]
Servidor preferido=[[Servidor preferido para el usuario]]
Permitir inicio sesión=[[Indica si se permite iniciar TS al usuario]]
Mostrar aviso=[[Mostrar avisos al iniciar sesión, si no está conectado al servidor preferido]]
Cerrar sesión=[[Cerrar sesión del usuario si no está conectado al servidor preferido]]
Usuario administrador=[[Si el usuario puede hacer control remoto]]
Control remoto=[[Realizar control remoto]]
Administrador=[[Si el usuario es administrador]]
Iniciar servicios TS=[[Iniciar Administrador de servicios de Terminal Server al iniciar sesión]]
Usuario control remoto=[[Nombre del usuario a realizar control remoto]]

La aplicación que permite leer y administrar el contenido de este fichero tiene el siguiente código fuente:

unit UnidadMenuPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Buttons, inifiles, TrayIcon,
  ActnList, Menus, ImgList, registry, shellapi;

type
  TformMenuPrincipal = class(TForm)
    tab: TPageControl;
    tabBuscar: TTabSheet;
    tabModificar: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    txtUsuario: TComboBox;
    GroupBox2: TGroupBox;
    txtDatos: TMemo;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    txtModUsuario: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    txtModServidorPref: TComboBox;
    txtModNumConexiones: TEdit;
    txtModNombreCompleto: TEdit;
    bModificar: TBitBtn;
    bEliminar: TBitBtn;
    Panel1: TPanel;
    opPermitirInicioSesion: TCheckBox;
    opMostrarAviso: TCheckBox;
    opCerrarSesionSNPref: TCheckBox;
    bObtener: TBitBtn;
    tMin: TTrayIcon;
    bMinimizar: TBitBtn;
    bCerrar: TBitBtn;
    PopupMenu1: TPopupMenu;
    Mostrar1: TMenuItem;
    N1: TMenuItem;
    Cerrar1: TMenuItem;
    listaAcciones: TActionList;
    actCerrar: TAction;
    actMostrar: TAction;
    actMinimizar: TAction;
    Buscar1: TMenuItem;
    ImageList1: TImageList;
    actObtener: TAction;
    actGuardar: TAction;
    actEliminar: TAction;
    actBuscar: TAction;
    BitBtn1: TBitBtn;
    actPasarDatos: TAction;
    be: TStatusBar;
    tabConfiguracion: TTabSheet;
    GroupBox4: TGroupBox;
    opIniciarMinimizada: TCheckBox;
    opIniciarWindows: TCheckBox;
    Label5: TLabel;
    txtFichero: TEdit;
    bSelFic: TBitBtn;
    dlAbrir: TOpenDialog;
    BitBtn2: TBitBtn;
    actIniciarTerminalServer: TAction;
    txtUsuarioAdmin: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    txtDominio: TEdit;
    opIniciarAdmServicios: TCheckBox;
    opControlRemoto: TCheckBox;
    GroupBox5: TGroupBox;
    bNoPermitirTodos: TBitBtn;
    bPermitirTodos: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure txtUsuarioKeyPress(Sender: TObject; var Key: Char);
    procedure actCerrarExecute(Sender: TObject);
    procedure actMostrarExecute(Sender: TObject);
    procedure actMinimizarExecute(Sender: TObject);
    procedure actObtenerExecute(Sender: TObject);
    procedure actGuardarExecute(Sender: TObject);
    procedure actEliminarExecute(Sender: TObject);
    procedure actBuscarExecute(Sender: TObject);
    procedure actPasarDatosExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bSelFicClick(Sender: TObject);
    procedure actIniciarTerminalServerExecute(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formMenuPrincipal: TformMenuPrincipal;
  nombreUsuario : string;
  nombreServidor : string;
  nombreEquipoCliente : string;
  numConexiones : integer;
  horaInicio : string;
  nombreCompleto : string;
  nombreServidorPreferido : string;
  PermitirInicioSesion : boolean;
  MostrarAviso : boolean;
  CerrarSesionSNPref : boolean;
  vtServiciosTS : Boolean;
  vtControlRemoto : Boolean;
  vtUsuAdministrador : Boolean;


implementation

{$R *.dfm}

procedure ejecutarFichero (fichero, parametros : string);
var
  resEj : THandle;
begin
  resEj := 0;
  resEj := ShellExecute(resEj, 'open', PChar(fichero),
        PChar(parametros), nil, SW_SHOWNORMAL);
  if resEj < 32 then
  begin
    RaiseLastWin32Error;
  end
  else
  begin
    //'El fichero se ha ejecutado correctamente';
  end;
end;



procedure quitarEjecutarInicio ();
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run', false);
  reg.DeleteValue(Application.Title);
  reg.CloseKey;
  reg.Free;
end;



procedure ejecutarInicio ();
var
  reg : tregistry;
begin
  Reg := TRegistry.Create(KEY_WRITE);
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Run', True) then
    begin
      try
        Reg.WriteString(Application.Title,
            ExtractFilePath(ParamStr(0)) + ExtractFileName(ParamStr(0)));
      except
        Reg.CloseKey;
        raise;
      end;
    end;
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end;


function listarClavesINI (fichero : string) : TStringList;
var
  lista : TStringList;
  ltFichero : TStringList;
  i : integer;
  linea : string;
  nombreClave : string;
begin
  lista := TStringList.Create;
  if FileExists(fichero) then
  begin
    ltFichero := TStringList.Create;
    ltFichero.LoadFromFile(fichero);
    for i := 0 to ltFichero.Count - 1 do
    begin
      linea := trim(ltFichero.Strings[i]);
      if pos('[', linea) = 1 then
      begin
        nombreClave := copy(linea, pos('[', linea) + 1, pos(']', linea) - 2);
        lista.Add(nombreClave);
      end;
    end;
  end;
  result := lista;
end;


function listarServidores (fichero : string) : TStringList;
var
  lista : TStringList;
  ltClaves : TStringList;
  i : integer;
  servidorOb : string;
begin
  lista := TStringList.Create;
  lista.Sorted := true;
  lista.Duplicates := dupIgnore;
  if FileExists(fichero) then
  begin
    ltClaves := listarClavesINI (fichero);
    with tinifile.create (fichero) do
    begin
      try
        for i := 0 to ltClaves.Count - 1 do
        begin
          servidorOb := ReadString(ltClaves.Strings[i], 'Servidor', '');
          lista.Add(servidorOb);
        end;
      finally
        free;
      end;
    end;  
  end;
  result := lista;
end;


procedure TformMenuPrincipal.FormCreate(Sender: TObject);
var
  docInfo : string;
begin
  with tinifile.create (changefileext(paramstr(0), '.ini')) do
  begin
    try
      opIniciarMinimizada.Checked := ReadBool ('Inicio', 'Minimizada', false);
      opIniciarWindows.Checked := ReadBool ('Inicio', 'Windows', false);
      opIniciarAdmServicios.Checked := 
          ReadBool ('Inicio', 'Iniciar servicios TS', false);
      opControlRemoto.Checked := ReadBool ('Inicio', 'Control remoto', false);
      txtFichero.Text := ReadString ('Datos', 'Ubicación fichero INI', '');
      txtUsuarioAdmin.Text := ReadString ('Inicio', 'Administrador', '');
      txtDominio.Text := ReadString ('Datos', 'Dominio', '');
    finally
      free;
    end;
  end;

  docInfo := txtFichero.Text;
  txtUsuario.Items := listarClavesINI (docInfo);
  txtModServidorPref.Items := listarServidores(docInfo);
  txtModUsuario.Items := txtUsuario.Items;
  be.Panels[1].Text := inttostr(txtUsuario.Items.Count) + ' usuarios';
  if opIniciarMinimizada.Checked then
    actMinimizarExecute(Self);
  tabBuscar.Show;
end;

procedure TformMenuPrincipal.txtUsuarioKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key = #13 then
    actObtenerExecute(Self);
end;

procedure TformMenuPrincipal.actCerrarExecute(Sender: TObject);
begin
  close;
end;

procedure TformMenuPrincipal.actMostrarExecute(Sender: TObject);
begin
  show;
  WindowState := wsNormal;
  actMinimizar.Enabled := true;
  actMostrar.Enabled := false;
  tMin.Hide;
end;

procedure TformMenuPrincipal.actMinimizarExecute(Sender: TObject);
begin
  actMinimizar.Enabled := false;
  actMostrar.Enabled := true;
  Hide;
  Application.ShowMainForm := False;
  tMin.Hint := Application.Title;
  tMin.Show;
end;

procedure TformMenuPrincipal.actObtenerExecute(Sender: TObject);
var
  docInfo : string;
begin
  txtDatos.Clear;
  docInfo := txtFichero.Text;

  if FileExists(docInfo) then
  begin
    nombreUsuario := txtUsuario.Text;
    if nombreUsuario <> '' then
    begin
      with tinifile.create (docInfo) do
      try
        numConexiones := ReadInteger (nombreUsuario, 'Nº Conexiones', 0);
        nombreServidor := readString (nombreUsuario, 'Servidor', '');
        nombreEquipoCliente := ReadString (nombreUsuario, 'Equipo cliente', '');
        horaInicio := ReadString (nombreUsuario, 'Hora Inicio sesion', '');
        nombreCompleto := ReadString (nombreUsuario, 'Nombre completo', '');
        nombreServidorPreferido := ReadString (nombreUsuario, 
            'Servidor preferido', '');
        PermitirInicioSesion := readBool (nombreUsuario, 
            'Permitir inicio sesión', true);
        MostrarAviso := readBool (nombreUsuario, 'Mostrar aviso', false);
        CerrarSesionSNPref := readBool (nombreUsuario, 'Cerrar sesión', false);

        vtServiciosTS := ReadBool (nombreUsuario, 'Iniciar servicios TS', false);
        vtControlRemoto := ReadBool (nombreUsuario, 'Control remoto', false);
        vtUsuAdministrador := ReadBool (nombreUsuario, 'Administrador', false);

        txtDatos.Lines.Add('Servidor actual: ' + nombreServidor);
        txtDatos.Lines.Add('Servidor preferido: ' + nombreServidorPreferido);
        txtDatos.Lines.Add('Nº conexiones: ' + IntToStr(numConexiones));
        txtDatos.Lines.Add('Equipo cliente: ' + nombreEquipoCliente);
        txtDatos.Lines.Add('Nombre completo: ' + nombreCompleto);
        txtDatos.Lines.Add('Inicio sesión: ' + horaInicio);
        if PermitirInicioSesion then
          txtDatos.Lines.Add('Permitir inicio de sesión: Sí')
        else
          txtDatos.Lines.Add('Permitir inicio de sesión: No');
        if MostrarAviso then
          txtDatos.Lines.Add('Mostrar aviso si no es su servidor: Sí')
        else
          txtDatos.Lines.Add('Mostrar aviso si no es su servidor: No');
        if CerrarSesionSNPref then
          txtDatos.Lines.Add('Cerrar sesión si no es su servidor: Sí')
        else
          txtDatos.Lines.Add('Cerrar sesión si no es su servidor: No');
        if vtUsuAdministrador then
          txtDatos.Lines.Add('Administrador: Sí')
        else
          txtDatos.Lines.Add('Administrador: No');
        if vtServiciosTS then
          txtDatos.Lines.Add('Iniciar administrador Servicios TS: Sí')
        else
          txtDatos.Lines.Add('Iniciar administrador Servicios TS: No');
        if vtControlRemoto then
          txtDatos.Lines.Add('Hacer control remoto: Sí')
        else
          txtDatos.Lines.Add('Hacer control remoto: No');
      finally
        free;
      end;
    end
    else
    begin
      MessageDlg('Debe indicar el nombre de usuario a consultar.',
          mtInformation, [mbok], 0);
      txtUsuario.SetFocus;
    end;
  end
  else
    MessageDlg('El fichero de información: ' + chr(13) + chr(13) + docInfo +
        chr(13) + chr(13) + ' no existe o no es accesible.',
        mtWarning, [mbok], 0);
end;

procedure TformMenuPrincipal.actGuardarExecute(Sender: TObject);
var
  nombreUsuario : string;
  docInfo : string;
begin
  docInfo := txtFichero.Text;
  if FileExists(docInfo) then
  begin
    nombreUsuario := txtUsuario.Text;
    if nombreUsuario <> '' then
    begin
      with tinifile.create (docInfo) do
      try
        WriteInteger (nombreUsuario, 'Nº Conexiones', 
            strtoint(txtModNumConexiones.Text));
        WriteString (nombreUsuario, 'Nombre completo', txtModNombreCompleto.Text);
        WriteString (nombreUsuario, 'Servidor preferido', txtModServidorPref.Text);
        WriteBool (nombreUsuario, 'Permitir inicio sesión', 
            opPermitirInicioSesion.Checked);
        WriteBool (nombreUsuario, 'Mostrar aviso', opMostrarAviso.Checked);
        WriteBool (nombreUsuario, 'Cerrar sesión', opCerrarSesionSNPref.Checked);
        MessageDlg('Datos guardados correctamente.',
            mtInformation, [mbok], 0);
      finally
        free;
      end;
    end
    else
    begin
      MessageDlg('Debe indicar el nombre de usuario a consultar.',
          mtInformation, [mbok], 0);
      txtUsuario.SetFocus;
    end;
  end
  else
    MessageDlg('El fichero de información: ' + chr(13) + chr(13) + docInfo +
        chr(13) + chr(13) + ' no existe o no es accesible.',
        mtWarning, [mbok], 0);
end;

procedure TformMenuPrincipal.actEliminarExecute(Sender: TObject);
begin
//
end;

procedure TformMenuPrincipal.actBuscarExecute(Sender: TObject);
begin
  actMostrarExecute(Self);
  tabBuscar.Show;
  txtUsuario.SetFocus;
  txtUsuario.SelectAll;
end;

procedure TformMenuPrincipal.actPasarDatosExecute(Sender: TObject);
begin
  txtModUsuario.Text := nombreUsuario;
  txtModServidorPref.Text := nombreServidorPreferido;
  txtModNombreCompleto.Text := nombreCompleto;
  txtModNumConexiones.Text := inttostr(numConexiones);
  opPermitirInicioSesion.Checked := PermitirInicioSesion;
  opMostrarAviso.Checked := MostrarAviso;
  opCerrarSesionSNPref.Checked := CerrarSesionSNPref;
  tabModificar.Show;
  txtModServidorPref.SetFocus;
end;

procedure TformMenuPrincipal.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  with tinifile.create (changefileext(paramstr(0), '.ini')) do
  begin
    try
      WriteBool ('Inicio', 'Minimizada', opIniciarMinimizada.Checked);
      WriteBool ('Inicio', 'Windows', opIniciarWindows.Checked);
      WriteBool ('Inicio', 'Iniciar servicios TS', opIniciarAdmServicios.Checked);
      WriteBool ('Inicio', 'Control remoto', opControlRemoto.Checked);
      WriteString ('Inicio', 'Administrador', txtUsuarioAdmin.Text);
      WriteString ('Datos', 'Ubicación fichero INI', txtFichero.Text);
      WriteString ('Datos', 'Dominio', txtDominio.Text);
    finally
      free;
    end;
  end;

  //para el usuario administrador
  if FileExists(txtFichero.Text) then
  begin
    with tinifile.create (txtFichero.Text) do
    begin
      try
        WriteBool (txtUsuarioAdmin.Text, 
            'Iniciar servicios TS', opIniciarAdmServicios.Checked);
        WriteBool (txtUsuarioAdmin.Text, 'Control remoto', opControlRemoto.Checked);
        WriteBool (txtUsuarioAdmin.Text, 'Administrador', true);
        WriteString (txtUsuarioAdmin.Text, 'Usuario control remoto', nombreUsuario);
      finally
        free;
      end;
    end;
  end;


  if opIniciarWindows.Checked then
    ejecutarInicio
  else
    quitarEjecutarInicio;
end;

procedure TformMenuPrincipal.bSelFicClick(Sender: TObject);
begin
  if dlAbrir.Execute then
    txtFichero.Text := dlAbrir.FileName;
end;

procedure TformMenuPrincipal.actIniciarTerminalServerExecute(
  Sender: TObject);
var
  rutaFicheroConexion : string;
  contenido : TStringList;
begin
  rutaFicheroConexion := ExtractFilePath (Application.ExeName) +
      'conexion.rdp';
  contenido := TStringList.Create;
  contenido.Add ('screen mode id:i:2');
  //contenido.Add ('desktopwidth:i:800');
  //contenido.Add ('desktopheight:i:600');
  contenido.Add ('session bpp:i:8');
  contenido.Add ('winposstr:s:0,1,0,0,800,566');
  contenido.Add ('full address:s:' + nombreServidor);
  contenido.Add ('compression:i:1');
  contenido.Add ('keyboardhook:i:2');
  contenido.Add ('audiomode:i:2');
  contenido.Add ('redirectdrives:i:0');
  contenido.Add ('redirectprinters:i:1');
  contenido.Add ('redirectcomports:i:0');
  contenido.Add ('redirectsmartcards:i:1');
  contenido.Add ('displayconnectionbar:i:1');
  contenido.Add ('autoreconnection enabled:i:1');
  contenido.Add ('username:s:' + txtUsuarioAdmin.Text);
  contenido.Add ('domain:s:' + txtDominio.Text);
  contenido.Add ('alternate shell:s:');
  contenido.Add ('shell working directory:s:');
  contenido.Add ('disable wallpaper:i:1');
  contenido.Add ('disable full window drag:i:1');
  contenido.Add ('disable menu anims:i:1');
  contenido.Add ('disable themes:i:1');
  contenido.Add ('disable cursor setting:i:0');
  contenido.Add ('bitmapcachepersistenable:i:1');
  contenido.SaveToFile(rutaFicheroConexion);

  with tinifile.create (txtFichero.Text) do
  begin
    try
      WriteBool (txtUsuarioAdmin.Text, 
          'Iniciar servicios TS', opIniciarAdmServicios.Checked);
      WriteBool (txtUsuarioAdmin.Text, 'Control remoto', opControlRemoto.Checked);
      WriteBool (txtUsuarioAdmin.Text, 'Administrador', true);
      WriteString (txtUsuarioAdmin.Text, 'Usuario control remoto', nombreUsuario);
    finally
      free;
    end;
  end;
  ejecutarFichero ('mstsc.exe', '"' + rutaFicheroConexion + '"');
end;

end.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

unit UnidadMenuPrincipal;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, ExtCtrls, Buttons, inifiles, TrayIcon,

ActnList, Menus, ImgList, registry, shellapi;

type

TformMenuPrincipal = class(TForm)

tab: TPageControl;

tabBuscar: TTabSheet;

tabModificar: TTabSheet;

GroupBox1: TGroupBox;

Label1: TLabel;

txtUsuario: TComboBox;

GroupBox2: TGroupBox;

txtDatos: TMemo;

GroupBox3: TGroupBox;

Label2: TLabel;

txtModUsuario: TComboBox;

Label3: TLabel;

Label4: TLabel;

Label6: TLabel;

txtModServidorPref: TComboBox;

txtModNumConexiones: TEdit;

txtModNombreCompleto: TEdit;

bModificar: TBitBtn;

bEliminar: TBitBtn;

Panel1: TPanel;

opPermitirInicioSesion: TCheckBox;

opMostrarAviso: TCheckBox;

opCerrarSesionSNPref: TCheckBox;

bObtener: TBitBtn;

tMin: TTrayIcon;

bMinimizar: TBitBtn;

bCerrar: TBitBtn;

PopupMenu1: TPopupMenu;

Mostrar1: TMenuItem;

N1: TMenuItem;

Cerrar1: TMenuItem;

listaAcciones: TActionList;

actCerrar: TAction;

actMostrar: TAction;

actMinimizar: TAction;

Buscar1: TMenuItem;

ImageList1: TImageList;

actObtener: TAction;

actGuardar: TAction;

actEliminar: TAction;

actBuscar: TAction;

BitBtn1: TBitBtn;

actPasarDatos: TAction;

be: TStatusBar;

tabConfiguracion: TTabSheet;

GroupBox4: TGroupBox;

opIniciarMinimizada: TCheckBox;

opIniciarWindows: TCheckBox;

Label5: TLabel;

txtFichero: TEdit;

bSelFic: TBitBtn;

dlAbrir: TOpenDialog;

BitBtn2: TBitBtn;

actIniciarTerminalServer: TAction;

txtUsuarioAdmin: TEdit;

Label7: TLabel;

Label8: TLabel;

txtDominio: TEdit;

opIniciarAdmServicios: TCheckBox;

opControlRemoto: TCheckBox;

GroupBox5: TGroupBox;

bNoPermitirTodos: TBitBtn;

bPermitirTodos: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure txtUsuarioKeyPress(Sender: TObject; var Key: Char);

procedure actCerrarExecute(Sender: TObject);

procedure actMostrarExecute(Sender: TObject);

procedure actMinimizarExecute(Sender: TObject);

procedure actObtenerExecute(Sender: TObject);

procedure actGuardarExecute(Sender: TObject);

procedure actEliminarExecute(Sender: TObject);

procedure actBuscarExecute(Sender: TObject);

procedure actPasarDatosExecute(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure bSelFicClick(Sender: TObject);

procedure actIniciarTerminalServerExecute(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

formMenuPrincipal: TformMenuPrincipal;

nombreUsuario : string;

nombreServidor : string;

nombreEquipoCliente : string;

numConexiones : integer;

horaInicio : string;

nombreCompleto : string;

nombreServidorPreferido : string;

PermitirInicioSesion : boolean;

MostrarAviso : boolean;

CerrarSesionSNPref : boolean;

vtServiciosTS : Boolean;

vtControlRemoto : Boolean;

vtUsuAdministrador : Boolean;

implementation

{$R *.dfm}

procedure ejecutarFichero (fichero, parametros : string);

var

resEj : THandle;

begin

resEj := 0;

resEj := ShellExecute(resEj, 'open', PChar(fichero),

PChar(parametros), nil, SW_SHOWNORMAL);

if resEj < 32 then

begin

RaiseLastWin32Error;

end

else

begin

//'El fichero se ha ejecutado correctamente';

end;

procedure quitarEjecutarInicio ();

var

reg: TRegistry;

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_LOCAL_MACHINE;

reg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run', false);

reg.DeleteValue(Application.Title);

reg.CloseKey;

reg.Free;

end;

procedure ejecutarInicio ();

var

reg : tregistry;

begin

Reg := TRegistry.Create(KEY_WRITE);

try

Reg.RootKey := HKEY_LOCAL_MACHINE;

if Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Run', True) then

begin

try

Reg.WriteString(Application.Title,

ExtractFilePath(ParamStr(0)) + ExtractFileName(ParamStr(0)));

except

Reg.CloseKey;

raise;

end;

Reg.CloseKey;

finally

Reg.Free;

end;

function listarClavesINI (fichero : string) : TStringList;

var

lista : TStringList;

ltFichero : TStringList;

i : integer;

linea : string;

nombreClave : string;

begin

lista := TStringList.Create;

if FileExists(fichero) then

begin

ltFichero := TStringList.Create;

ltFichero.LoadFromFile(fichero);

for i := 0 to ltFichero.Count - 1 do

begin

linea := trim(ltFichero.Strings[i]);

if pos('[', linea) = 1 then

begin

nombreClave := copy(linea, pos('[', linea) + 1, pos(']', linea) - 2);

lista.Add(nombreClave);

end;

result := lista;

end;

function listarServidores (fichero : string) : TStringList;

var

lista : TStringList;

ltClaves : TStringList;

i : integer;

servidorOb : string;

begin

lista := TStringList.Create;

lista.Sorted := true;

lista.Duplicates := dupIgnore;

if FileExists(fichero) then

begin

ltClaves := listarClavesINI (fichero);

with tinifile.create (fichero) do

begin

try

for i := 0 to ltClaves.Count - 1 do

begin

servidorOb := ReadString(ltClaves.Strings[i], 'Servidor', '');

lista.Add(servidorOb);

end;

finally

free;

end;

result := lista;

end;

procedure TformMenuPrincipal.FormCreate(Sender: TObject);

var

docInfo : string;

begin

with tinifile.create (changefileext(paramstr(0), '.ini')) do

begin

try

opIniciarMinimizada.Checked := ReadBool ('Inicio', 'Minimizada', false);

opIniciarWindows.Checked := ReadBool ('Inicio', 'Windows', false);

opIniciarAdmServicios.Checked :=

ReadBool ('Inicio', 'Iniciar servicios TS', false);

opControlRemoto.Checked := ReadBool ('Inicio', 'Control remoto', false);

txtFichero.Text := ReadString ('Datos', 'Ubicación fichero INI', '');

txtUsuarioAdmin.Text := ReadString ('Inicio', 'Administrador', '');

txtDominio.Text := ReadString ('Datos', 'Dominio', '');

finally

free;

end;

docInfo := txtFichero.Text;

txtUsuario.Items := listarClavesINI (docInfo);

txtModServidorPref.Items := listarServidores(docInfo);

txtModUsuario.Items := txtUsuario.Items;

be.Panels[1].Text := inttostr(txtUsuario.Items.Count) + ' usuarios';

if opIniciarMinimizada.Checked then

actMinimizarExecute(Self);

tabBuscar.Show;

end;

procedure TformMenuPrincipal.txtUsuarioKeyPress(Sender: TObject;

var Key: Char);

begin

if Key = #13 then

actObtenerExecute(Self);

end;

procedure TformMenuPrincipal.actCerrarExecute(Sender: TObject);

begin

close;

end;

procedure TformMenuPrincipal.actMostrarExecute(Sender: TObject);

begin

show;

WindowState := wsNormal;

actMinimizar.Enabled := true;

actMostrar.Enabled := false;

tMin.Hide;

end;

procedure TformMenuPrincipal.actMinimizarExecute(Sender: TObject);

begin

actMinimizar.Enabled := false;

actMostrar.Enabled := true;

Hide;

Application.ShowMainForm := False;

tMin.Hint := Application.Title;

tMin.Show;

end;

procedure TformMenuPrincipal.actObtenerExecute(Sender: TObject);

var

docInfo : string;

begin

txtDatos.Clear;

docInfo := txtFichero.Text;

if FileExists(docInfo) then

begin

nombreUsuario := txtUsuario.Text;

if nombreUsuario <> '' then

begin

with tinifile.create (docInfo) do

try

numConexiones := ReadInteger (nombreUsuario, 'Nº Conexiones', 0);

nombreServidor := readString (nombreUsuario, 'Servidor', '');

nombreEquipoCliente := ReadString (nombreUsuario, 'Equipo cliente', '');

horaInicio := ReadString (nombreUsuario, 'Hora Inicio sesion', '');

nombreCompleto := ReadString (nombreUsuario, 'Nombre completo', '');

nombreServidorPreferido := ReadString (nombreUsuario,

'Servidor preferido', '');

PermitirInicioSesion := readBool (nombreUsuario,

'Permitir inicio sesión', true);

MostrarAviso := readBool (nombreUsuario, 'Mostrar aviso', false);

CerrarSesionSNPref := readBool (nombreUsuario, 'Cerrar sesión', false);

vtServiciosTS := ReadBool (nombreUsuario, 'Iniciar servicios TS', false);

vtControlRemoto := ReadBool (nombreUsuario, 'Control remoto', false);

vtUsuAdministrador := ReadBool (nombreUsuario, 'Administrador', false);

txtDatos.Lines.Add('Servidor actual: ' + nombreServidor);

txtDatos.Lines.Add('Servidor preferido: ' + nombreServidorPreferido);

txtDatos.Lines.Add('Nº conexiones: ' + IntToStr(numConexiones));

txtDatos.Lines.Add('Equipo cliente: ' + nombreEquipoCliente);

txtDatos.Lines.Add('Nombre completo: ' + nombreCompleto);

txtDatos.Lines.Add('Inicio sesión: ' + horaInicio);

if PermitirInicioSesion then

txtDatos.Lines.Add('Permitir inicio de sesión: Sí')

else

txtDatos.Lines.Add('Permitir inicio de sesión: No');

if MostrarAviso then

txtDatos.Lines.Add('Mostrar aviso si no es su servidor: Sí')

else

txtDatos.Lines.Add('Mostrar aviso si no es su servidor: No');

if CerrarSesionSNPref then

txtDatos.Lines.Add('Cerrar sesión si no es su servidor: Sí')

else

txtDatos.Lines.Add('Cerrar sesión si no es su servidor: No');

if vtUsuAdministrador then

txtDatos.Lines.Add('Administrador: Sí')

else

txtDatos.Lines.Add('Administrador: No');

if vtServiciosTS then

txtDatos.Lines.Add('Iniciar administrador Servicios TS: Sí')

else

txtDatos.Lines.Add('Iniciar administrador Servicios TS: No');

if vtControlRemoto then

txtDatos.Lines.Add('Hacer control remoto: Sí')

else

txtDatos.Lines.Add('Hacer control remoto: No');

finally

free;

end;

end

else

begin

MessageDlg('Debe indicar el nombre de usuario a consultar.',

mtInformation, [mbok], 0);

txtUsuario.SetFocus;

end;

end

else

MessageDlg('El fichero de información: ' + chr(13) + chr(13) + docInfo +

chr(13) + chr(13) + ' no existe o no es accesible.',

mtWarning, [mbok], 0);

end;

procedure TformMenuPrincipal.actGuardarExecute(Sender: TObject);

var

nombreUsuario : string;

docInfo : string;

begin

docInfo := txtFichero.Text;

if FileExists(docInfo) then

begin

nombreUsuario := txtUsuario.Text;

if nombreUsuario <> '' then

begin

with tinifile.create (docInfo) do

try

WriteInteger (nombreUsuario, 'Nº Conexiones',

strtoint(txtModNumConexiones.Text));

WriteString (nombreUsuario, 'Nombre completo', txtModNombreCompleto.Text);

WriteString (nombreUsuario, 'Servidor preferido', txtModServidorPref.Text);

WriteBool (nombreUsuario, 'Permitir inicio sesión',

opPermitirInicioSesion.Checked);

WriteBool (nombreUsuario, 'Mostrar aviso', opMostrarAviso.Checked);

WriteBool (nombreUsuario, 'Cerrar sesión', opCerrarSesionSNPref.Checked);

MessageDlg('Datos guardados correctamente.',

mtInformation, [mbok], 0);

finally

free;

end;

end

else

begin

MessageDlg('Debe indicar el nombre de usuario a consultar.',

mtInformation, [mbok], 0);

txtUsuario.SetFocus;

end;

end

else

MessageDlg('El fichero de información: ' + chr(13) + chr(13) + docInfo +

chr(13) + chr(13) + ' no existe o no es accesible.',

mtWarning, [mbok], 0);

end;

procedure TformMenuPrincipal.actEliminarExecute(Sender: TObject);

begin

end;

procedure TformMenuPrincipal.actBuscarExecute(Sender: TObject);

begin

actMostrarExecute(Self);

tabBuscar.Show;

txtUsuario.SetFocus;

txtUsuario.SelectAll;

end;

procedure TformMenuPrincipal.actPasarDatosExecute(Sender: TObject);

begin

txtModUsuario.Text := nombreUsuario;

txtModServidorPref.Text := nombreServidorPreferido;

txtModNombreCompleto.Text := nombreCompleto;

txtModNumConexiones.Text := inttostr(numConexiones);

opPermitirInicioSesion.Checked := PermitirInicioSesion;

opMostrarAviso.Checked := MostrarAviso;

opCerrarSesionSNPref.Checked := CerrarSesionSNPref;

tabModificar.Show;

txtModServidorPref.SetFocus;

end;

procedure TformMenuPrincipal.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

with tinifile.create (changefileext(paramstr(0), '.ini')) do

begin

try

WriteBool ('Inicio', 'Minimizada', opIniciarMinimizada.Checked);

WriteBool ('Inicio', 'Windows', opIniciarWindows.Checked);

WriteBool ('Inicio', 'Iniciar servicios TS', opIniciarAdmServicios.Checked);

WriteBool ('Inicio', 'Control remoto', opControlRemoto.Checked);

WriteString ('Inicio', 'Administrador', txtUsuarioAdmin.Text);

WriteString ('Datos', 'Ubicación fichero INI', txtFichero.Text);

WriteString ('Datos', 'Dominio', txtDominio.Text);

finally

free;

end;

//para el usuario administrador

if FileExists(txtFichero.Text) then

begin

with tinifile.create (txtFichero.Text) do

begin

try

WriteBool (txtUsuarioAdmin.Text,

'Iniciar servicios TS', opIniciarAdmServicios.Checked);

WriteBool (txtUsuarioAdmin.Text, 'Control remoto', opControlRemoto.Checked);

WriteBool (txtUsuarioAdmin.Text, 'Administrador', true);

WriteString (txtUsuarioAdmin.Text, 'Usuario control remoto', nombreUsuario);

finally

free;

end;

if opIniciarWindows.Checked then

ejecutarInicio

else

quitarEjecutarInicio;

end;

procedure TformMenuPrincipal.bSelFicClick(Sender: TObject);

begin

if dlAbrir.Execute then

txtFichero.Text := dlAbrir.FileName;

end;

procedure TformMenuPrincipal.actIniciarTerminalServerExecute(

Sender: TObject);

var

rutaFicheroConexion : string;

contenido : TStringList;

begin

rutaFicheroConexion := ExtractFilePath (Application.ExeName) +

'conexion.rdp';

contenido := TStringList.Create;

contenido.Add ('screen mode id:i:2');

//contenido.Add ('desktopwidth:i:800');

//contenido.Add ('desktopheight:i:600');

contenido.Add ('session bpp:i:8');

contenido.Add ('winposstr:s:0,1,0,0,800,566');

contenido.Add ('full address:s:' + nombreServidor);

contenido.Add ('compression:i:1');

contenido.Add ('keyboardhook:i:2');

contenido.Add ('audiomode:i:2');

contenido.Add ('redirectdrives:i:0');

contenido.Add ('redirectprinters:i:1');

contenido.Add ('redirectcomports:i:0');

contenido.Add ('redirectsmartcards:i:1');

contenido.Add ('displayconnectionbar:i:1');

contenido.Add ('autoreconnection enabled:i:1');

contenido.Add ('username:s:' + txtUsuarioAdmin.Text);

contenido.Add ('domain:s:' + txtDominio.Text);

contenido.Add ('alternate shell:s:');

contenido.Add ('shell working directory:s:');

contenido.Add ('disable wallpaper:i:1');

contenido.Add ('disable full window drag:i:1');

contenido.Add ('disable menu anims:i:1');

contenido.Add ('disable themes:i:1');

contenido.Add ('disable cursor setting:i:0');

contenido.Add ('bitmapcachepersistenable:i:1');

contenido.SaveToFile(rutaFicheroConexion);

with tinifile.create (txtFichero.Text) do

begin

try

WriteBool (txtUsuarioAdmin.Text,

'Iniciar servicios TS', opIniciarAdmServicios.Checked);

WriteBool (txtUsuarioAdmin.Text, 'Control remoto', opControlRemoto.Checked);

WriteBool (txtUsuarioAdmin.Text, 'Administrador', true);

WriteString (txtUsuarioAdmin.Text, 'Usuario control remoto', nombreUsuario);

finally

free;

end;

ejecutarFichero ('mstsc.exe', '"' + rutaFicheroConexion + '"');

end;

end.

La aplicación funcionando tiene este aspecto:

Pestaña «Buscar», donde podremos obtener los datos de los usuarios conectados a los servidores (como ejemplo el usuario «fernando alonso», se conecta al servidor SERVIDOR1, su equipo se llama «PCXXX», es administrador, inició la sesión el 18/06/2007 a las 13:28:

AjpdSoft Información Usuarios Terminal Server

Pestaña «Modificar», donde podremos modificar los datos actuales de los usuarios (servidor preferido, número de conexiones, nombre completo, permitir iniciar sesión, mostrar aviso si el servidor no es preferido, cerrar sesión si el servidor no es preferido, etc):

Pestaña «Configuración»: desde donde podremos configurar las opciones de la aplicación (iniciar aplicación minimizada en la barra de tareas, notificación, iniciar aplicación automáticamente al iniciar Windows, ubicación del fichero .ini de información de los usuarios de Terminal Server, usuario administrador y dominio con el que se iniciará sesión en el servidor de Terminal Server para hacer control remoto, iniciar Administrador de servicios de Terminal Server automáticamente al iniciar sesión, hacer control remoto al usuario actual auomáticamente, etc)

La aplicación permite minimizarse en la barra de notificación de Windows, de esta forma podrá permanecer siempre abierta y no ocupará espacio en la barra de tareas:

Desde esta aplicación podremos realizar control remoto a un usuario de Terminal Server, para ello obtendremos los datos del usuario en cuestión y pulsaremos «Iniciar sesión»:

Se abrirá una conexión con el servidor de Terminal Server al que esté conectado el usuario, con las credenciales del usuario que hayamos indicado en la pestaña «Configuración» como administrador. Si el usuario no ha iniciado sesión en el servidor en cuestión o se ha desconectado el script de inicio de sesión mostrará un mensaje como este:

Si el usuario está conectado mostrará una confirmación para realizar el control remoto:

Si pulsamos «Sí» se realizará control remoto al usuario directamente.

Con esta aplicación se cumplen los objetivos marcados por los desarrolladores y administradores de ProyectoA. Pues hemos conseguido agilizar y automatizar un proceso que antes era, en ocasiones, traumático para el usuario. Sobre todo ante la pregunta «¿me podría decir a qué servidor se conecta?», la respuesta de los usuarios solía ser «no sé de qué me hablas, ¿cómo lo miro?». Evidentemente esto redundaba en una pérdida de tiempo por parte del usuario y por nuestra parte.

Por supuesto, como cualquier proyecto, se puede mejorar. Os indicamos algunas de las mejoras que estamos planteando a nuestros desarrolladores:

La aplicación debe ser más segura, a la hora de su apertura debería preguntar usuario y contraseña, pues un usuario podría abrirla y no permitir el acceso a un servidor a otro usuario.
Sí se sabe cuando ha iniciado sesión un usuario pero no se sabe si ha cerrado sesión. Debería utilizarse otro script para el cierre de sesión, que así lo indicara en el fichero .ini.
La lista de usuarios conectados no se actualiza hasta que se cierra y se vuelve a abrir la aplicación. Debería actualizarse automáticamente cada cierto tiempo.

Esta aplicación y el código fuente está disponible de forma totalmente gratuita (freeware) en nuestra web. Para descargarla deberá ser usuario registrado, si aún no lo es pulse aquí para registrarse:

AjpdSoft Información Usuarios Terminal Server.

El script de inicio de sesión que complementa esta aplicación: Realizar script para inicio de sesión de usuarios de Terminal Server.

AjpdSoft Información Usuarios Terminal Server

Sobre el autor

alonsojpd

Comentar Cancelar la respuesta

Sesión

Videotutoriales

Post foros

Respuestas foros

Descargas

Proyecto Android Studio Kotlin de ejemplo de estados en Jetpack Compose con cálculo de beneficio

Proyecto Kotlin con Android Studio que consume servicio API Restful

Ficheros HTML y PHP del ejemplo de formulario de subida de fichero a servidor web

Código fuente en CSharp de la aplicación Obtener Identificador de dispositivo

Descarga código fuente script Python detector movimiento y notificación por email

Wiki

Descarga de la IOS de Cisco para router C7200 c7200-advipservicesk9-mz.152-4.S5.bin

Código fuente en Python de la aplicación que lee una matrícula de una imagen

Código fuente en Python de la aplicación Detector de matrículas desde vídeo o WebCam en tiempo real

Código fuente en Python de la aplicación Detector de manos y dedos levantados

Descarga de la IOS de Cisco para router C3725 c3725-adventerprisek9-mz.124-25d.bin

BDE Borland Database Engine 5.2

Descarga código fuente script Python detector de cuerpos humanos en tiempo real

Turbo Pascal 7.0

ProyectoA Envío email TLS SSL v.1.6.8.69 con código fuente completo en Delphi 6

Descarga código fuente script Python detector movimiento y notificación por email

AjpdSoft Información Usuarios Terminal Server

Sobre el autor

Entradas relacionadas

Comentar Cancelar la respuesta

Sesión

Videotutoriales

Post foros

Respuestas foros

Descargas

Wiki

Etiquetas