[Delphi] ImpersonateLoggedOnUser

[DiGuru]

Ik gebruik de SU service om applicaties te installeren op workstations, maar dat geeft veel problemen en is zeer beperkt. Ik kan bijvoorbeeld alleen nieuwe processen opstarten, dus als ik iets speciaals wil doen, moet ik daar eerst een programma voor schrijven. Ook draait dat nieuwe process met het profiel van die admin, niet de huidige gebruiker. Dat is zeer lastig.

Onder W2000/XP is er een functie, CreateProcessWithLogonW, die ik kan gebruiken in plaats van de SU service, maar dan moet ik nog steeds meerdere losse programmaatjes maken om alle specifieke functies uit te voeren. En een heleboel workstations draaien nog op NT, dus dat is geen oplossing.

Ik heb een encrypted bestand met daarin de username en het password van de domain admin. Dus ik kan zonder meer met LogonUser een nieuw token maken met domain admin rechten. Maar daarmee kan ik geen CreateProcessAsUser doen: daar heeft de huidige gebruiker niet voldoende rechten voor.

Ik moet dus eerst met AdjustTokenPrivileges de huidige privileges van de gebruiker wat opschroeven. Dat lijkt te werken, maar dan heb ik nog steeds niet voldoende rechten. Het werkt zelfs niet als ik inlog als administrator! Wat doe ik fout?

Eigenlijk wil ik met ImpersonateLoggedOnUser de rechten van het programma zelf opschroeven tot admin niveau, dan kan ik rechtstreeks doen wat ik wil. En ik kan dan zelf bepalen welk profiel er gebruikt wordt. Maar dat geeft dezelfde foutmeldingen.

Het is dus geen kraakprogramma of iets dergelijks, de domain admin moet zelf de encrypted file met zijn username en password aanmaken, anders werkt het niet. Nou zou je dat theoretisch niet eens nodig hebben, want als je met SnifferPro een kixtart sessie bekijkt, dan zie je dat hij dat kan zonder een userID of password. Maar ik wil het graag netjes en beheersbaar houden.

Weet iemand hoe ik met ImpersonateLoggedOnUser mijn programma admin rechten kan geven als ik de username en het password weet?

[DiGuru]

Niemand?

[DiGuru]

Voor zover ik heb kunnen ontdekken, moet ik eerst op slinkse wijze het systeem hacken en mijn rechten omhoogvijzelen tot admin niveau, voordat ik van deze functies gebruik kan maken. Maar dan heb ik ze niet meer nodig. Dat moet ik dan maar doen.

En die username en password van een domain admin heb ik dan niet nodig, daar heb ik toch niets aan.

Wat een zooi, dat Windows. Zucht.

[SchizoDuckie]

DiGuru schreef op 12 June 2003 @ 16:29:
Voor zover ik heb kunnen ontdekken, moet ik eerst op slinkse wijze het systeem hacken en mijn rechten omhoogvijzelen tot admin niveau, voordat ik van deze functies gebruik kan maken. Maar dan heb ik ze niet meer nodig. Dat moet ik dan maar doen.

En die username en password van een domain admin heb ik dan niet nodig, daar heb ik toch niets aan.

Wat een zooi, dat Windows. Zucht.

lijkt me een beetje smack als je het systeem zo kan hacken als het dichtgetimmerd is

[DiGuru]

Papa Eend schreef op 12 June 2003 @ 16:34:
[...]

lijkt me een beetje smack als je het systeem zo kan hacken als het dichtgetimmerd is

Weet je een betere oplossing? We kunnen ook alle gebruikers admin rechten geven, maar daar gaan de beheerders zeker niet mee akkoord.

KiXtart en een bibliotheek die ik nu gebruik doen dat ook om bijvoorbeeld op de server op te vragen van welke groepen een gebruiker lid is. Daar heb je namelijk ook adminrechten voor nodig.

Edit: als je een service maakt draait die normaal met system rechten, dat is ruwweg gelijk aan de rechten van de lokale admin.

[ Voor 11% gewijzigd door DiGuru op 12-06-2003 17:05 ]

[DiGuru]

Ik heb nu een applicatie gemaakt die een service installeert. Die service start zichzelf, voert een aktie uit, stopt en verwijderd zichzelf. Dat duurt allemaal ongeveer 1 seconde.

Nou kijken of ik daarmee voldoende rechten heb.

[DiGuru]

Op zich heel leuk, dit is de code:

code:

unit Service;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
  extctrls, WinSvc;

const
  LogFile: string = 'c:\test.log';

type
  TGEMService = class(TService)
    procedure ServiceAfterInstall(Sender: TService);
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
    procedure ServicePause(Sender: TService; var Paused: Boolean);
    procedure ServiceContinue(Sender: TService; var Continued: Boolean);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  GEMService: TGEMService;

implementation

{$R *.DFM}

procedure Log(s: string);
var
  f: TextFile;
begin
  if LogFile <> '' then
  begin
    {$I-}
    if FileExists(LogFile) then
    begin
      AssignFile(f, LogFile);
      Append(f);
    end
    else
    begin
      AssignFile(f, LogFile);
      Rewrite(f);
    end;
    if (IOResult = 0) then
    begin
      Writeln(f, s);
      Flush(f);
      CloseFile(f);
    end;
    {$I+}
  end;
end;

function StartThisService(sMachine, sService : string ) : boolean;
var
  schm,
  schs   : SC_Handle;
  ss     : TServiceStatus;
  psTemp : PChar;
  dwChkP : DWord;
begin
  schm := OpenSCManager(PChar(sMachine), Nil, SC_MANAGER_CONNECT);
  if(schm > 0)then
  begin
    schs := OpenService(schm, PChar(sService), SERVICE_START or 
                        SERVICE_QUERY_STATUS);
    if(schs > 0)then
    begin
      psTemp := Nil;
      if(StartService(schs, 0, psTemp))then
      begin
        if(QueryServiceStatus(schs, ss))then
        begin
          while(SERVICE_RUNNING <> ss.dwCurrentState)do
          begin
            dwChkP := ss.dwCheckPoint;
            Sleep(ss.dwWaitHint);
            if(not QueryServiceStatus(schs, ss))then
            begin
              break;
            end;
            if(ss.dwCheckPoint < dwChkP)then
            begin
              break;
            end;
          end;
        end;
      end;
      CloseServiceHandle(schs);
    end;
    CloseServiceHandle(schm);
  end;
  Result := SERVICE_RUNNING = ss.dwCurrentState;
end;

function StopThisService(sMachine, sService : string ) : boolean;
var
  schm,
  schs   : SC_Handle;
  ss     : TServiceStatus;
  dwChkP : DWord;
begin
  schm := OpenSCManager(PChar(sMachine), Nil, SC_MANAGER_CONNECT);
  if(schm > 0)then
  begin
    schs := OpenService(schm, PChar(sService),  SERVICE_STOP or
                        SERVICE_QUERY_STATUS);
    if(schs > 0)then
    begin
      if(ControlService(schs, SERVICE_CONTROL_STOP, ss))then
      begin
        if(QueryServiceStatus(schs, ss))then
        begin
          while(SERVICE_STOPPED <> ss.dwCurrentState)do
          begin
            dwChkP := ss.dwCheckPoint;
            Sleep(ss.dwWaitHint);
            if(not QueryServiceStatus(schs, ss))then
            begin
              break;
            end;

            if(ss.dwCheckPoint < dwChkP)then
            begin
              break;
            end;
          end;
        end;
      end;
      CloseServiceHandle(schs);
    end;
    CloseServiceHandle(schm);
  end;
  Result := SERVICE_STOPPED = ss.dwCurrentState;
end;

procedure DeleteThisService(sMachine, sService: string);
var
  schm,
  schs   : SC_Handle;
begin
  schm := OpenSCManager(PChar(sMachine), Nil, SC_MANAGER_CONNECT);
  if(schm > 0)then
  begin
    schs := OpenService(schm, PChar(sService), STANDARD_RIGHTS_REQUIRED);
    if(schs > 0)then
    begin
      DeleteService(schs);
      CloseServiceHandle(schs);
    end;
    CloseServiceHandle(schm);
  end;
end;

function QueryThisService(sMachine, sService : string ) : DWORD;
var
  schm,
  schs   : SC_Handle;
  ss     : TServiceStatus;
begin
  Result := SERVICE_STOPPED;
  schm := OpenSCManager(PChar(sMachine), Nil, SC_MANAGER_CONNECT);
  if(schm > 0)then
  begin
    schs := OpenService(schm, PChar(sService), SERVICE_QUERY_STATUS);
    if(schs > 0)then
    begin
      if QueryServiceStatus(schs, ss) then
      begin
        Result := ss.dwCurrentState;
      end;
      CloseServiceHandle(schs);
    end;
    CloseServiceHandle(schm);
  end;
end;

function BoolToStr(b: Boolean): string;
begin
  if b then
  begin
    Result := 'True';
  end
  else
  begin
    Result := 'False';
  end;
end;

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  GEMService.Controller(CtrlCode);
end;

function TGEMService.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TGEMService.ServiceAfterInstall(Sender: TService);
var
  Token: THandle;
begin
  StartThisService('', 'GEMService');
  while QueryThisService('', 'GEMService') <> SERVICE_RUNNING do Sleep(10);
// Do your stuff here //
  StopThisService('', 'GEMService');
  while QueryThisService('', 'GEMService') <> SERVICE_STOPPED do Sleep(10);
  DeleteThisService('', 'GEMService');
end;

procedure TGEMService.ServiceStart(Sender: TService; var Started: Boolean);
begin
  Started := True;
end;

procedure TGEMService.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  Stopped := True;
end;

procedure TGEMService.ServicePause(Sender: TService; var Paused: Boolean);
begin
  Paused := True;
end;

procedure TGEMService.ServiceContinue(Sender: TService;
  var Continued: Boolean);
begin
  Continued := True;
end;

end.

[ Voor 3% gewijzigd door DiGuru op 12-06-2003 23:37 ]

[dusty]

Ik kan tellen, jij kan lezen ? Lees de FAQ.

( gesloten wegens topic schoppen )

[ Voor 32% gewijzigd door dusty op 12-06-2003 23:41 ]