Welcome to the new Schneider Electric Community

It's your place to connect with experts and peers, get continuous support, and share knowledge.

  • Explore the new navigation for even easier access to your community.
  • Bookmark and use our new, easy-to-remember address (community.se.com).
  • Get ready for more content and an improved experience.

Contact SchneiderCommunity.Support@se.com if you have any questions.

Close
Invite a Co-worker
Send a co-worker an invite to the Exchange portal.Just enter their email address and we’ll connect them to register. After joining, they will belong to the same company.
Send Invite Cancel
84649members
353989posts

[Imported] ClearSCADA - Script - Obtain email address of the active user

EcoStruxure Geo SCADA Expert Forum

Find out how SCADA systems and networks, like EcoStruxure Geo SCADA Expert, help industrial organizations maintaining efficiency, processing data for smarter decision making with IoT, RTU and PLC devices.

sbeadle
Janeway Janeway
Janeway
0 Likes
0
376

[Imported] ClearSCADA - Script - Obtain email address of the active user

>>Message imported from previous forum - Category:Scripts and Tips<<
User: mchartrand, originally posted: 2018-10-25 19:53:32 Id:292
This is a re-posting from the obsoleted (October 2018) "Schneider Electric Telemetry & SCADA" forum.

_______

**_du5tin:_**

_Function ObtainUserEmail(emailNum)
' Description:
' This function will find a user's email address using their user name
' and return it as a variant. It will return -1 (bad query) or -2 (can't find user)
' if there is an error.
'
' If you pass a number (1-4) into the function it will be used to get the
' proper email from the user's configuration. If no number is passed in
' the first email is returned.
'
' Created by: Dustin Symes
' Date: March 23, 2016
' Get the user's name
currentUser = Server.UserName
' Using the user's name, look through the database and pull out their email address.
query = "SELECT U.ID, U.NAME, C.EMAILADDRESS, C.EMAILADDRESS2, C.EMAILADDRESS3, C.EMAILADDRESS4 FROM CDBUSER AS U JOIN CDBUSERCONTACTCONFIG AS C ON U.ID = C.ID WHERE NAME='"¤tUser&"'"
Set results = Server.Query(query)
' Check if the query was good.
If results.Error Then
MsgBox "Whoops, we had an error."&CHR(10)&results.ErrorMessage
obtainUserEmail = -1
' Check if we have any rows (maybe this user is the Super Admin)
ElseIf results.RowCount=0 Then
MsgBox "Your user doesn't have an email. You may be the super user"
obtainUserEmail = -2
' Return the Email Address
Else
SELECT Case emailNum
Case 1
column = 2
Case 2
column = 3
Case 3
column = 4
Case 4
column = 5
Case Else
column = 2
End Select
queryRows = results.Rows
MsgBox queryRows(0,column)
ObtainUserEmail = queryRows(0,column)
End If
End Function_