AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 12 11:12:43
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

7 commentaire(s) de biogaran sur des sources sur tout CodeS-SourceS

Le : 05/11/2008 11:28:52
Source : AUTHENTIFICATION WINDOWS
Bonjour,
Pour GILLARDG
Effectivement chacun est libre de mettre ou pas de mot de passe.
POur Alex
C'est une autre solution, tant mieux, plus il y a de possibilité mieux c'est.

Efin je souhaite réparer une erreur écrite (énorme erreur) sur mon post du 02/09/2008
"Pour la mise en place de mots de passe sécurisé, je confirme que µsoft a deplyée une stratégie à même ses applis. Lors de création de user sous MS SERVER 2005, il m'a été impossible d'associer des mots de passe simple."
C'est faux, on peut appliquer une stratégie simple sur sql serveur 2005.
la commande ci-dessous permet la création d'un utilisateur avec un mot de passe sans stratégie. L'option CHECK_POLICY = OFF désactive la stratégie.
Pardon de cette erreur.
CREATE LOGIN dupont0 WITH PASSWORD = 'dupont0', CHECK_POLICY = OFF ;
GO


Le : 02/09/2008 18:15:49
Source : EXPORTER UNE DATATABLE AU FORMAT CSV
Bonsoir
après avoir téléchargé ta source, j'ai vu quelle n'était pas finie et qu'il y avait pas mal de commentaires.

Je l'ai complètée et mise en état de fonctionner. M'autorises-tu à la republier en te passant en référence comme auteur ?

Merci

Le : 02/09/2008 18:10:10
Source : AUTHENTIFICATION WINDOWS
Bonsoir, je viens de lire vos post.

Effectivement, le mot de passe vien sécuriser une session et les applications induites.

Si vous laissez un mot de passe blanc, je vois non plus l'intérêt d'avoir un login. Autant faire une connexion automatique ...!!!

Pour la mise en place de mots de passe sécurisé, je confirme que µsoft a deplyée une stratégie à même ses applis. Lors de création de user sous MS SERVER 2005, il m'a été impossible d'associer des mots de passe simple.

En attendant, je viens d'essayer de me loguer sans mot de passe.
Hé bien chez moi ca fonctionne.

Dans les évènement du bouton de validation, passe en commentaire comme ci-dessous

' Test de retour sur le login
        'If login.Text.Length = 0 Then
        'MsgBox("La valeur du login ne peut-être nulle", MsgBoxStyle.OkOnly, "Valeur obligatoire")
        'login.Focus()
        'Exit Sub
        'End If
        'If pwd.Text = "" Then
        'MsgBox("Le mot de passe ne peut-être vide", MsgBoxStyle.OkOnly, "Valeur obligatoire")
        'pwd.Focus()
        'End If

compile et lance.
N'oublies pas de modifier les droits du login sans PWD.

A+

Le : 01/09/2008 21:28:48
Source : AUTHENTIFICATION WINDOWS
Merci boutemine de ta générosité.
Je vais sans doute vaincre ma timidité et en poster d'autres.

Le : 01/09/2008 21:07:33
Source : PROTEGER SON APPLICATION, AUTHENTIFICATION PAR COMPTES SYSTÈME [GRACE A ACTIVE DIRECTORY]
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.

Le : 01/09/2008 11:35:59
Source : PROTEGER SON APPLICATION, AUTHENTIFICATION PAR COMPTES SYSTÈME [GRACE A ACTIVE DIRECTORY]
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

Le : 01/09/2008 09:34:25
Source : PROTEGER SON APPLICATION, AUTHENTIFICATION PAR COMPTES SYSTÈME [GRACE A ACTIVE DIRECTORY]
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.


1


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


HTC Touch HD
Entre 25€ et 605€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto friends
Photo femme plage beautéPhoto tableau des plantes aromatiques

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,156 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.