' =================================================
' Name: Prozess.vbs
' Autor: Kai
' Version: 1.0
' Beschreibung: Das VBScript prüft, ob auf dem
' Computer der Prozess notepad.exe läuft.
' =================================================
Option Explicit
Dim objWMIService
Dim colProcess
Dim objProcess
Const strComputer = "."
Const strProcess = "notepad.exe"
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objProcess In colProcess
If objProcess.Name = strProcess Then
WScript.Echo("Prozess " & strProcess & " läuft")
WScript.Quit
End If
Next
WScript.Echo("Prozess " & strProcess & " läuft nicht")