Esse código faz login da sua aplicação pelo seu login de rede, basta passar o ip do servidor o username de rede e a senha, username e senha que você pode pegar de um campo texto na sua aplicação.
Retorna um booleano se o login foi efetuado com sucesso ou não.
Ps : É necessário adicionar a referência de System.DirectoryServices
Imports System.DirectoryServices
Public Function Autentica(ByVal ipServer As String, ByVal username As String, ByVal pwd As String) As Boolean
'Dim domainAndUsername As String = domain & "" & username
'Instancia um novo Objeto active directory passando o caminho(ip do servidor) o username e password
Dim entry As DirectoryEntry = New DirectoryEntry("LDAP://" & ipServer, username, pwd)
Try
'Bind to the native AdsObject to force authentication.
Dim obj As Object = entry.NativeObject
Dim search As DirectorySearcher = New DirectorySearcher(entry)
search.Filter = "(SAMAccountName=" & username & ")"
search.PropertiesToLoad.Add("cn")
Dim result As SearchResult = search.FindOne
If (result Is Nothing) Then
Return False
End If
Catch ex As Exception
Return False
End Try
Return True
End Function
