Hallo zusammen,

ich frage hier 2 Prozesse ab . wenn beide oder einer der beiden grade offen ist dann kommt eine Message Box

1. sollte das script nochmals von vorne durchgelaufen werden wenn man auf den OK Button klickt
2. sollte falls keine Msg Box kommt (also keiner der Prozesse läuft) ein setup.exe aus dem Verzeichnis aus gestartet werden wo auch dieses Script läuft...

Hier mein Script (bin Anfänger und im Moment wohl etwas verwirrt).....aber vllt kann mir ja wer helfen... Wenn ich was in der Praxis sehe kann ich mir das eher merken als die Theorie in Büchern...

Dim WSHShell

strComputer = "."

Set WSHShell=CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

CHKPROC

Set WSHShell = Nothing

Sub CHKPROC
Dim bAktiv
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process")
For Each objProcess in colProcessList
If objProcess.Name = "notepad.exe" Or objProcess.Name = "calc.exe" Then
bAktiv = True
End If
Next
If bAktiv Then
MsgBox "Please close all Notepad / Calc windows and press OK to continue"
CHKPROC
End If
Next
If bAktiv = False
Then
./bin/setup/setup.exe

End Sub

Naja, warst ja schonmal auf dem richtigen Pfad.

Bittesehr:
//nochmal optimiert.


// Funktioniert 100 pro nun...:)

Dankeschön

Und das funktioniert wie gewünscht? Wenn er zuerst Explorer.exe findet, dann wird sofort versucht zu installieren. Und wenn Notepad oder calc gefunden wird, dann läuft er endlos dadurch. Oder habe ich da was übersehen?

peterfido schrieb:

Oder habe ich da was übersehen?

Hi,

ja hast du.



Überprüft jeden Prozess, der läuft.

..und wenn er in diesem Prozess-Array nachfolgende Prozesse findet, kommt die Nachricht bitte alles zu schliessen und die Methode wird neu aufgerufen.


Stimmt schon alles so. Und wo du "Explorer.exe" liest, ist mir auch nicht klar?

Gruß

Explorer.exe läuft normal immer, wenn Windows oben ist.

Spiel das doch mal durch, was er macht, wenn er als erstes auf Explorer.exe stößt. Dann "guckt" er, ob das Teil notepad oder calc heisst und wenn nicht, wird doch setup aufgerufen, egal ober später evtl. noch calc oder notepad gefunden wird. Und wenn Notepad oder Calc gefunden wird, läuft er sich nen Wolf, bis der Stack voll ist.

Falls Du da immer noch anderer Meinung bist, probiere ich das dann auch mal aus...

Du hattest natürlich vollkommen Recht, da hab ich nicht ordentlich geschaut.
Danke für dein genaues Auge.

Ist nun gefixt und funktioniert natürlich diesmal.