Ein nicht nachvollziehbares Problem

SwampThing

Hallo,

ich bin aktuell ein wenig ratlos. Ich habe ein Skript geschrieben, welches die Installation einer Software automatisiert. Hier mal ein kurzer Auszug aus dem Code:

If FileExists($setup) Then
BlockInput(1)
RunAsSet("domänenadmin", "domäne", "passwort")
Run($setup)
Sleep(5000)
While ProcessExists("msiexec.exe")
If WinActive("Fenstertitel", "Fenstertext") Then
Send("!w")
EndIf

usw.

Das Problem ist nun, dass bei 80% der Rechner, auf dem ich das Skript habe laufen lassen, alles perfekt funktioniert - bei 20% allerdings bleibt das Skript nach dem Öffnen der Setup-Datei (also beim ersten Dialog der Installationsroutine) stehen. Das "BlockInput" ist nicht aktiv, so dass der Benutzer eingreifen kann, was er eigentlich nicht dürfte. Meine Frage ist nun, ob es unter gewissen Umständen allgemein Probleme mit dem "send"-Befehl bzw. dem senden bestimmter Tastenkombinationen gibt ? Ich kann diesen Fehler nämlich nicht nachvollziehen und auch nicht provozieren. Denn wenn ich das Skript auf den "Problem-Rechnern" manuell nochmal anstoße, dann läuft es einwandfrei durch.

**Xenobiologist**

Hi,

vielleicht verliert das Fenster den Foucs. Versuch mal auf ControlSend umzustellen.

So long,

Mega

SwampThing

Hi Mega,

was genau meinst Du mit "das Fenster verliert den Foucs" ?
Ich werde die "send" - Geschichten mal umstellen. Ich geb Dir Bescheid !

Viele Grüße

**Xenobiologist**

Hi,

wenn das Fenster das den Send Befehl bekommen soll nicht aktiv ist, dann geht der Send ins Leere!

So long,

Mega

SwampThing

..könnte ich da theoretisch das If-Konstrukt mit WinActive um den ControlSend - Befehl weglassen ? Dem ControlSend gebe ich ja schon die Fensterinformationen mit, welche ich vorher dem WinActive mitgegeben habe.

**peethebee**

Hi!

Bräuchtest wohl ein WinWait davor...
Also WinWait > ControlSend

peethebee

**bernd670**

Hallo!

Wenn Du das Programm von Hand startest bist Du dann mit Adminrechten angemeldet?

Dann schreibe mal folgende Zeilen ganz an den Anfang von deinem Programm und probiers dann.

[autoit]

If Not IsAdmin() Then
RunAsSet("domänenadmin", "domäne", "passwort")
Run(@ScriptFullPath, @ScriptDir, @SW_HIDE)
RunAsSet()
Exit
EndIf

[/autoit]

Diese Zeilen sorgen dafür das das komplette Programm mit Adminrechten ausgeführt wird!

Edit: Die Paramter für RunAsSet müssen nartülich noch angepasst werden

Waluev

Mmh, das klingt mir irgendwie nach Sicherheitslücke?! Ich mein wenn man dem PC einfach vorspielen kann das der User Admin ist ist das doch wenn man es gekonnt anwendet mehr oder weniger gefährlich, oder sehe ich das falsch?

Waluev

**bernd670**

Ich glaube Du verstehst das falsch! Es wird nicht dem PC vorgespielt das ein User Admin ist, sondern das Programm läuft unter mit einer Adminkennung. So als würde man mit "Ausführen als..." ein Programm starten.

Das RunAsSet aber nur auf die Befehle Run und RunWait Auswirkung hat sorgt die Routine dafür, falls das Programm von einem normalen Benutzer gestartet wurde, dass das Programm nochmal mit Adminrechten gestartet wird.

Waluev

ok, glaube ich habs verstanden, hätte mir auch nicht vorstellen können das Windows so eine "sicherheitslcke", wenn es denn eine wäre ungefixt lässt

Waluev

SwampThing

bernd670 : nee, wenn ich das Skript von Hand starte, dann bin ich nicht als Admin angemeldet, sondern als der jeweilige User.