求助如何获取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
微信扫一扫 
支付宝扫一扫 