Maybe a VBScript to pull email addresses?

[Modom]

Hi All,

I have a form/app that users login to for trouble tickets. Below is the what the form/app uses to validate them.

Private Function ValidateLogin( _

    ByVal Username As String, _

    ByVal Password As String, _

    ByVal Domain As String) As Boolean

 

        Dim token As IntPtr

 

        ' Call the API

        If LogonUser(Username, _

        Domain, _

        Password, _

        LOGON32_LOGON_NETWORK, _

        LOGON32_PROVIDER_DEFAULT, token) = True Then

 

            ' Since the API returned TRUE, return TRUE to the caller

            Return True

        Else

            ' Bad credentials, return FALSE

            Return False

        End If

    End Function

What I would like to do now is have it search AD for their email address and populate the fields in my form.

Populate Last, First (Manager_Text.text)

Populate email (director.text)

Any help out there??

[Gusgr8]

Check the below script Hi that uses a regular expression to attempt to extract all legal email addresses from a string as an example:

 Dim strPattern, arrAllMatches, strMatch, strMatches 
 
strPattern = "([\w-\.]+)@\w{2,}(\.\w{2,}){1,5}(;([\w-\.]+)@\w{2,}(\.\w{2,}){1,5})*?" 
 
strTestString = " envonfv ofnvfv fkdjfnv;djfn;dn email@domain.com.sdvzsd vj>¨^c zcln test@domain.com" & vbCrlf _ 
              & " vsifdvjzs0v8djzs0fivdj zsofvn>anothermail@domain.com >| xidisdvnsv " 
 
colAllMatches = fGetMatches(strPattern, strTestString) 
 
For Each strMatch In colAllMatches 
    strMatches = strMatches & strMatch & vbCrlf 
Next 
 
MsgBox strMatches,, "Email Addresses found:" 
 
Function fGetMatches(sPattern, sStr) 
    Dim regEx, retVal, sMatch, colMatches, temp 
    Set regEx = New RegExp     ' Create a regular expression. 
    regEx.Pattern = sPattern   ' Set pattern. 
    regEx.IgnoreCase = True   ' Set case insensitivity. 
    regEx.Global = True        ' Set global applicability. 
 
    Set colMatches = regEx.Execute(sStr)   ' Execute search. 
    '# Convert Collection to Array 
    For Each sMatch In colMatches 
        temp = temp & sMatch & vbCrlf 
    Next 
    temp = Split(temp, vbCrlf) 
    fGetMatches = temp 
 
End Function