Zu geringe Programm-Recht unter Benutzer "Gast" bei XP

[r29d43]

Hi all!


Wie kann ich ein Programm, welches z.B. auch im Kontext des Benutzers "Gast" ausgeführt wird, dazu überreden, in eine Datei zu schreiben, in die "Gast" aber normalerweise nicht reinschreiben darf?


Folgende Situation: Ich schreibe gerade ein Prog welches die LOGONs und LOGOFFs der einzelnen User auf einem PC mitprotokollieren soll. Das Prog entsteht aktuell in diesem Pfad: "C:\Dokumente und Einstellungen\mein Name\Eigene Dateien\Borland Studio-Projekte\ProgrammName\", wird bei jedem Prog-Test also auch von hier aus gestartet. Beim LOGON eines Benutzers wird es über einen Registry-Eintrag im "HKEY_LOCAL_MACHINE\SOFTWARE\........\Run"-Schlüssel mit hochgeladen und macht dann anschließend in einen ..\Data\LogData.Log-File einen entsprechenden Eintrag. Trifft im Prog die wm_EndSession-Message ein, dann schreibt es in diese Datei einen LOGOFF-Eintrag. Soweit erstmal die Hauptaktionen des Progs.

In W2k funktioniert das in genau dieser Konstellation auch bei einem Einloggen eines Benutzers "Gast". In XP allerdings klappt das leider nicht mehr. Schon aus dem Pfad heraus, in dem das Prog compiliert wird, kann es "Gast" mittels des Registry-Eintrages nicht mehr ausführen. Compiliere ich das Ganze z.B. auch mal in "C:\Dokumente und Einstellungen\All Users\Eigene Dateien\Borland Studio-Projekte\ProgrammName\" dann wird das Prog von da zwar ausgeführt, aber es kann diese LogData.Log-Datei nicht beschreiben (wegen eben zu geringer Rechte).


Wie also könnte man dieses Prog rechtemäßig so präparieren, dass es diese Aufgabe aber trotzdem kann?

Oder gibt's eine Möglichkeit, das Prog außerhalb des jeweiligen User-Kontextes laufen zu lassen, quasi immer mit denjenigen Admin-Rechten, mit denen es ja auch ursprünglich installiert wurde?


Irgendwelche Ideen?


Thx schonmal im Voraus.

[Bernhard Geyer]

Zitat:

Zitat von r29d43

Wie kann ich ein Programm, welches z.B. auch im Kontext des Benutzers "Gast" ausgeführt wird, dazu überreden, in eine Datei zu schreiben, in die "Gast" aber normalerweise nicht reinschreiben darf?

Nö. Das würde ja sonst jeder Wurm auch machen.

Zitat:

Zitat von r29d43

In W2k funktioniert das in genau dieser Konstellation auch bei einem Einloggen eines Benutzers "Gast".

Dann sind unter W2k die default-rechte wohl etwas lockerer gewesen

Zitat:

Zitat von r29d43

Wie also könnte man dieses Prog rechtemäßig so präparieren, dass es diese Aufgabe aber trotzdem kann?

An dem Programm kannst du gar nichts machen. Der Admin muss entsprechend die Rechte setzen das die Dateien die von dir benötigt werden auch für den Gast die entsprechenden Rechte hat.

Zitat:

Zitat von r29d43

Oder gibt's eine Möglichkeit, das Prog außerhalb des jeweiligen User-Kontextes laufen zu lassen, quasi immer mit denjenigen Admin-Rechten, mit denen es ja auch ursprünglich installiert wurde?

Wie wäre es mit einem NT-Dienst?

[DasZiesel]

Hiho,

warum eigentlich so kompliziert? Lies doch einfach das LOG der Ereignisanzeige Sicherheit aus. Dort werden, falls aktiviert, alle An- und Abmeldungen protokolliert, sowie die erfoglreichen und nicht erfolgreichen.

[r29d43]

Zitat:

Zitat von Bernhard Geyer

Zitat:

Zitat von r29d43

Oder gibt's eine Möglichkeit, das Prog außerhalb des jeweiligen User-Kontextes laufen zu lassen, quasi immer mit denjenigen Admin-Rechten, mit denen es ja auch ursprünglich installiert wurde?

Wie wäre es mit einem NT-Dienst?

Und ein NT-Dienst könnte genau das? (Minimal hatte ich das zwar schon irgendwo vermutet, allerdings hatte ich mit Diensten bisher noch nichts zu tun). Gut, werde ich mir dann mal etwas genauer angucken :-D

Zitat:

Zitat von DasZiesel

warum eigentlich so kompliziert? Lies doch einfach das LOG der Ereignisanzeige Sicherheit aus. Dort werden, falls aktiviert, alle An- und Abmeldungen protokolliert, sowie die erfoglreichen und nicht erfolgreichen.

Das wäre zur Not auch noch eine Möglichkeit. Welche Datei muss dazu eigentlich ausgelesen werden. Gibts dafür irgendwo eine Anleitung?

[DasZiesel]

Zum Eventlog habe ich was gefunden auf meinem Stick. Keine Ahnung ob dies noch funktioniert und von wem der Source ist. Vielleicht hilft er dir etwas.
Noch etwas, zum auslesen benötigst du Administratorrechte.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

const
  BUFFER_SIZE = 1024*128;
// Defines for the READ flags for Eventlogging
  EVENTLOG_SEQUENTIAL_READ = $0001;
  EVENTLOG_SEEK_READ = $0002;
  EVENTLOG_FORWARDS_READ = $0004;
  EVENTLOG_BACKWARDS_READ = $0008;

// The types of events that can be logged.
  EVENTLOG_SUCCESS = $0000;
  EVENTLOG_ERROR_TYPE = $0001;
  EVENTLOG_WARNING_TYPE = $0002;
  EVENTLOG_INFORMATION_TYPE = $0004;
  EVENTLOG_AUDIT_SUCCESS = $0008;
  EVENTLOG_AUDIT_FAILURE = $0010;

// Defines for the WRITE flags used by Auditing for paired events
// These are not implemented in Product 1
  EVENTLOG_START_PAIRED_EVENT = $0001;
  EVENTLOG_END_PAIRED_EVENT = $0002;
  EVENTLOG_END_ALL_PAIRED_EVENTS = $0004;
  EVENTLOG_PAIRED_EVENT_ACTIVE = $0008;
  EVENTLOG_PAIRED_EVENT_INACTIVE = $0010;

  servicekey = 'SYSTEM\CurrentControlSet\Services\Eventlog';

type
//
// Structure that defines the header of the Eventlog record. This is the
// fixed-sized portion before all the variable-length strings, binary
// data and pad bytes.
//
// TimeGenerated is the time it was generated at the client.
// TimeWritten is the time it was put into the log at the server end.
//
  PEVENTLOGRECORD = ^EVENTLOGRECORD;
  EVENTLOGRECORD = packed record
    Length,
      Reserved,
      RecordNumber,
      TimeGenerated,
      TimeWritten,
      EventID: DWORD;
      EventType,
      NumStrings,
      EventCategory,
      ReservedFlags: Word;
      ClosingRecordNumber,
      StringOffset,
      UserSidLength,
      UserSidOffset,
      DataLength,
      DataOffset: DWORD;
  end;
var
  idx: Integer;
  hReg: HKEY;
  readed, needed, oldrec, numrecs, bufsize, err, pos: DWORD;
  ft: FILETIME;
  buffer: array[0..BUFFER_SIZE-1] of char;
  log: THandle;
  elr: EVENTLOGRECORD;
  pelr: PEVENTLOGRECORD;
  begin
  idx := 0;
  err := 128;
  log := OpenEventLog(nil, 'system');
  repeat
  if ReadEventLog(log, EVENTLOG_SEQUENTIAL_READ or EVENTLOG_FORWARDS_READ, err, @buffer, BUFFER_SIZE, readed, needed) then
  begin
   pos    := 0;
   repeat
    move   (buffer[pos], elr, sizeof(EVENTLOGRecord));
    if (elr.EventType <> 255) then
    begin
     write  ('Error         = ' );
     case elr.EventType of
      EVENTLOG_ERROR_TYPE: writeln('Error');
      EVENTLOG_WARNING_TYPE: writeln('Warning');
      EVENTLOG_INFORMATION_TYPE: writeln('Information');
      EVENTLOG_AUDIT_SUCCESS: writeln('AUDIT Success');
      EVENTLOG_AUDIT_FAILURE: writeln('AUDIT Failure');
     else
      writeln('Unknow');
     end;
     writeln('Length        = ',elr.Length);
     writeln('EventID       = ',elr.EventID);
     writeln('String Offset = ',elr.StringOffset);
     writeln('Data Offset   = ',elr.DataOffset);
     writeln('Data Length   = ',elr.DataLength);
     writeln('NumStrings    = ',elr.NumStrings);
     if (elr.NumStrings > 0) then
     begin
      write('String [');
      for idx := elr.StringOffset to elr.DataOffset-1 do
       write(buffer[pos+idx]);
      writeln(']');
     end;

     if (elr.DataLength > 0) then
     begin
      write('Data [');
      for idx := 0 to elr.DataLength-1 do
       write(inttohex(byte(buffer[pos+(elr.DataOffset+idx)]), 2),' ');
      writeln(']');
     end;
    end;
//    writeln('Next Entry = ',pos+elr.Length,' (',readed,')');
    inc(pos, elr.Length);
   until (pos >= readed);
   end else begin
    err := GetLastError;
    if (err <> 38) then writeln(SysErrorMessage(err),' (',err,')');
   break;
  end;
  until false;
  CloseEventlog(log);

  readln;
end.

[Luckie]

Es gibt eine Anleitung. Du findest sie mit der Suche: ereignisanzeige, EventLog.

[Dezipaitor]

Du könntest auch einfach vorsorglich diese Datei mit Schreibrechten für den Gast ausstatten - z.B. bei einer Installation.

[Larsi]

ihr kennt doch bestimmt alle dieses ausführen als, oder? kann man sowas nicht auch mit delphi aufrufen?

[Dezipaitor]

Jup, die Funktion lautet dazu

Delphi-Quellcode:

createprocesswithlogonW

.
Die Frage ist, warum ein Gastbenutzer diese verwenden soll?

[r29d43]

Thx all for help!

Zitat:

Zitat von Dezipaitor

Du könntest auch einfach vorsorglich diese Datei mit Schreibrechten für den Gast ausstatten - z.B. bei einer Installation.

Kann man das auch gleich mit einem ganzen Folder machen, bzw. mit dessen dann ganzem Inhalt generell? Denn von diesen da entstehenden Log-Filen wird es ja dann jeden Monat einen neuen geben. Nach welchen Stichworten müsste man suchen, um sich da mal etwas weiter informieren zu können?

Zitat:

Zitat von Larsi

ihr kennt doch bestimmt alle dieses ausführen als, oder? kann man sowas nicht auch mit delphi aufrufen?

Diese Sachen sind hier imo eher weniger nutzbar, da für diese Funktionen ja auch immer das Passwort dieser anderen Person (unter der ich das Prog dann laufen lassen möchte) nötig ist. Und das kennt das Programm doch nicht, und wird ihm bei der Installation wahrscheinlich auch niemand mitteilen.