Ver Mensaje Individual
  #7  
Antiguo 26-07-2004
Novás Novás is offline
Miembro
 
Registrado: oct 2003
Ubicación: Galicia
Posts: 146
Reputación: 23
Novás Va por buen camino
Hola de nuevo:

Veréis, estoy utilizando el siguiente código:
Código Delphi [-]
nombre:=InputBox('Intentar apagar equipo...','Introduzca el nombre o la dirección IP '+
                   'de la máquina que desea apagar','');
  if nombre<>'' then
  begin
    sms:=InputBox('Mensaje al apagar equipo...','Introduzca el mensaje que desea que '+
                  'visualice el ordenador remoto.','');
    if InitiateSystemShutdown(PChar(nombre),
                              PChar(sms),
                              4,
                              True,
                              False)=False then
    begin
      MessageDlg('No se ha apagado la máquina...'+#13+'Error: '+
                    SysErrorMessage( GetlastError ),
                 mtInformation,
                 [mbOk],
                 0);
    end;
  end;

Este código, cuando le asigno los privilegios de apagar el ordenador de forma remota al grupo todos me funciona, sino no funciona.
Mi pregunta es... ¿Con que usuario se conecta el programa al ejecutar esta función? ¿Con el usuario activo en la máquina destino? ¿Con el usuario activo en mi máquina? ¿Con otro usuario distinto?... ¿Como puedo lograr que mi programa se conecte como administrador en la máquina remota conociendo el password?

Muchas gracias por adelantado
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. http://www.cybertarjetas.net
Responder Con Cita