[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.
_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_