Systemeigenschaften per CMD aufrufen

[IMPEGA]

Hallo
Ich habe folgendes Problem.
Ich möchte dieses Fenster per CMD aufrufen. (Von Delphi aus)
http://www0.xup.in/exec/ximg.php?fid=18667113
Sastem : Windows 7 Englisch
So könnte ich die Aktivierung per Hand einleiten. Slui.exe startet nicht. Keine Ahnung warum.


Hier mein Problem, vielleicht hat Jemand eine andere (bessere) Idee.
Es geht nur darum zu sehen ob Windows aktiviert wurde.
Ich aktiviere Windows so: ShellExecute(HWND(nil), 'open', PAnsiChar('slmgr.vbs'), '/ato', '', SW_NORMAL);
Leider bleibt der Script öfters mal hängen. Es werden parallel viele Sachen im Hintergrund konfiguriert.
Die Aktivierung ist nur ein Teil davon.
Um zu sehen ob die Aktivierung erfolgreich war möchte ich eben die Systemeigenschaften automatisch starten. Ohne Umwege.

Momentan habe ich ein Timeout von 50s eingebaut.
ShellExecute(HWND(nil), 'open', PAnsiChar('slmgr.vbs'), '/ato', '', SW_NORMAL);
Timer startet hier und sucht nach dem Fenster.

wndMain := FindWindow('#32770','Windows Script Host');
Falls die Aktivierung erfolgreich war kommt eine positive Meldung im Logfenster.
Fall die Aktivierung gescheitert ist kommt ein Timeout.
Das Problem ist halt dass es sehr oft hängen bleibt.


Leider kann ich die slui.exe per Shellexecute auch nicht starten. Selbst wenn ich die slui.exe von dem Rechner in den Applikationsordner kopiere startet es nicht.
Keine Ahnung ob es mit den Rechten etwas zu tun hat. Ich glaube aber schon.
Was genau auf dem Rechner konfiguriert wurde weiß ich nicht wirklich.
Ich bekomme ein Image was aufgespielt werden muss und die Daten die konfiguriert werden sollen.
Benutzername, Netzwerk und so weiter.
Das ganze habe ich in einem Tool gepackt und automatisiert. Nur die Aktivierung spackt sehr oft.


Ich habe keine Zeit und Möglichkeit die Rechner lange zu untersuchen oder an dem System Sachen zu testen.
Es ist aber nichts illegales, das gehört unter Anderem zu meiner Arbeit.

Ich hoffe ein paar Tipps zu bekommen wie ich es anders umsetzen könnte.