1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| AppDomain.CurrentDomain.SetPrincipalPolicy(System.Security.Principal.PrincipalPolicy.WindowsPrincipal)
' Code qui sexécute lorsquune nouvelle session démarre
'On va chercher le nom de l'utilisateur xp
Dim ident As System.Security.Principal.WindowsIdentity = System.Security.Principal.WindowsIdentity.GetCurrent()
Dim monSplit As String()
Dim monUser As String = ident.Name
'On ne prend que le nom sans pédagogie (car le nom est : Pédagogie\nomutilisateur)
monSplit = monUser.Split("\")
Dim User As String = monSplit(1)
'Connexion
Dim connection As New System.Data.SqlClient.SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ConnexionUtilisateurs").ConnectionString)
'requête pour savoir si l'utilisateur existe.
Dim requete As String
requete = "SELECT [Type], [Profil] FROM [Utilisateurs] WHERE ([Nom] = @Nom)"
Dim cmd As New Data.SqlClient.SqlCommand(requete, connection)
Dim oParam As Data.SqlClient.SqlParameter = cmd.Parameters.Add("@nom", Data.SqlDbType.Char, 25, "Nom")
oParam.Value = User
connection.Open()
Dim reader As Data.SqlClient.SqlDataReader = cmd.ExecuteReader()
reader.Read()
connection.Close() |
Partager