Proteger son application, authentification par comptes système [grace a active directory]

Soyez le premier à donner votre avis sur cette source.

Vue 21 594 fois - Téléchargée 1 124 fois

Description

Bonjour tout le monde
voici une petite application qui effectue une recherche des objets (Comptes utilisateurs humains du système) par des requettes dans AD et permet de lister les noms des comptes ainsi de vérifier les informations de login (Mot de passe)

Grace a ce code, on peut proteger nos application par l'authentification intégrée du système d'exploitation.

Source / Exemple :


Imports System.Management
Imports System.DirectoryServices

Public Class frmMain

    Private Sub GetSystemUsers()
        Me.Cursor = Cursors.WaitCursor
        Try
            'Lecture du nom de domaine 
            Dim localdomain As String = GetDomain()
            'Lecture du nom de la machine. 
            Dim localpc As String = Environment.MachineName
            Me.lblDomainName.Text += localdomain
            Me.lblMachineName.Text += localpc
            Application.DoEvents()
            'Si le nom de domaine est unconnu. 
            If localdomain = String.Empty Then
                'L'objet dirEntry est un composant ajouté depuis le toolBox (Juste pour une info de +). 
                dirEntry.Path = "WinNT://" + localpc
            Else
                dirEntry.Path = "WinNT://" + localdomain + "/" + localpc
            End If
            For Each child As DirectoryEntry In dirEntry.Children
                'Prendre les utilisateurs humains de la machine
                If child.SchemaClassName = "User" Then
                    Me.cbxUsers.Items.Add(child.Name)
                End If
            Next
        Catch ex As Exception
            MessageBox.Show("Erreur:" + ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        Me.Cursor = Cursors.Default
    End Sub

    Private Function GetDomain() As String
        Try
            'Requette de recheche sur les informations du système. 
            Dim squery As String = "SELECT * FROM Win32_ComputerSystem"
            'Création d'un objet Management Searcher. 
            Dim mgmtsearch As New ManagementObjectSearcher(squery)
            'Recherche l'entrée Domain dans la liste des infos système. 
            For Each item As ManagementObject In mgmtsearch.Get()
                Return item("Domain").ToString()
            Next
            Return String.Empty
        Catch
            Return String.Empty
        End Try
    End Function

    Private Sub Connect(ByVal userName As String, ByVal password As String)
        Try
            Dim de As New DirectoryEntry("LDAP://localhost/CN=Users;DC=" + lblDomainName.Text, lblDomainName.Text + "/" + userName, password, AuthenticationTypes.Secure)
            Dim test As Object = de.NativeObject  ' Si cette propriété peut etre lu, donc les informations de connexion sont correctes.
            MessageBox.Show("Salut " + userName, "Authentication réussite", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch e As Exception
            MessageBox.Show(e.Message, "Erreur:", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
        Connect(cbxUsers.Text, txtPassword.Text)
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
        Application.Exit()
    End Sub

    Private Sub frmMain_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
        GetSystemUsers()
    End Sub
End Class

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
9
Date d'inscription
dimanche 17 juin 2007
Statut
Membre
Dernière intervention
12 décembre 2008

bonsoir,
je viens de poster ceci
http://www.vbfrance.com/codes/AUTHENTIFICATION-WINDOWS_47845.aspx

y'a pas grand chose en plus, si ce n'est la solution que j'ai extraite de mon appli en dev.
Messages postés
78
Date d'inscription
dimanche 8 mai 2005
Statut
Membre
Dernière intervention
21 mars 2018
1
Salut, Biogaran

Tres bon travail et je vous félicite pour ces commentaires pragmatiques

Mais une question, pourquoi la timidité ?? :), nous somme des frères et nous partageant nos connaissance.

J'attends ta source.

Bon pour la question perso,

Je ne travaille pas actuellement avec MySQL, mais je peux vous aider ...
Messages postés
9
Date d'inscription
dimanche 17 juin 2007
Statut
Membre
Dernière intervention
12 décembre 2008

Petit ajout,

lors de l'utilisation validatelogin il suffit de passer en paramètres GetUserName, GetUserDomain en paramètres. Pour le mot de passe, une zone de texte comme tu l'as fait dans l'exemple.

J'ai envie de te poser une question perso, même si ce n'est directement sur ce topic.
Travailles-tu avec MySQL et si OUI, as-tu une idée d'utilisée les méthodes d'authentification Windows pour valider une session MySQL et surtout quand tu changes le mot de passe sur active directory.

Merci
Messages postés
9
Date d'inscription
dimanche 17 juin 2007
Statut
Membre
Dernière intervention
12 décembre 2008

Bonjour,
sur le web il existe quelques bouts de code, il faut quand même bien chercher, car certains sont bien cachés.

Tu peux trouver plus simple pour déterminer la manière de te loguer.

Je te propose deux fonctions que j'ai extrait du weB

'=====================================================================
' La première extrait le compte d'ouvertrue de la session WINDOWS
'=====================================================================
Function GetUserName() As String
If TypeOf My.User.CurrentPrincipal Is _
Security.Principal.WindowsPrincipal Then
' L'UTILISATEUR UTILISE L'AUTHENTIFICATION WINDOWS
' LE FORMAT DE L'UTILISATEUR EST DU TYPE NOM_DE_DOMAINE\UTILISATEUR
Dim parts() As String = Split(My.User.Name, "")
Dim username As String = parts(1)
Return username
Else
' UTILISATION D'UNE IDENTIFICATION PERSONNALISEE
Return My.User.Name
End If
End Function
'==========================================================
' La deuxième extrait le nom de domaine de l'utilisateur.
'==========================================================
Function GetUserDomain() As String
If TypeOf My.User.CurrentPrincipal Is _
Security.Principal.WindowsPrincipal Then
' L'UTILISATEUR UTILISE L'AUTHENTIFICATION WINDOWS
' LE FORMAT DE L'UTILISATEUR EST DU TYPE NOM_DE_DOMAINE\UTILISATEUR
Dim parts() As String = Split(My.User.Name, "")
Dim domain As String = parts(0)
Return domain
Else
' UTILISATION D'UNE IDENTIFICATION PERSONNALISEE
Return ""
End If
End Function

Pour vérifier la connexion, j'utilise ensuite l'API advapi32.dll et la fonction LogonUser inscrite.

J'ai pas l'habitude de poster. Par timidité. Je peux vous faire un post du module que j'utilise pour faire le controle d'identification windows.

Il fonctionne avec ou sans active directory sur n'importe quel poste et OS de type µsoft.

je vpous pousse la fonction

Public Function ValidateLogin( _
ByVal Username As String, _
ByVal Password As String, _
ByVal Domain As String) As Boolean

' This is the token returned by the API call
' Look forward to a future article covering
' the uses of it
Dim token As IntPtr

' Call the API
If Not LogonUser(Username, _
Domain, _
Password, _
LOGON32_LOGON_NETWORK, _
LOGON32_PROVIDER_DEFAULT, token) = 0 Then

' Since the API didn't return 0, return TRUE to the caller
Return True
Else
' Bad credentials, return FALSE
Return False
End If
End Function

' en entête declaration de l'API
Declare Auto Function LogonUser Lib "advapi32.dll" (ByVal lpszUsername As String, _
ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As LogonType, _
ByVal dwLogonProvider As LogonProvider, ByRef phToken As IntPtr) As Integer

' Déclaration des variables et de l'environnement
Public Enum LogonType As Integer
'This logon type is intended for users who will be interactively using the computer, such as a user being logged on
'by a terminal server, remote shell, or similar process.
'This logon type has the additional expense of caching logon information for disconnected operations;
'therefore, it is inappropriate for some client/server applications,
'such as a mail server.
LOGON32_LOGON_INTERACTIVE = 2

'This logon type is intended for high performance servers to authenticate plaintext passwords.
'The LogonUser function does not cache credentials for this logon type.
LOGON32_LOGON_NETWORK = 3

'This logon type is intended for batch servers, where processes may be executing on behalf of a user without
'their direct intervention. This type is also for higher performance servers that process many plaintext
'authentication attempts at a time, such as mail or Web servers.
'The LogonUser function does not cache credentials for this logon type.
LOGON32_LOGON_BATCH = 4

'Indicates a service-type logon. The account provided must have the service privilege enabled.
LOGON32_LOGON_SERVICE = 5

'This logon type is for GINA DLLs that log on users who will be interactively using the computer.
'This logon type can generate a unique audit record that shows when the workstation was unlocked.
LOGON32_LOGON_UNLOCK = 7

'This logon type preserves the name and password in the authentication package, which allows the server to make
'connections to other network servers while impersonating the client. A server can accept plaintext credentials
'from a client, call LogonUser, verify that the user can access the system across the network, and still
'communicate with other servers.
'NOTE: Windows NT: This value is not supported.
LOGON32_LOGON_NETWORK_CLEARTEXT = 8

'This logon type allows the caller to clone its current token and specify new credentials for outbound connections.
'The new logon session has the same local identifier but uses different credentials for other network connections.
'NOTE: This logon type is supported only by the LOGON32_PROVIDER_WINNT50 logon provider.
'NOTE: Windows NT: This value is not supported.
LOGON32_LOGON_NEW_CREDENTIALS = 9
End Enum

Public Enum LogonProvider As Integer
'Use the standard logon provider for the system.
'The default security provider is negotiate, unless you pass NULL for the domain name and the user name
'is not in UPN format. In this case, the default provider is NTLM.
'NOTE: Windows 2000/NT: The default security provider is NTLM.
LOGON32_PROVIDER_DEFAULT = 0
End Enum

' Declare the logon types as constants
Const LOGON32_LOGON_INTERACTIVE As Long = 2
Const LOGON32_LOGON_NETWORK As Long = 3

' Declare the logon providers as constants
Const LOGON32_PROVIDER_DEFAULT As Long = 0
Const LOGON32_PROVIDER_WINNT50 As Long = 3
Const LOGON32_PROVIDER_WINNT40 As Long = 2
Const LOGON32_PROVIDER_WINNT35 As Long = 1

Const MAX_ENTRY As Integer = 32768

Si ca fonctionne pour moi, ca fonctionne pour vous.
C'est du VB 2005
Bon dev.
Messages postés
78
Date d'inscription
dimanche 8 mai 2005
Statut
Membre
Dernière intervention
21 mars 2018
1
Cette méthode est utilisées surtout dans les applications qui nécessitent un accès distant.
Afficher les 10 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.