Monitoring a Windows Task Through WinCC

Thank you for looking over my post.

Here where I work at, we have WinCC running on the same station as the ERP data collector (our trend likeprocess viewer)is at, suddenly for no apparent reason it stopped working, and we just realized it did stop workingabout 20 days laters(it´s based on Server-Client so if server stops working no client it´s going to miss it if it´s not used on adaily basis), thismeans 20 days of no data collection.

I wonder if there is a way of assigning the state "running" of a Windowsprogram to an "On" animation state ofa WinCC object. This way I couple warn our operators that the OPC ERP collector was down and no data was being recorded.

Thanks in advance for any help given.

Hey thanks for the help.

Using this example I was able to modify it to instead of using a button action to call this script, to use the stadard cycle trigger to execute it from time to time and check if the desired program is running.

Just add the following code to the background property:

Function BackColor_Trigger(ByVal Item)

Dim AllProcess
Dim Process
Dim strFoundProcess

strFoundProcess = False

Set AllProcess = GetObject("winmgmts:") 'create object
For Each Process In AllProcess.InstancesOf("Win32_process") 'Get running processes
If (InStr (Ucase(Process.Name),"CALC.EXE") = 1) Then 'Made all uppercase to remove ambiguity.

Dim objButton
Set objButton= ScreenItems("Button1")
objButton.FlashBackColor = 0 'turns off Flashingbackground if CALC.EXE is running
objButton.Text = "CALC.EXE is running" 'sets button text if notactive

strFoundProcess = True
Exit For
End If
Next

If strFoundProcess = False Then
Set objButton= ScreenItems("Button1")
objButton.FlashBackColor = 1 'turns on Flashing backgrroundif CALC.EXE is running
objButton.Text = "CALC.EXE is NOTrunning" 'sets button text if active
End If

Set AllProcess = Nothing

End Function

you can also add the following code to the button mouse action to open CALC.EXE and to preventing more instances of CALC.EXEfrom beingexecuted if it is already running.

#include "apdefap.h"
void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)
{

if (GetFlashBackColor(lpszPictureName,lpszObjectName)==1){
ProgramExecute("C:\\WINDOWS\\system32\\calc.exe");//Return-Type: unsigned long int
}

}

Hi Gilberto de Melo,

In my case, I changed only the line:

where nameProc = "CALC.EXE"