Active Directory Connection

[MCuthill]

Hi Everyone,

I am posting this here as the code is VB, but as code-behind for an ASP.NET website.

What I am trying to achieve is the retrieval of information about the current user from Active Directory via an LDAP query string. In testing on my development machine, the site worked flawlessly but upon migrating it to the IIS server I have run into a few issues.

What I think is happening is that it throwing an exception as there is no one logged into the local machine at which the website (and IIS) is installed. The error I am getting looks like this:

The (&(ObjectClass=user)(samAccountName=)) search filter is invalid on line 115 (bolded in code below)

Public Function GetUserInfo(ByVal inSAM As String, ByVal inType As String) As String

        'This Function connects to the Active Directory and Returns the value of field
        '"inType" (passed as parameter) for the account "inSAM" (passed as parameter).

        'Set LDAP connection string
        Dim sPath As String = "LDAP://~DomainName~.Local/CN=Users;DC=ADV01S01.CU03608.Local,DC=~ServerName~.~DomainName~.Local"
        'Strip the domain off of "inSAM" and store the result (ie: DomainName\UserName --> LastFirst)
        Dim SamAccount As String = Right(inSAM, Len(inSAM) - InStr(inSAM, "\"))
        'Connect to the Active Directory using LDAP connection string and proper credentials
        Dim myDirectory As New DirectoryEntry(sPath, "~adminaccount~", "~associatedpassword~")
        'Instantiate onjects to hold information the various stages of search
        Dim mySearcher As New DirectorySearcher()
        Dim mySearchResult As SearchResult
        Dim myResultPropColl As ResultPropertyCollection
        Dim myResultPropValueColl As ResultPropertyValueCollection

        'Filter search to return record where the account name matches the windows login (CuthilMi)
        mySearcher.Filter = ("(&(ObjectClass=user)(samAccountName=" & SamAccount & "))")
        'Assumed only one account will be setup with this name, we only search for one record.
        [b]mySearchResult = mySearcher.FindOne[/b]
        'Pulls the Properties of the resulting record as collection of fields
        myResultPropColl = mySearchResult.Properties

        'Set the result of the search to be the value stored in the field named in parameter "inType"
        myResultPropValueColl = myResultPropColl.Item(inType)
        'Cast this data to a String and return
        Return CStr(myResultPropValueColl.Item(0))


    End Function

Any insigt anyone could provide as to the direction to take with this would be greatly appreciated.

Thanks,


Mike
______________________________________________________________
"It Seems All My Problems Exist Between Keyboard and Chair"