Defragmentierung als Administrator ausführen

[eticket]

Hallo,

die Defragmentierung kann nur mit Administrationsrechten ausgeführt werden.
Ich suche ein Programm, mit dem man die Defragmentierung als "Hauptbenutzer" aufruft,
d.h. in der Oberfläche werden Administrator und Passwort (voreingestellt) übergeben.
Der User klickt dann nur auf Start und die Defragmentierung wird gestartet.

Anbei das Programmkonstrukt

Delphi-Quellcode:

function GetCurrUserName: string;
var
  Size              : DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;

function ComputerNameStr: String;
var
  Size: DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetComputerName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;

function Impersonate(const User, PW: string): Boolean;
var
  LogonType         : Integer;
  LogonProvider     : Integer;
  strAdminUser      : string;
  strAdminDomain    : string;
  strAdminPassword  : string;
begin
  LogonType := LOGON32_LOGON_INTERACTIVE;
  LogonProvider := LOGON32_PROVIDER_DEFAULT;
  strAdminUser := USER;
  strAdminDomain := ComputerNameStr;
  strAdminPassword := PW;
  Result := LogonUser(PChar(strAdminUser), PChar(strAdminDomain), PChar(strAdminPassword), LogonType, LogonProvider, TokenHandle);
  if Result then
  begin
    Result := ImpersonateLoggedOnUser(TokenHandle);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var unstr, pwstr : String;
begin
     // Starte Defragmentierung
     unstr := Username.Text;
     pwstr := Password.Text;

     if Impersonate(unstr, pwstr) then
     begin
          RevertToSelf;
          if ShellExecute( Application.Handle , 'open' , PChar('dfrg.msc'), Nil, Nil, SW_NORMAL) <= 32 then
             ShowMessage('Es ist ein Fehler aufgetreten');
     end
     else
         MessageBox(0, PChar(SysErrorMessage(GetLastError)), '', 0);

end;

Es funktioniert klar, wenn der User lokale Administrationsrechte hat, nicht aber, wenn
er Hauptbenutzer ist.

Wie mache ich das?

Danke für eure Hilfe

Michael

[Dezipaitor]

Wenn du RevertToSelf; nach ShellExecute aufrufen würdest,
könnte das Defrag Programm auch mit Adminrechten gestartet werden.

[himitsu]

Muß der Benutzer unbedingt selber den Defragmentierer starten?

Die Meinsten laufen ja als Service und verügen auch über eine Job-geührte Steuerung ... man kann also sagen wann/wie die Platten automatisch defragmentiert werden sollen.

[eticket]

Wenn ich RevertToSelf nach dem ShellExecute aufrufe, kommt es zu der Fehlermeldung:

MMC konnte nicht initialisiert werden, weil nicht richtig installiert oder
ein Teil der Registrierungs beschädigt wurde. Bitte vergewissern Sie sich, daß
die Datei Mmcndrmgr.dll registriert wurde, indem Sie "regsrv32
%systemroot%\system32\mmcndmgr.dll" aus

Das habe ich auch gemacht und es funktioniert trotzdem nicht.

Was tun?

[Dezipaitor]

Ist der Code in einem Dienst ausgeführt?

[eticket]

Der Code wird in einem Programm ausgeführt, nicht in einem Dienst.

Den Quellcode habe ich beigefügt.

[Dezipaitor]

ich denke mal, dass die LogonSID die im Token von LogonUser steckt, nicht in der Desktop DACL existiert, und so kein Fenster auf dem Desktop geöffnet werden kann.
Es gibt zwei Lösungen:
1. Einfügen der LogonSID des neuen Benutzers in die DACL
2. Einfügen der LogonSID des aktuellen Benutzers in die TokenGroups - nur über einen Dienst möglich.

Ersteres sollte immer möglich sein, da die LogonSID des Benutzer in der Desktop DACL volle Kontrolle hat.

[eticket]

Danke für den Tip.
Wie realisiere ich deinen ersten Vorschlag denn programmtechnisch ode rmuß ich da betriebssystemtechnisch etwas tun?

[Dezipaitor]

Die Funktionsaufrufe sehen etwa so aus. Es gibt da auch in der MSDN ein C Beispiel.

OpenWindowStation
OpenDesktop
GetSecurityInfo
GetSecurityInfo
AddAceAllowed
AddAceAllowed
SetSecurityInfo
SetSecurityInfo

Mit der JWSCL sind es ein paar sichere Zeilen weniger.

[eticket]

Ich komme doch noch mal hierauf zurück.

Zitat von Dezipaitor:

ich denke mal, dass die LogonSID die im Token von LogonUser steckt, nicht in der Desktop DACL existiert, und so kein Fenster auf dem Desktop geöffnet werden kann.
Es gibt zwei Lösungen:
1. Einfügen der LogonSID des neuen Benutzers in die DACL
2. Einfügen der LogonSID des aktuellen Benutzers in die TokenGroups - nur über einen Dienst möglich.

Ersteres sollte immer möglich sein, da die LogonSID des Benutzer in der Desktop DACL volle Kontrolle hat.

Der neue Benutzer ist der Administrator des Rechners.
Hat dieser wirklich keinen Zugriff auf die DACL?

Gibt es nichts einfacheres?

Mir geht es doch im Pronzip nur um die Programmtechnische Umgehung des Rechte-Maus "Ausführen als.."