This discussion has been locked.
You can no longer post new replies to this discussion. If you have a question you can start a new discussion

How to get Email from User Account (vbscript)

Former Member
Former Member
Hello guys,


Is it possible to get the email from a User Account in VBScript?. If yes may I see your sample code?, And in addition, I want to ask you on how to foreach in the multiple user account in vbscript. Thank you in Advance :)


Best Regards, Sean
Parents
  • Former Member
    Former Member
    I got an error saying "Object required: Will Smith"

    These are the code i tried :

    1).
    Option Explicit
    Dim oUA : oUA = PropertyValues.SearchForProperty(1021).TypedValue.DisplayValue ' value of the User Account pv
    'get the log in account from the user account name
    'Dim oLA : Set oLA = Vault.LoginAccountOperations.GetLoginAccount(oUA.LoginName)
    'get the email address from the log in account
    'Dim sEM : sEM = oLA.EmailAddress
    'Output = sEM

    2).
    Option Explicit
    Dim oUA : oUA = PropertyValues.SearchForProperty(1021).TypedValue.DisplayValue ' value of the User Account pv
    'get the log in account from the user account name
    Dim sEM : sEM = Vault.UserOperations.GetLoginAccountOfUser(oUA.ID).EmailAddress
    Output = sEM

    Both had the same error,

    Br,
Reply
  • Former Member
    Former Member
    I got an error saying "Object required: Will Smith"

    These are the code i tried :

    1).
    Option Explicit
    Dim oUA : oUA = PropertyValues.SearchForProperty(1021).TypedValue.DisplayValue ' value of the User Account pv
    'get the log in account from the user account name
    'Dim oLA : Set oLA = Vault.LoginAccountOperations.GetLoginAccount(oUA.LoginName)
    'get the email address from the log in account
    'Dim sEM : sEM = oLA.EmailAddress
    'Output = sEM

    2).
    Option Explicit
    Dim oUA : oUA = PropertyValues.SearchForProperty(1021).TypedValue.DisplayValue ' value of the User Account pv
    'get the log in account from the user account name
    Dim sEM : sEM = Vault.UserOperations.GetLoginAccountOfUser(oUA.ID).EmailAddress
    Output = sEM

    Both had the same error,

    Br,
Children
No Data