Passwort automatisch eingeben

[lukdelphias]

Hallo liebes Forum,

mal wieder eine Frage.
Ich möchte ein Programm als Administrator und mittels runAs starten. Windows fordert mich daraufhin automatisch auf das Administratorpasswort einzugeben.
Gibt es hier eine Möglichkeit das Passwort automatisch eingeben zu lassen?
Ich habe eine Batch geschrieben, und mit der funktioniert das ganz einwandfrei. Hier der Code falls den jemand benötigt:

Code:

@if (@CodeSection == @Batch) @then
@echo off
start runas /user:administrator C:\temp\...
CScript //nologo //E:JScript "%~F0"
goto :EOF
@end
WScript.CreateObject("WScript.Shell").SendKeys("password{ENTER}");

Für Delphi habe ich mir erstmal den Programmaufruf mit ShellExecute geschrieben. Das funktioniert soweit. Nur für die automatische Passworteingabe habe ich keine Lösung.
Jemand eine Idee?

Viele Grüße

[Delphi.Narium]

Suchmaschine: runas password

https://www.google.com/search?q=runas+password&oq=&aqs=

Zweiter Treffer: https://blog.friedlandreas.net/2015/...wort-mitgeben/

Abgeleitet von: https://stackoverflow.com/questions/...rom-batch-file

Von mir ausprobiert? Nö Aber eventuell was in Richtung Problemlösung.

[lukdelphias]

Hallo Danke erstmal. Das entspricht aber 1:1 meine Lösung von oben und ist für eine Batch vorgesehen. Ich suche allerdings nur noch eine Lösung für die Weitergabe des Passworts unter Delphi.
Grüße

[KodeZwerg]

Meinst Du so etwas?

Delphi-Quellcode:

procedure RunAsExec(hWnd: HWND; aFile: string; aParameters: string);
var
  SEI: TShellExecuteInfo;
begin
  FillChar(SEI, SizeOf(SEI), 0);
  SEI.cbSize       := sizeof(SEI);
  SEI.Wnd          := hWnd;
  SEI.fMask        := SEE_MASK_NOCLOSEPROCESS;
  SEI.lpVerb       := 'runas';
  SEI.lpFile       := PChar(aFile);
  SEI.lpParameters := PChar(aParameters);
  SEI.nShow        := SW_SHOWNORMAL;
  if not ShellExecuteEx(@SEI) then
    RaiseLastOSError;
end;

Beispiel-Aufruf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  DateiName: string;
  Parameter: string;
begin
  DateiName := 'Programm.exe';
  Parameter := ' ' + 'Benutzername' + ' ' + 'Passwort';
  RunAsExec(Application.Handle, DateiName, Parameter);
end;

[Dalai]

Mit UAC-Dialogen kann man aus guten Gründen nicht interagieren. Aber es gibt natürlich andere Möglichkeiten, Prozesse als anderer Nutzer mit Passwort zu starten: CreateProcessAsUser in Kombination mit LogonUser bzw. gleich CreateProcessWithLogon.

Regards
Dalai

[lukdelphias]

Nein sowas meine ich nicht.
Mit Batch rufe ich zuerst mein Programm als Administrator auf. Das ganze funktioniert in Delphi ganz einfach mit ShellExecute.
Danach öffnet die Windows Konsole ein Fenster in dem ich das Administratorpasswort eingeben soll.
In der Batch kann ich mit SendKey das Passwort automatisch eingeben lassen und danach auch automatisch mit {ENTER} bestätigen lassen.
In Delphi öffnet es mir ebenfalls die Konsole mit der Aufforderung das Administratorpasswort einzugeben. Hier finde ich allerdings keine Möglichkeit das Passwort automatisch einzugeben und zu bestätigen. Hast du verstanden wie ich das meine? Ziemlich schwer hier ordentlich zu erklären...

Gruß

[KodeZwerg]

Ich hoffe ich habe Dich richtig verstanden: Ein Programm unter Angabe eines Logonnames plus Password starten, ohne das UAC erscheint.

Ich teste das heute Abend mal durch, mein Schnippsel lief zumindest unter XP noch so wie beschrieben, Programm startet ohne Aufforderungen seitens Windows.

[Delphi.Narium]

Also:

Nachdem meine erste Antwort nach genauerem Lesen eigentlich überflüssig war (ist halt doch irgendwie zu warm hier bei 39,3° im Schatten), derweil ich einfach mal etwas genauer hätte lesen sollen, bevor ich antworte. Sorry, versuche mich zu bessern

Mal langsam:

Batch funktioniert wie gewünscht von der Konsole.

Code:

WScript.CreateObject("WScript.Shell").SendKeys("password{ENTER}");

gibt das Passwort wie gewünscht weiter.

Beim ShellExecute aus Delphi heraus scheint dies aber nicht zu funktionieren.

Wunsch ist es:

Batchdatei weiterhin aus Delphi aufrufen und das Passwort wird nicht von WScript im Batch selbst "übergeben", sondern dieser Teil wird von Delphi übernommen.

Keine Ahnung, ob es hilft und wie das mit 'nem ShellExecute zusammenpassen könnte:

Stöbere bitte mal bitte im Umfeld von https://stackoverflow.com/questions/...n-using-winapi herum, eventuell kann ich Dir ja damit jetzt doch noch was zielführendes anbieten

Eventuell kannst Du die Batchdatei aber auch erweitern:

Schau mal bitte hier: https://docs.microsoft.com/en-us/pre...ectedfrom=MSDN

Jetzt nur als absolut ungetestete Idee:

Code:

@if (@CodeSection == @Batch) @then
@echo off
:: Parameter %1 der Batchdatei enthält dass Passwort des Administrators für den Server 01 und wird hier gespeichert.
cmdkey /add:server01 /user:administrator /pass:%1
start runas /user:administrator C:\temp\...
CScript //nologo //E:JScript "%~F0"
:: Die gespeicherte Anmeldung für den Administrator wird wieder gelöscht.
cmdkey /delete:server01
goto :EOF
@end

Mit etwas Glück musst Du dann in Deinem bisherigen ShellExecute nur das Administratorpasswort als ersten Parameter übergeben.

[lukdelphias]

Zitat von KodeZwerg:

Meinst Du so etwas?

Delphi-Quellcode:

procedure RunAsExec(hWnd: HWND; aFile: string; aParameters: string);
var
  SEI: TShellExecuteInfo;
begin
  FillChar(SEI, SizeOf(SEI), 0);
  SEI.cbSize       := sizeof(SEI);
  SEI.Wnd          := hWnd;
  SEI.fMask        := SEE_MASK_NOCLOSEPROCESS;
  SEI.lpVerb       := 'runas';
  SEI.lpFile       := PChar(aFile);
  SEI.lpParameters := PChar(aParameters);
  SEI.nShow        := SW_SHOWNORMAL;
  if not ShellExecuteEx(@SEI) then
    RaiseLastOSError;
end;

Beispiel-Aufruf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  DateiName: string;
  Parameter: string;
begin
  DateiName := 'Programm.exe';
  Parameter := ' ' + 'Benutzername' + ' ' + 'Passwort';
  RunAsExec(Application.Handle, DateiName, Parameter);
end;

Hallo KodeZwerg,

um nochmal darauf einzugehen. Das läuft jetzt teilweise bei mir. Heißt wenn ich den Parameter-String frei lasse funktioniert es. Sobald ich in den Parameter-String Benutzername und Passwort eintrage, öffnet er mir das Programm nicht mehr. Bringt aber auch keinen Fehler....

[himitsu]

Jetzt könnte man den ExitCode des Programms noch prüfen.

Zitat:

SEE_MASK_NOCLOSEPROCESS

Und was soll dieses Handle-Leck in dem Code?

SEI.pHandle wird zuückgegeben, aber niemals geschlossen.