求助如何获取WINCC(7.5SP1)中已登录用户的组别名【不是 用户名】?
若需要VBS脚本获取WINCC数据库的信息,能否附加脚本代码,非常感谢!!
最佳答案
http://www.ad.siemens.com.cn/service/answer/solution.aspx?Q_id=32353&cid=1032
提问者对于答案的评价:
虽然是链接,不过问题很好的解决了!!谢谢!!
【以下VBS代码获取登录用户的组别名】
Dim oConn,oRs,strConn
”********************创建COM对象************************
Set oConn=CreateObject("ADODB.Connection")
Set oRs=CreateObject("ADODB.RecordSet")
”*********************读取DSN并连接数据库************************
Dim DSN
DSN = HMIRuntime.Tags("@DatasourceNameRT").Read
If Len(DSN)<0 Then Exit Sub
DSN = Mid(DSN,1,Len(DSN)-1)
”HMIRuntime.Trace "DSN : " & DSN & vbCrLf
strConn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=.\WINCC;Initial Catalog=”" & DSN & "”;"
HMIRuntime.Trace strConn & vbCrLf
oConn.Open strConn
”*********************获取用户所在用户组名************************
Dim strSQL
strSQL="SELECT NAME FROM PW_USER WHERE ID IN (SELECT GRPID FROM PW_USER WHERE NAME = ”" & HMIRuntime.Tags("@CurrentUser").Read &"”)"
HMIRuntime.Trace "strSQL : " & strSQL & vbCrLf
oRs.Open strSQL,oConn,1,1
If Not oRs.eof Then
MsgBox oRs("NAME")
”HMIRuntime.Tags("GRPNAME").Write oRs("NAME").Value
End If
”*********************卸载COM对象************************
oRs.Close
Set oRs = Nothing
oConn.Close
Set oRs = Nothing
原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc312978.html