Re: lpEnvironment-Parameter bei CreateProcessWithLogonW
Zitat:
|
Re: lpEnvironment-Parameter bei CreateProcessWithLogonW
Hallo Daniel,
alles Gute noch zu deinem Geburtstag. Ich hatte mich auf den Post direkt vor meinem bezogen. Jetzt habe ich mir auch mal deine Demo runtergeladen und die meldet Fehler 1326 - egal was ich probiere. Also habe ich auch mal in die Quelle geschaut und auch bei deinem Code habe ich den Eindruck, er kann eigentlich nicht funktionieren - abgesehen davon, dass er sich auf meiner Maschine nicht übersetzen lässt. Es fängt damit an, dass auch du das W am Ende des Funktionsnamens missachtest, aber da sind wohl noch mehr Ungereimtheiten. Grüße vom marabu |
Re: lpEnvironment-Parameter bei CreateProcessWithLogonW
Zitat:
[EDIT] Meine Vorstellungen zum Environment gehen dahin, das ein Programm trotz des Ausführens unter Adminrechten die komplette Umgebung des aktuell angemeldeten Benutzers nutzen soll. Im Prinzip dasselbe was der Befehl
Code:
von Windows macht. Wenn also jemand einen besseren Weg kennt bin ich für Vorschläge offen. :-)
runas /env
[EDIT2] @Daniel G: Auch von mir noch nachträglich alles Gute zum Geburtstag. :party: |
Re: lpEnvironment-Parameter bei CreateProcessWithLogonW
Hi ringli, dann lerne doch bitte Englisch, wenn du es noch nicht kannst. Ein Forum ist nicht dazu da dir die Doku zu übersetzen.
Auf Englisch steht dort: If the lpEnvironment parameter is NULL, the new process inherits the environment of the calling process. Auf Deutsch heißt das: Wenn der lpEnvironment-Parameter NULL ist, erbt der neue Prozeß die Umgebung des aufrufenden Prozesses. |
Re: lpEnvironment-Parameter bei CreateProcessWithLogonW
@marabu: Fehler 1326 bedeutet ERROR_LOGON_FAILURE, also daß der Logon fehlschlug. Dies kann zB daran liegen, wenn du einen falschen Benutzernamen und/oder ein falsches Paßwort angibst. Ansonsten passiert das nicht. Außerdem wäre die Domain noch wichtig. Rein von der Semantik gehört die aber eher zum Benutzernamen (DOMAIN\USER), wird in dieser API aber getrennt übergeben.
Hier ein funktionierendes Beispiel (Hinweise habe ich im Code in ROT verfaßt!):
Code:
CODE WEITGEHEND ENTFERNT. BITTE ANHANG DES ÜBERNÄCHSTEN BEITRAGES BEACHTEN!
function CreateEnvironmentBlock(
var lpEnvironment: LPVOID; [color=red]// War falsch deklariert in deinem Code![/color] hToken: HANDLE; bInherit: Boolean ): Boolean; stdcall; external 'userenv.dll'; |
Re: lpEnvironment-Parameter bei CreateProcessWithLogonW
Hier noch 2 Funktionen um die Umgebung, von welcher wir den Pointer haben, zu dumpen:
Delphi-Quellcode:
Wie sofort ersichtlich ist, dient eine für ANSI- und die andere für Unicode-Umgebungen!
procedure DumpEnvironmentW(lpEnvironment: LPVOID);
var Env: PWideChar; begin Env := lpEnvironment; Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); while(lstrlenW(Env) > 0) do begin Writeln(String(WideString(Env))); Env := PWideChar(DWORD(Env) + DWORD(lstrlenW(Env) + 1) * DWORD(sizeof(Env^))); end; Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); end; procedure DumpEnvironmentA(lpEnvironment: LPVOID); var Env: PAnsiChar; begin Env := lpEnvironment; Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); while(lstrlenA(Env) > 0) do begin Writeln(String(Env)); Env := PAnsiChar(DWORD(Env) + DWORD(lstrlenA(Env) + 1) * DWORD(sizeof(Env^))); end; Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); end; EDIT: Anhang entfernt, bitte im nächsten Beitrag den Anhang beachten! |
Re: lpEnvironment-Parameter bei CreateProcessWithLogonW
So, habe es jetzt nochmal "mundgerecht" aufgeteilt. Es gibt jetzt eine Wrapperfunktion, der man eine Untermenge der Parameter der ursprünglichen API übergibt. Optional übergibt man auch einen Environment-Block. Das mit dem optional funktioniert natürlich erst ab Delphi 4, wegen dem Default-Parameter.
Delphi-Quellcode:
CreateProcessWithLogonWrapper() ist einfach der besagte Wrapper. Die Parameter entsprechen denen der Orginal-API insofern vorhanden.
(******************************************************************************
Function to wrap around the CreateProcessWithLogon() API ******************************************************************************) function CreateProcessWithLogonWrapper( lpUsername: LPCWSTR; lpDomain: LPCWSTR; lpPassword: LPCWSTR; lpApplicationName: LPCWSTR; lpCommandLine: LPWSTR; dwCreationFlags: DWORD; lpEnvironment: LPVOID = nil ): Boolean; var sui: STARTUPINFOW; pi: PROCESS_INFORMATION; begin Result := False; // Fill sui with zeroes ZeroMemory(@sui, sizeof(sui)); // Fill size member sui.cb := sizeof(sui); // Create process if (CreateProcessWithLogonW( lpUsername, lpDomain, // Domain lpPassword, LOGON_WITH_PROFILE, // No special options lpApplicationName, // Module to execute lpCommandLine, // Activates extensions dwCreationFlags or CREATE_UNICODE_ENVIRONMENT, // Only these options for now lpEnvironment, nil, // Use current directory sui, // STARTUPINFO pi // PROCESS_INFORMATION )) then Result := True; // Return success end; (****************************************************************************** Function to get a copy of the current environment. The returned pointer MUST BE DESTROYED using the DestroyEnvironmentBlock() API. ******************************************************************************) function GetCurrentEnvironmentBlock(): LPVOID; var hToken: HANDLE; begin Result := nil; // Open process token of current process if (OpenProcessToken(GetCurrentProcess(), TOKEN_QUERY or TOKEN_DUPLICATE, hToken)) then try // Create copy of current environment block if (not CreateEnvironmentBlock(Result, hToken, True)) then Result := nil; finally CloseHandle(hToken); // Close the token of the current process end; end; GetCurrentEnvironmentBlock() gibt den Environment-Block des aktuellen Prozesses zurück. Dieser muß danach mit der API DestroyEnvironmentBlock() wieder zerstört werden. Wird nil zurückgegeben, so war der Aufruf nicht erfolgreich. Anhang und ausführliche Beschreibung zum Code findet sich hier |
Re: lpEnvironment-Parameter bei CreateProcessWithLogonW
Hier noch das Beispiel mit dem eigenen selbsterstellten Environment-Block (Unicode!):
Delphi-Quellcode:
Werde das gleich im Anhang des Beitrags obendrüber ändern ...
(******************************************************************************
Hier erstellen wir mal frisch fröhlich ein eigenes Environment, nur um zu zeigen wie das geht. Hier wird WideString benutzt, weil wir in unserem Wrapper *immer* Unicode-Environments erwarten ... ******************************************************************************) Writeln('-----------------------------------------------------------------------'); Writeln('Mit Pfriemelei (eigenes Environment) ...'); (* WICHTIG: Am Ende muß immer 2x die #0 stehen! Das ist quasi der END-Marker *) env:= 'USERNAME=SONSTWAS' + #0 + 'PATH=C:\Blabla\bla\blubb' + #0 + #0; lpEnvironment := @env[1]; if (CreateProcessWithLogonWrapper( 'ottokar', nil, 'das fruechtchen', 'cmd.exe', '/E:ON /K SET USERNAME', CREATE_NEW_CONSOLE, lpEnvironment )) then Writeln('Guck mal an, es funzt ja doch') else Writeln('FEHLER: Es ist ein Fehler aufgetreten (', GetLastError(), ')'); // Wait for input Writeln('ENTER druecken um fortzufahren ...'); Readln; Hier sieht man mal den Vorteil von Delphi-Strings ;) |
Re: lpEnvironment-Parameter bei CreateProcessWithLogonW
Hi Olli,
erstmal vielen Dank für deine Mühe. Ich werde das nachher mal versuchen zu verstehen. ;-) Aber eine Anmerkung hätte ich noch: Zitat:
Code:
Wenn ich das mit meinen bescheidenen Englischkenntnissen richtig verstehe wird das Environment des übergebenen Benutzers verwendet. Wenn du mal mit CreateProcessWithLogonW die Eingabeaufforderung startest, und den Befehl "SET" eintippst wirst du sehen das auch wirklich das Environment des übergebenen Benutzers verwendet wird und nicht das des angemeldeten Benutzers.
lpEnvironment
If this parameter is NULL, the new process uses the environment of the specified user instead of the environment of the calling process. |
Re: lpEnvironment-Parameter bei CreateProcessWithLogonW
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:21 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz