WinCC的电子签名与审计追踪 2.0

之前写过一篇WinCC的电子签名与审计追踪,在那篇文章中使用报警操作记录生成审计追踪,后来测试VB脚本执行的情况,发现审计追踪中缺少执行该操作的用户名和计算机名,用C脚本执行倒是没有问题。在本文中再补充一个用InserAuditEntryNew生成审计追踪的方法,并且不再把电子签名和审计追踪做在一个函数里,将电子签名和审计追踪分成两个函数分别执行可以更灵活。

 目录

 

生成审计追踪的方法


 用脚本向Audit中添加记录有两种方法,一种方法是用WinCC提供的InserAuditEntryNew函数写入,另一种方法是生成属于“操作员输入消息”类型的报警消息,该报警消息同时也会记录到Audit中。

WinCC中的某些操作本身就会生成审计追踪记录,例如启动或关闭系统、登录用户等,这些操作生成的Audit记录的TargetName列是操作内容,而使用InserAuditEntryNew函数生成的记录在TargetName列的内容默认为VBScripting Runtime或CScripting Runtime,而操作内容只能记录在Reason列处。

WinCC的电子签名与审计追踪一文中介绍了如何用“操作员输入消息”类型的报警生成把操作内容记录在TargetName列的审计追踪消息,之前以C脚本测试过这个方法可以达到要求,后来用VB脚本测试,审计追踪中ApplicationUser和ComputerName中是空的,即没有操作人和操作终端名称。如果要用VB脚本执行,这种方法是不能满足审计追踪要求的。在本文中再介绍使用InserAuditEntryNew函数生成审计追踪的方法。

WinCC的电子签名与审计追踪 2.0

 

VB脚本的电子签名和审计追踪


VB脚本的InsertAuditEntryNew函数

函数原型:

InsertAuditEntryNew(strOldValue, strNewValue, strOpComments, iComment)

参数:

参数 描述
strOldValue 旧值
strNewValue 新值
strOpComments 注释
iComment

0:将strOpComments参数的值作为注释记录到audit trial中

1:显示一个对话框,将对话框中输入的内容的作为注释记录到audit trial中

返回值:

  • 整型值,含义未知,没有找到对此说明的官方文档。

 

VB脚本的审计追踪

把InserAuditEntryNew函数再封装为CreateOpMsg,添加一些参数。在VB全局脚本的项目模块中建立该函数。

 函数原型:

Function CreateOpMsg(sSource, sInputMsg, OldValue, NewValue, sComments)

代码:

'----------------------------------------------------------------------------
' 描述:
'   该函数向audit数据库中插入一条审计追踪记录,
'   在数据库的reason列写入"sSource: sInputMsg; sComments"字符串,
'   由三个字符串参数拼接而成。
' 参数:
'   sSource    :该字符串表示这条记录的来源或类型
'   sInputMsg  :该字符串表示这条记录的操作说明
'   OldValue   :旧值
'   NewValue   :新值
'   sComments  :用户注释
' 返回值:
'   与InsertAuditEntryNew函数返回值相同。
'----------------------------------------------------------------------------
Function CreateOpMsg(sSource, sInputMsg, OldValue, NewValue, sComments)
    CreateOpMsg = InsertAuditEntryNew(CStr(OldValue), CStr(NewValue), sSource&": "&sInputMsg&"; "&sComments, 0)
'--------------------------------
' 以下为通过报警生成审计追踪的代码
'--------------------------------
'   '创建操作员消息
'    dim myAlarm
'    Set myAlarm = HMIRuntime.Alarms(12508142) 
'    MyAlarm.State = 5
'    '--------------------------
'    'State  Alarm Log Status
'    '1      Came In
'    '2      Went Out
'    '5      Came in and comment
'    '6      Gone and comment
'    '--------------------------
'    myAlarm.Comment = sComments
'    myAlarm.UserName = HMIRuntime.Tags("@NOP::@CurrentUser").Read
'    myAlarm.ProcessValues(2) = OldValue
'    myAlarm.ProcessValues(3) = NewValue
'    myAlarm.ProcessValues(10) = sSource
'    myAlarm.ProcessValues(7) = sInputMsg
'    MyAlarm.Create
End Function

  

VB脚本的电子签名

在VB全局脚本的项目模块中建立以下函数。

函数原型:

Function EsigDialog(Byref sComments, Byval bForcecomment, Byval sUserName)

代码:

'-----------------------------------------------------------------------------------------
' 描述:
'   执行该函数将弹出电子签名对话框,
'   并要求输入注释,可以设置是否要求强制注释,
'   注释内容通过sComments参数返回,
'   如果未给sUserName参数写入字符串,则使用当前登录的账户执行电子签名,
'   如果给sUserName参数写入了字符串,则将该字符串作为用户名执行电子签名。
' 参数:
'   sComments     :引用一个字符串变量,注释内容将会写入到该变量中。
'   bForcecomment :
'                   False:可以不输入注释,即注释为空;
'                   True :必须输入注释。
'   sUserName     :执行电子签名的用户名,如果该参数为空字符串,则使用当前登录的账户执行电子签名。
' 返回值:
'   -1:函数执行遇到错误
'    1:电子签名通过
'    2:用户取消了电子签名
'    3:三次电子签名未通过
'------------------------------------------------------------------------------------------
Function EsigDialog(Byref sComments, Byval bForcecomment, Byval sUserName)
    Dim sDisplayedUser, sDomain
    sDomain = ""  '如果加入了域,在此填写域名
    '如果sUserName参数不为空,则使用提供的用户名做电子签名,否则使用当前登录的账户做电子签名
    sUserName = Trim(sUserName)
    if sUserName <> "" then  
        sDisplayedUser = sUserName
    Else      
        sUserName      = HMIRuntime.Tags("@NOP::@CurrentUser").Read
        sDisplayedUser = HMIRuntime.Tags("@NOP::@CurrentUserName").Read
        If sUserName = "" Then
            Select Case HMIRuntime.Language
                Case 2052
                    Msgbox "用户未登录,请登录后再执行!"
                Case 1033
                    Msgbox "Please log in before executing!"
                Case Else
                    Msgbox "Please log in before executing!"
            End Select
            EsigDialog = -1
            Exit Function
        End If
    End If

    '电子签名
    Dim myEsig
    Dim ret
    Set myEsig = CreateObject("CCEsigDlg.ESIG")
    '强制注释
    myEsig.forcecomment = bForcecomment
    ret = myEsig.showDialog(sUserName,sDisplayedUser,sDomain, HMIRuntime.Language, sComments)
    EsigDialog = ret
End Function

 

VB脚本的电子签名和审计追踪示例

'---------------------------------------------------------------
' 设定一个变量的新值,完成电子签名后,将修改的值记录到审计追踪
'---------------------------------------------------------------'
Dim OldValue, NewValue
Dim sComments
NewValue = inputbox("设定加热温度")
if Not IsNumeric(NewValue) then
    msgbox ("只能输入数字!")
else
    if EsigDialog(sComments, False, "") = 1 then
        OldValue = HMIRuntime.Tags("tag1").Read
        HMIRuntime.Tags("tag1").Write NewValue
        Call CreateOpMsg("修改变量", "设定加热温度" , OldValue, NewValue, sComments)
    end if
end if

  

VB脚本的写入变量新值的封装函数

在通过电子签名后,向一个变量写入新值,并记录到审计追踪,这个操作在WinCC中经常会使用。可以看到前面的代码稍有复杂,对这个过程再做一次封装在使用时会更加方便。

函数原型:

Function TagNewValueES(sSource, sInputMsg, sTagName, NewValue)

代码:

'------------------------------------------------------------------------------------
' 描述:
'   执行电子签名,通过后向一个变量中写入新值,并将变量的新值和旧值记录到审计追踪,
'   在审计追踪的reason列中写入"sSource: sTagName: sInputMsg; sComments"字符串。
' 参数:
'   sSource    :该字符串表示这条记录的来源或类型
'   sInputMsg  :该字符串表示修改变量的操作说明
'   sTagName   :变量名
'   NewValue   :新值
' 返回值:
'   -1:函数执行遇到错误
'    1:电子签名通过
'    2:用户取消了电子签名
'    3:三次电子签名未通过
'--------------------------------------------------------------------------------------

Function TagNewValueES(sSource, sInputMsg, sTagName, NewValue)
    Dim OldValue
    Dim sComments
    Dim iRet
    iRet = EsigDialog(sComments, False, "")
    if iRet = 1 then
        OldValue = HMIRuntime.Tags( sTagName ).Read
        HMIRuntime.Tags( sTagName ).Write NewValue
        Call CreateOpMsg(sSource, sTagName&": "&sInputMsg , OldValue, NewValue, sComments)
    end if
End Function

  

C脚本的电子签名和审计追踪


C脚本的InsertAuditEntryNew函数

函数原型:

long int InsertAuditEntryNew(char* szOldValue, char* szNewValue, char* szOpComments, BOOL iComment, char* szReturnBuffer)

参数:

参数 描述
szOldValue 旧值
szNewValue 新值
szOpComments 注释
iComment

0:将strOpComments参数的值作为注释记录到audit trial中

1:显示一个对话框,将对话框中输入的内容的作为注释记录到audit trial中

szReturnBuffer

引用一个字符串数组,含义不明,官方文档未对此说明

返回值:

  • 整型值,含义未知,没有找到对此说明的官方文档。

 

C脚本的审计追踪

把InserAuditEntryNew函数再封装为CreateOpMsg,添加一些参数。在C全局脚本的项目函数中建立该函数。

函数原型:

long int CreateOpMsg(char* szSource, char* szMsg, char* szOldValue, char* szNewValue, char *szComments)

代码:

#include "apdefap.h"
/*---------------------------------------------------------------------------------------------------
* 描述:
*   该函数向audit数据库中插入一条审计追踪记录,
*   在数据库的reason列写入"szSource: szMsg; szComments"字符串,
*   由三个字符串参数拼接而成。
* 参数:
*   szSource    :该字符串表示这条记录的来源或类型
*   szMsg       :该字符串表示这条记录的操作说明
*   szOldValue  :旧值
*   szNewValue  :新值
*   szComments  :用户注释
* 返回值:
*   与InsertAuditEntryNew函数返回值相同。
*----------------------------------------------------------------------------------------------------*/
long int CreateOpMsg(char* szSource, char* szMsg, char* szOldValue, char* szNewValue, char *szComments)
{
    char szCommentsBuffer[1024] = "";
    char szReturnBuffer[1024] = "";
    sprintf(szCommentsBuffer,"%s: %s; %s", szSource, szMsg, szComments);
    return InsertAuditEntryNew(szOldValue,szNewValue,szCommentsBuffer,0,szReturnBuffer);    //Return-Type: long int 
}

  

C脚本的电子签名

在C全局脚本的项目函数中建立以下函数。

函数原型:

int EsigDialog(char* szComments,BOOL bForcecomment, char* szUserName)

代码:

#include "apdefap.h"
/*---------------------------------------------------------------------------------------------
* 描述:
*   执行该函数将弹出电子签名对话框,
*   并要求输入注释,可以设置是否要求强制注释,
*   注释内容通过szComments参数返回,
*   如果未给szUserName参数写入字符串,则使用当前登录的账户执行电子签名,
*   如果给szUserName参数写入了字符串,则将该字符串作为用户名执行电子签名。
* 参数:
*   szComments     :引用一个字符串变量,注释内容将会写入到该变量中。
*   bForcecomment  :
*                    False:可以不输入注释,即注释为空;
*                    True :必须输入注释。
*   szUserName     :执行电子签名的用户名,如果该参数为空字符串,则使用当前登录的账户执行电子签名。
* 返回值:
*   -1:函数执行遇到错误
*    1:电子签名通过
*    2:用户取消了电子签名
*    3:三次电子签名未通过
*-----------------------------------------------------------------------------------------------*/
int EsigDialog(char* szComments,BOOL bForcecomment, char* szUserName)
{
    char *Domain = "";  //如果加入了域,在此填写域名
    char *szDisplayedUser = "";
    int iRet = 0;
    VARIANT vtComment;
    __object* EsigDlg;
    char szUserNameBuffer[256]="";
    char *strBegin = NULL;
    char *strEnd   = NULL;

    /* 删除szUserName字符串两端空格 */
    if (szUserName != NULL ){
        strBegin = szUserName;
        while(*strBegin && isspace(*strBegin))
            strBegin++; //如果是空格,首地址往前移一位,如果不是,则跳过该循环
        strncpy(szUserNameBuffer,strBegin,255);
        strEnd = szUserNameBuffer + (strlen(szUserNameBuffer) - 1);
        while(*strEnd && isspace(*strEnd))
            *strEnd-- = '\0'; //如果是空格,末地址往前移一位,并赋结束符
    }
    /* 如果szUserNameBuffer参数不为空,则使用提供的用户名做电子签名,否则使用当前登录的账户做电子签名 */
    if (strlen(szUserNameBuffer)>0) {
        szUserName = szUserNameBuffer;
        szDisplayedUser = szUserName;
    } else {
        szUserName      = GetTagChar("@NOP::@CurrentUser");  //Return-Type: char* 
        szDisplayedUser = GetTagChar("@NOP::@CurrentUserName");  //Return-Type: char* 
        /* 判断用户是否登录 */
        if (strlen(szUserName) == 0) {
            switch (GetLanguage()) {
                case 2052:
                    MessageBox(NULL,"用户未登录,请登录后再执行!","Error",MB_SYSTEMMODAL|MB_OK);
                case 1033:
                default:
                    MessageBox(NULL,"Please log in before executing!","Error",MB_SYSTEMMODAL|MB_OK);
            } 
            return -1;
        }
    }
    
    /* 电子签名 */
    EsigDlg = __object_create("CCESigDlg.ESIG");
 
    if (!EsigDlg) {
        printf("Failed to create Picture Object\n");
        return -1;
    }
 
    EsigDlg->forcecomment = bForcecomment; 
    iRet = EsigDlg->ShowDialog(szUserName,szDisplayedUser,Domain,GetLanguage(),&vtComment);
    __object_delete(EsigDlg);
    /* 提取注释 */
    if (szComments != NULL)
        sprintf(szComments,"%ls",vtComment.u.bstrVal);
    VariantClear(&vtComment);
    
    return iRet;
}

  

C脚本的电子签名和审计追踪示例

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

// WINCC:TAGNAME_SECTION_START
// syntax: #define TagNameInAction "DMTagName"
// next TagID : 1
// WINCC:TAGNAME_SECTION_END

// WINCC:PICNAME_SECTION_START
// syntax: #define PicNameInAction "PictureName"
// next PicID : 1
// WINCC:PICNAME_SECTION_END

/*------------------------------------------------------------------
* 设定一个变量的新值,完成电子签名后,将修改的值记录到审计追踪
*------------------------------------------------------------------*/
    char szComments[2014]="";
    double OldValue, NewValue;
    char sOldValue[512]="";
    char sNewValue[512]="";
    NewValue = 97;
    if (EsigDialog (szComments, FALSE, "") == 1 ) {
        OldValue = GetTagDouble("tag1");
        SetTagDouble("tag1", NewValue);
        sprintf(sOldValue,"%f",OldValue);
        sprintf(sNewValue,"%f",NewValue);
        CreateOpMsg("修改变量", "设定加热温度", sOldValue, sNewValue, szComments);
    }
}

  

C脚本的写入变量新值的封装函数

在通过电子签名后,向一个变量写入新值,并记录到审计追踪,这个操作在WinCC中经常会使用。可以看到前面的代码稍有复杂,对这个过程再做一次封装在使用时会更加方便。

向数值类型的变量写入新值

函数原型:

int DoubleTagNewValueES(char* szSource, char* szMsg, char* szTagName, double dNewValue)

代码:

#include "apdefap.h"
/*---------------------------------------------------------------------------------------
* 描述:
*   执行电子签名,通过后向一个变量中写入新值,并将变量的新值和旧值记录到审计追踪,
*   在审计追踪的reason列中写入"szSource: szTagName: szMsg; szComments"字符串。
* 参数:
*   szSource    :该字符串表示这条记录的来源或类型
*   szMsg       :该字符串表示修改变量的操作说明
*   szTagName   :变量名
*   dNewValue   :新值
* 返回值:
*   -1:函数执行遇到错误
*    1:电子签名通过
*    2:用户取消了电子签名
*    3:三次电子签名未通过
*-----------------------------------------------------------------------------------------*/
int DoubleTagNewValueES(char* szSource, char* szMsg, char* szTagName, double dNewValue)
{
    char szComments[2014]="";
    double dOldValue;
    char szOldValue[512]="";
    char szNewValue[512]="";
    char szbuffer[512]="";
    int iRet = EsigDialog (szComments, FALSE, "");
    if ( iRet == 1 ) {
        dOldValue = GetTagDouble(szTagName);
        SetTagDouble(szTagName, dNewValue);
        sprintf(szOldValue,"%f",dOldValue);
        sprintf(szNewValue,"%f",dNewValue);
        sprintf(szbuffer,"%s: %s", szTagName, szMsg);
        CreateOpMsg(szSource, szbuffer, szOldValue, szNewValue, szComments);
    }
    return iRet;
}

  

向字符串类型的变量写入新值

函数原型:

int StrTagNewValueES(char* szSource, char* szMsg, char* szTagName, char* szNewValue)

代码:

#include "apdefap.h"
/*-------------------------------------------------------------------------------------
* 描述:
*   执行电子签名,通过后向一个变量中写入新值,并将变量的新值和旧值记录到审计追踪,
*   在审计追踪的reason列中写入"szSource: szTagName: szMsg; szComments"字符串。
* 参数:
*   szSource    :该字符串表示这条记录的来源或类型
*   szMsg       :该字符串表示修改变量的操作说明
*   szTagName   :变量名
*   szNewValue  :新值
* 返回值:
*   -1:函数执行遇到错误
*    1:电子签名通过
*    2:用户取消了电子签名
*    3:三次电子签名未通过
*--------------------------------------------------------------------------------------*/
int StrTagNewValueES(char* szSource, char* szMsg, char* szTagName, char* szNewValue)
{
    char szComments[2014]="";
    char szOldValue[512]="";
    char szbuffer[512]="";
    int iRet = EsigDialog (szComments, FALSE ,"");
    if (iRet == 1 ) {
        sprintf(szOldValue,"%f", GetTagChar(szTagName) );
        SetTagChar(szTagName, szNewValue);
        sprintf(szbuffer,"%s: %s", szTagName, szMsg);
        CreateOpMsg(szSource, szbuffer, szOldValue, szNewValue, szComments);
    }
    return iRet;
}

 

上一篇:WinCC字符串归档变量查询


下一篇:搬家第一天-16.Wincc V7.3计算excel文件数据列数