Bei jedem Button beim Auslöseereignis zusätzlich ein Skript aufrufen:
Code:
Dim CurrentUser
[COLOR=#008000]' Falls der Benutzername beim Ereignis "Benutzerwechsel" in die HMI-Variable "CurrentUser" geschrieben wurde:[/COLOR]
CurrentUser = SmartTags("CurrentUser")
[COLOR=#008000]' [COLOR=#0000FF]ODER[/COLOR] Name des angemeldeten Benutzers jetzt lesen:[/COLOR]
GetUserName CurrentUser
If CurrentUser = "" Then
CurrentUser = "<nicht angemeldeter Bediener>"
End If
[COLOR=#008000]' Meldung in Meldepuffer schreiben:[/COLOR]
ShowSystemAlarm "Der Benutzer '" & CurrentUser & "' hat den Button x betätigt"
Siehe auch im TIA-Informationssystem Index > Benutzerwechsel > Beispiel: Benutzer bei Benutzerwechsel aktualisieren
Soll auch eine Systemmeldung in den Meldepuffer geschrieben werden, wann immer irgendein Benutzer eingeloggt hat oder versucht hat oder ausgeloggt hat/wurde, dann im Aufgabenplaner beim Ereignis (Trigger) "Benutzerwechsel" die Systemfunktion "VerfolgeBenutzeränderung" aufrufen.
Harald