Help
  • Explore Community
  • Get Started
  • Ask the Community
  • How-To & Best Practices
  • Contact Support
Notifications
Login / Register
Community
Community
Notifications
close
  • Forums
  • Knowledge Center
  • Events & Webinars
  • Ideas
  • Blogs
Help
Help
  • Explore Community
  • Get Started
  • Ask the Community
  • How-To & Best Practices
  • Contact Support
Login / Register
Sustainability
Sustainability

Ask Me About Webinar: Data Center Assets - Modeling, Cooling, and CFD Simulation
Join our 30-minute expert session on July 10, 2025 (9:00 AM & 5:00 PM CET), to explore Digital Twins, cooling simulations, and IT infrastructure modeling. Learn how to boost resiliency and plan power capacity effectively. Register now to secure your spot!

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

EcoStruxure Geo SCADA Expert Forum

Schneider Electric support forum about installation, configuration, integration and troubleshooting of EcoStruxure Geo SCADA Expert (ClearSCADA, ViewX, WebX).

cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Show  only  | Search instead for 
Did you mean: 
  • Home
  • Schneider Electric Community
  • Remote Operations
  • EcoStruxure Geo SCADA Expert Forum
  • [Imported] ClearSCADA - Script - Obtain email address of the active user
Options
  • Mark Topic as New
  • Mark Topic as Read
  • Float this Topic for Current User
  • Bookmark
  • Subscribe
  • Mute
  • Printer Friendly Page
Invite a Co-worker
Send a co-worker an invite to the portal.Just enter their email address and we'll connect them to register. After joining, they will belong to the same company.
You have entered an invalid email address. Please re-enter the email address.
This co-worker has already been invited to the Exchange portal. Please invite another co-worker.
Please enter email address
Send Invite Cancel
Invitation Sent
Your invitation was sent.Thanks for sharing Exchange with your co-worker.
Send New Invite Close
Top Experts
User Count
sbeadle
Kirk sbeadle Kirk
310
AndrewScott
Admiral AndrewScott
101
BevanWeiss
Spock BevanWeiss
94
AdamWoodlandToo
Lt. Commander AdamWoodlandToo
38
View All
Related Products
product field
Schneider Electric
EcoStruxure™ Geo SCADA Expert

Invite a Colleague

Found this content useful? Share it with a Colleague!

Invite a Colleague Invite
Back to EcoStruxure Geo SCADA Expert Forum
sbeadle
Kirk sbeadle Kirk
Kirk

Posted: ‎2019-11-05 02:12 PM . Last Modified: ‎2023-05-03 12:32 AM

0 Likes
0
992
  • Mark as New
  • Bookmark
  • Subscribe
  • Mute
  • Permalink
  • Print
  • Email to a Friend
  • Report Inappropriate Content

Link copied. Please paste this link to share this article on your social media post.

Posted: ‎2019-11-05 02:12 PM . Last Modified: ‎2023-05-03 12:32 AM

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

Labels
  • Labels:
  • SCADA
Reply

Link copied. Please paste this link to share this article on your social media post.

  • All forum topics
  • Previous Topic
  • Next Topic
Replies 0
To The Top!

Forums

  • APC UPS Data Center Backup Solutions
  • EcoStruxure IT
  • EcoStruxure Geo SCADA Expert
  • Metering & Power Quality
  • Schneider Electric Wiser

Knowledge Center

Events & webinars

Ideas

Blogs

Get Started

  • Ask the Community
  • Community Guidelines
  • Community User Guide
  • How-To & Best Practice
  • Experts Leaderboard
  • Contact Support
Brand-Logo
Subscribing is a smart move!
You can subscribe to this board after you log in or create your free account.
Forum-Icon

Create your free account or log in to subscribe to the board - and gain access to more than 10,000+ support articles along with insights from experts and peers.

Register today for FREE

Register Now

Already have an account? Login

Terms & Conditions Privacy Notice Change your Cookie Settings © 2025 Schneider Electric

This is a heading

With achievable small steps, users progress and continually feel satisfaction in task accomplishment.

Usetiful Onboarding Checklist remembers the progress of every user, allowing them to take bite-sized journeys and continue where they left.

of