Einen Prozess killen wenn die Published App geschlossen wird - Ideen?
Servus zusammen,
wir haben eine Published Applikation in der ein Fremdaufruf gestartet wird. Wenn ich jetzt die Applikation beende, ist durch den Fremdaufruf noch ein Prozess gestartet der dann über das Connection Center bzw. im Systray geschlossen werden muss. Ist es möglich diesen Prozess dann mit zu beenden?
Ich stelle mir sowas vor wie hier. Das würde auch funktionieren. Aber da wir inzwischen auf Windows 2008 R2 auf diesen Servern aufgestiegen sind, gibt es vielleicht eine elegantere Methode? Ziel ist es beim Schließen der Applikation auch den Prozess zu beenden so das die Session korrekt abgemeldet ist und nicht noch offen ist :o).
Gruß
Heiko
wir haben eine Published Applikation in der ein Fremdaufruf gestartet wird. Wenn ich jetzt die Applikation beende, ist durch den Fremdaufruf noch ein Prozess gestartet der dann über das Connection Center bzw. im Systray geschlossen werden muss. Ist es möglich diesen Prozess dann mit zu beenden?
Ich stelle mir sowas vor wie hier. Das würde auch funktionieren. Aber da wir inzwischen auf Windows 2008 R2 auf diesen Servern aufgestiegen sind, gibt es vielleicht eine elegantere Methode? Ziel ist es beim Schließen der Applikation auch den Prozess zu beenden so das die Session korrekt abgemeldet ist und nicht noch offen ist :o).
1
2
3
4
5
6
7
8
9
10
11
12
13
2
3
4
5
6
7
8
9
10
11
12
13
cls
ping -n 3 localhost >nul
set tempdatei=%temp%\TempDatei.txt
tasklist /FI "IMAGENAME eq %ProgEXE%" /FO CSV>%tempdatei%
for /F "skip=2 tokens=1 delims=," %%f in (%tempdatei%) do (
echo Suche Prozess: [%%f]
if "%%f"==""%ProgEXE%"" echo Prozess laeuft
goto abfrage
)
goto endeGruß
Heiko
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 276857
Url: https://administrator.de/forum/einen-prozess-killen-wenn-die-published-app-geschlossen-wird-ideen-276857.html
Ausgedruckt am: 28.04.2025 um 19:04 Uhr
21 Kommentare
Neuester Kommentar
Hallo, mach dir ein kleines VB.net Programm:
Fertisch
1
2
3
4
5
6
7
2
3
4
5
6
7
Dim Anwendung As New System.Diagnostics.Process()
Anwendung.StartInfo.FileName = "notepad.exe"
Anwendung.Start()
Anwendung.WaitForExit()
Shell(taskkill /IM FREMDAUFRUF.exe /F)Fertisch
Konfiguration für RDP-Sitzungshostserver
Rechtsklick auf RDP-TCP
Eigenschaften
Sitzungen
getrennte Sitzungen beenden: 1 Minute
Rechtsklick auf RDP-TCP
Eigenschaften
Sitzungen
getrennte Sitzungen beenden: 1 Minute
Der Prozess Notepad.exe, wird dieser sichtbar ausgeführt?
Bekomme leider einen Fehler. Anweisungsende erwartet Teile 1 und zeichen 15.
Bekomme leider einen Fehler. Anweisungsende erwartet Teile 1 und zeichen 15.
Du musst natürlich den Prozess "Notepad" mit deinem Prozess ersetzen 
Aber ja, normalerweise wird alles das läuft unter Prozesse angezeigt.
Aber ja, normalerweise wird alles das läuft unter Prozesse angezeigt.
Zitat von @pixel0815:
Der Prozess Notepad.exe, wird dieser sichtbar ausgeführt?
Bekomme leider einen Fehler. Anweisungsende erwartet Teile 1 und zeichen 15.
Beachte: @joehuaba schrieb:Der Prozess Notepad.exe, wird dieser sichtbar ausgeführt?
Bekomme leider einen Fehler. Anweisungsende erwartet Teile 1 und zeichen 15.
VB.net
und nicht etwa VBA oder VBscript.E.
Naja aber die Published Applikation wird schon gestartet. Ist recht kompliziert ( ist ja auch kein einfaches Programm ) ..
Man müsste ja dann den Prozess der läuft monitoren und bei einem Exit wird dann der Taskkill ausgeführt.
Man müsste ja dann den Prozess der läuft monitoren und bei einem Exit wird dann der Taskkill ausgeführt.
:o) Stimmt. Dann bietet sich ja die PS an.
Wir schreiben einfach mal das Wort "powershell". Mal sehen, ob der Trigger von @colinardo anschlägt .... 
Im Prinzip müsste man einen gewissen Prozess monitoren können und bei einem Exit Ereignis oder Logoff ereignet müsste einfach nur ein Befehl starten der die andere EXE beendet und schon ist die Session weg.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const StartProgram = "deine.exe ggf. mit Parameter"
const KillProgram = "zu_beenden.exe"
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run StartProgram, 1, True
Dim WMI, Processes
Set WMI= GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Do
Set Processes = WMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & KillProgram & "'")
For Each objProcess in Processes
WshShell.Exec "PSKill " & objProcess.ProcessId
Wscript.Quit
Next
LoopHabe das nicht getestet. Hoffe, es geht auch ohne Admin-Rechte.
E.
Edit: Problem könnte sein, dass hier auch Prozesse anderer Sitzungen gelistet werden. Abhilfe könnte sein
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
on error resume next
const StartProgram = "deine.exe ggf. mit Parameter"
const KillProgram = "zu_beenden.exe"
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run StartProgram, 1, True
Dim WMI, Processes
Set WMI= GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Do
Set Processes = WMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & KillProgram & "'")
For Each objProcess in Processes
If KillProcess(objProcess) then
Wscript.Quit
end If
Next
Loop
Function KillProcess(objProcess)
on error goto 0
KillProcess = False
objProcess.Terminate()
KillProcess = True
end Function1
2
3
4
5
6
7
8
9
10
11
12
13
2
3
4
5
6
7
8
9
10
11
12
13
$WMI = @{
Query = "select owp from Win32_ProcessStopTrace"
Action = {
Write-Host ("Process: {0}({1}) was terminated at {2}" -f $event.SourceEventArgs.NewEvent.ProcessName,
$event.SourceEventArgs.NewEvent.ProcessID,
[datetime]::FromFileTime($event.SourceEventArgs.NewEvent.TIME_CREATED)) -Back Black -Fore Yellow
kill -Name DCS_SRV.exe
}
SourceIdentifier = "Process.Deleted"
}
$Null = Register-WMIEvent @WMIDas wäre eigentlich was ich brauche. Wenn im Benutzerkontext die owp.exe terminiert wird, dann soll eine Action folgen "kill -Name DCS_SRV.exe" und thema erledigt..
Dein Skript verlangt aber das ich ein Programm damit starte, das kann ich nicht machen. Das ist bisschen schwer zu erklären.
Ok.. ich erhalte ein Zugriff verweigert. Schade !!
Dein Skript verlangt aber das ich ein Programm damit starte, das kann ich nicht machen. Das ist bisschen schwer zu erklären.
???Fakt ist, wenn Du das so machen willst, dann musst Du als PA tatsächlich das Script starten, welches dann erst die EXE startet. Andernfalls müsstets Du einen Dienst oder Scheduled Task laufen lassen, welcher die Benutzersitzungen überwacht und dann ggf. die verbleibenden Prozesse beendet. Das geht ohne weiteres, macht nur Arbeit beim Programmieren.
E.
1
Ja du hast recht. Ich teste gerade dein Skript. Der Aufruf würde funktionieren, man müsste den ganzen Programmstart ein wenig umbauen, aber warum nicht?
Der Weg ist das ziel.
Allerdings teste ich gerade mal so mit Notepad als Startprogramm und einem beliebigen Prozess der Beendet werden soll wenn das gestartete Programm geschlossen wird. Der Taskkill wird wohl nicht ausgeführt?
Der Weg ist das ziel.
Allerdings teste ich gerade mal so mit Notepad als Startprogramm und einem beliebigen Prozess der Beendet werden soll wenn das gestartete Programm geschlossen wird. Der Taskkill wird wohl nicht ausgeführt?
Der Taskkill wird wohl nicht ausgeführt?
Poste mal Deinen Test-Code.1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
on error resume next
const StartProgram = "notepad.exe"
const KillProgram = "DCS_SRV.exe"
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run StartProgram, 1, True
Dim WMI, Processes
Set WMI= GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Do
Set Processes = WMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & KillProgram & "'")
For Each objProcess in Processes
If KillProcess(objProcess) then
Wscript.Quit
end If
Next
Loop
Function KillProcess(objProcess)
on error goto 0
KillProcess = False
objProcess.Terminate()
KillProcess = True
end Function
1. Was ist "DCS_SRV.exe"? Diese wurde schon vorher in der Benutzersitzung gestartet oder wird es während Notepad läuft?
2. Es könnte sein, dass in "KillProgramm" die Groß-Klein-Schreibung beachtet werden muss.
3. Bau mal eine Pause ein. Es kann sein, dass das Script hier "überlädt".
2. Es könnte sein, dass in "KillProgramm" die Groß-Klein-Schreibung beachtet werden muss.
3. Bau mal eine Pause ein. Es kann sein, dass das Script hier "überlädt".
1
2
3
4
5
6
7
8
9
10
11
2
3
4
5
6
7
8
9
10
11
....
Do
Set Processes = WMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & KillProgram & "'")
For Each objProcess in Processes
If KillProcess(objProcess) then
Wscript.Quit
end If
Next
Wscript.Sleep 1000
Loop
....
DIE DCS_SRV.exe ist der Prozess der die Session am leben erhält und gekillt werden muss wenn das Hauptprogramm geschlossen wird.
In meinem Fall war die DCS_SRV.exe schon gestartet als ich das Skript gestartet habe.
In meinem Fall war die DCS_SRV.exe schon gestartet als ich das Skript gestartet habe.
Leider geht es auch mit der Pause nicht. Fehlermeldungen erhalte ich keine. Tippfehler ausgeschlossen.
Fehlermeldung bekommst Du, wenn Du in der ersten Zeile das "on error ..." raus nimmst oder auskommentierst.
Versuch mal folgendes.
Script ausführen mit cscript.exe. Das hat zwar ein Konsolenfenster, aber das ist ja nur zum Test.
Folgender Code funktioniert bei mir mit "winword.exe". Groß-Klein-Schreibung ist egal.
Wenn Du das reproduzieren kannst, dann nimm die ganzen "Wscript.Echo ..." wieder raus.
Script ausführen mit cscript.exe. Das hat zwar ein Konsolenfenster, aber das ist ja nur zum Test.
Folgender Code funktioniert bei mir mit "winword.exe". Groß-Klein-Schreibung ist egal.
Wenn Du das reproduzieren kannst, dann nimm die ganzen "Wscript.Echo ..." wieder raus.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
on error resume next
const StartProgram = "notepad.exe"
const KillProgram = "winword.exe"
Set WshShell = CreateObject("WScript.Shell")
Wscript.Echo "Starte Programm ...."
WshShell.Run StartProgram, 1, True
Wscript.Echo "Programm wurde beendet ...."
Dim WMI, Processes
Set WMI= GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Do
Wscript.Echo "Suche Prozesse ...."
Set Processes = WMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & KillProgram & "'")
For Each objProcess in Processes
Wscript.Echo "Prozess gefunden. ID=" & objProcess.ProcessID
If KillProcess(objProcess) then
Wscript.Quit
end If
Next
Loop
Function KillProcess(objProcess)
on error resume next
KillProcess = False
Wscript.Echo "Beende Prozess ..."
select case objProcess.Terminate()
Case 0
Wscript.Echo "Erfolgreich"
KillProcess = True
Case 2
Wscript.Echo "Fehler: Zugriff verweigert"
Case 3
Wscript.Echo "Fehler: unzureichende Privilegien"
Case 8
Wscript.Echo "Fehler: unbekannter Fehler"
Case 9
Wscript.Echo "Fehler: Pfad nicht gefunden"
Case 21
Wscript.Echo "Fehler: falscher Parameter"
end select
end Function
Funktioniert :o)
Aber es klappt leider nicht im Gesamtkontext.
Wenn das Skript von dir lediglich einen einen Prozess überwacht bis zu einem Exit dann alles wie gehabt ausführt, würde es klappen denke ich.
Seufz...........
Aber es klappt leider nicht im Gesamtkontext.
Wenn das Skript von dir lediglich einen einen Prozess überwacht bis zu einem Exit dann alles wie gehabt ausführt, würde es klappen denke ich.
Seufz...........
