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
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