Well if the issue has nothing to do with the configuration of the Windows Server 2012 r2 regarding LDAP and Directory Services or Security or something else misconfigured causing the issue I have no idea.
Active Directory Lightweight Directory Services Overview - Updated: February 29, 2012 - Applies To: Windows Server 2012
However at this link in C#
Howto: (Almost) Everything In Active Directory via C# (from 2008) I found code converted to VB.Net using
Telerik. It is the code, below your code, in the code window below. It seems much different from your code. Whether it will work or not or if it does the same thing your code does I don't know that
either.
My suspicion would be the Windows Server 2012 r2 system is not configured correctly somewhere.
' Below code is your code.
Private Function IsAuthenticatedByAD(ByVal sUid As String, ByVal sPwd As String) As Boolean
Dim direntRoot As DirectoryEntry, direntUsr As DirectoryEntry
Dim sDomain As String, sDomainAndUid As String
Dim dirsrchUsr As DirectorySearcher, oNative As Object
direntRoot = New DirectoryEntry("LDAP://rootDSE")
sDomain = direntRoot.Properties("DefaultNamingContext")(0)
sDomainAndUid = String.Format("{0}\{1}", sDomain, sUid)
direntUsr = New DirectoryEntry(direntRoot.Path, sDomainAndUid, sPwd)
Try
oNative = direntUsr.NativeObject
Catch ex As Exception
Return False
End Try
Return True
End Function
' Below code converted from C# to VB.Net from link provided.
Private Function Authenticate(userName As String, password As String, domain As String) As Boolean
Dim authentic As Boolean = False
Try
Dim entry As New DirectoryEntry(Convert.ToString("LDAP://") & domain, userName, password)
Dim nativeObject As Object = entry.NativeObject
authentic = True
Catch generatedExceptionName As DirectoryServicesCOMException
End Try
Return authentic
End Function
La vida loca
