Hi All.
I want to check if my Connection was successfull to the AD. I know my problem is getting the value of "de.Path".
Please assist
See code below
Code
{
Public Shared Function GetDirectoryEntry() As DirectoryEntry
Dim de As DirectoryEntry = New DirectoryEntry()
'Connect to my server
de.Path =
"LDAP://SERVER/OU=Groups;DC=MY DOMAIN;"
'login Details
de.Username =
"DOMAIN\USERNAME"
de.Password =
"PASSWORD"
de.AuthenticationType = AuthenticationTypes.Secure
Return de
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim de As DirectoryEntry = New DirectoryEntry()
'Checking if Connection Is being Established
If de.Equals(0) Then
MessageBox.Show(
"Not Connected.....")
Else
MessageBox.Show(
"Connected......")
End If
End Sub
End
Class
}