Internet Explorer aus Systemdienst starten

[kuba]

Zitat von Assarbad:

Mal unbesehen des Unsinns eine Instanz des Internet Explorer aus einem Dienst zu starten, bitte stoppe doch mal folgenden Dienst: UI0Detect. Dann probiert dein Programm nochmal. Bin gespannt auf's Ergebnis

Übrigens: %SystemRoot%\System32\config\Systemprofile enthält "Desktop" usw. für das Konto SYSTEM.

Hab ich ausprobiert, bzw. UI0Detect war nicht gestartet. Der Dienst hat keinen Einfluss auf meinen NT-Service, habs ausprobiert. Funktioniert denn RunAs aus einem NT-Service ?? Kennwort ist uninteressant ...

KUBA

[Assarbad]

Zitat von kuba:

Funktioniert denn RunAs aus einem NT-Service ??

Ehrlich gesagt noch nie probiert. Meiner Meinung nach spricht aber auch nichts wirklich dagegen. Versuch's doch. Du meinst ShellExecute(Ex) und das Verb "runas"?

[kuba]

Also mit RunAs funktionierts, allerdings ist das mit dem Passwort nicht ganz unproblematisch. Wenn ich das Kennwort ändere während der Benutzer angemeldet ist funktioniert RunAs nicht.

Wo hat Nebbett denn gezeigt wies ohne Passwort geht ?

Mit Windows 2000/XP gehts auch ohne Passwort ...

KUBA

[Assarbad]

Zitat von kuba:

Wo hat Nebbett denn gezeigt wies ohne Passwort geht ?

In der "Windows NT/2000 Native API Reference". Erfordert eben das TCB-Privileg. Aber das haste wenn du als Dienst unterwegs bist.

[rollstuhlfahrer]

Gibts auch ne Seitenzahl? - Nen Link wirds wohl kaum geben, da das ein Buch ist.

Bernhard

[Assarbad]

Zitat von rollstuhlfahrer:

Gibts auch ne Seitenzahl? - Nen Link wirds wohl kaum geben, da das ein Buch ist.

Leider im Moment nicht, da ich das Buch nicht hier habe. Kann aber am Abend nachschauen. Habe auch irgendwo eine elektronische Variante (neben den zwei gekauften physischen Exemplaren)

Der Beispielcode war damals allerdings von Newriders noch herunterladbar. Der sollte also allemal auffindbar sein.

[kuba]

Den Nt-Service habe ich nicht selbst geschrieben sondern aus dem Internet.

Anscheinend funktioniert die Übergabe des Usertoken nicht unter Vista/7. Der Service funktioniert auch nicht unter 64Bit Betriebssystemen, da hab ich aber mittlerweile eine Lösung gefunden damit es doch funktioniert.

Würde mich sehr freuen wenn mir jemand einen Tip geben könnte was da falsch läuft, danke !

KUBA

PS: 64 Bit Anpassung...

Delphi-Quellcode:

function GetShellProcName: String;
var
    Reg : TRegistry;
begin
    if IsWin64 then Reg := TRegistry.Create(KEY_ALL_ACCESS OR KEY_WOW64_64KEY);
    if not IsWin64 then Reg := TRegistry.Create(KEY_READ);
    try
        Reg.RootKey := HKEY_LOCAL_MACHINE;
        Reg.OpenKeyReadOnly('Software\Microsoft\Windows NT\CurrentVersion\WinLogon');
        Result := Reg.ReadString('Shell');
    finally
        Reg.Free;
    end;
end;


function GetShellHandle: THandle;
var
    Pid : THandle;
    ShellProcName : String;
begin
    Result := 0;
    ShellProcName := GetShellProcName;
    if Length(ShellProcName) > 0 then
    begin
        Pid := ProcessIDFromAppname32(ShellProcName);
        if Pid <> 0 then
            Result := OpenProcess(PROCESS_ALL_ACCESS, False, Pid);
    end;
end;

[Assarbad]

Zitat von rollstuhlfahrer:

Gibts auch ne Seitenzahl? - Nen Link wirds wohl kaum geben, da das ein Buch ist.

Seite 205 ff.

[hathor]

Zitat von Assarbad:

...(neben den zwei gekauften physischen Exemplaren) ...

M.Alzheimer ?

[Assarbad]

Zitat von hathor:

Zitat von Assarbad:

...(neben den zwei gekauften physischen Exemplaren) ...

M.Alzheimer ?

HMM? Was meinst du? Es war nicht Vergeßlichkeit weshalb ich zwei habe, wenn das gemeint war. Mittlerweile ist das Buch ausverkauft und kurz nach dem Erscheinen hatte ich mein erstes Exemplar gekauft. Das sieht man diesem auch an - auch wie intensiv es genutzt wurde. Das zweite Exemplar sieht noch relativ unbeschädigt aus