Programm beenden mit Programmname ohe Pfad usw..
chris
ich habe mit Hilfe des Forums einen Link bekommen.
Mit diesem Code soll es möglich sein ein Programm auf dem aktuellen PC zu beenden.
Aber leider klappt es bei mir nicht.
Was mache ich falsch ? bzw was gebe ich bei strComputer ein ?
Vielen Dank im voraus für eure Hilfe.
Wünsche noch schöne Feiertage gruß Chris
Sub Programm_killen()
strComputer = ""
'zu killendes Programm 'Rechner'
strProgramm = "'Rechner'"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProgramm)
For Each objProcess In colProcessList
objProcess.Terminate
Next
End Sub
Anzeige