WinCC7 Prüfen ob Prozess läuft

Hallo David,

das folgende VBScript prüft, ob auf dem Computer der Prozess notepad.exe läuft.

Das VBScript ist in WinCC nicht getestet.

Code:
' =================================================
' 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")

In WinCC sollte anstelle der Textausgabe mit der WScript.Echo-Methode eine Variable (Tag) mit der Write-Methode
geschrieben werden (nicht getestet).

Code:
Dim objTag
 
Set objTag = HMIRuntime.Tags("Tag")
 
For Each objProcess In colProcess
    If objProcess.Name = strProcess Then 
        objTag.Write 1
        WScript.Quit
    End If
Next
 
objTag.Write 0

Oder

Code:
For Each objProcess In colProcess
    If objProcess.Name = strProcess Then 
        HMIRuntime.Tags("Tag").Write 1
        WScript.Quit
    End If
Next
 
HMIRuntime.Tags("Tag").Write 0

Gruß Kai
 
Zurück
Oben