كيفية القيام بما يلي: تحديد اسم تسجيل الدخول لدليل المستخدم

يمكنك استخدام كائن My.User للحصول على معلومات حول المستخدم الحالي. يوضح هذا المثال كيفية استخدام خاصية My.User.Name للحصول على اسم تسجيل الدخول للمستخدم .

يستخدم التطبيق مصادقة Windows بشكل افتراضي ، بحيث يرجع My.User معلومات Windows حول المستخدم الذي بدأ التطبيق .

مثال

يتحقق هذا المثال إذا كان التطبيق يستخدم Windows أو المصادقة المخصصة ، و من ثم يستخدم هذه المعلومات لتحليل خاصية My.User.Name .

Function GetUserName() As String
    If TypeOf My.User.CurrentPrincipal Is 
      Security.Principal.WindowsPrincipal Then
        ' The application is using Windows authentication.
        ' The name format is DOMAIN\USERNAME.
        Dim parts() As String = Split(My.User.Name, "\")
        Dim username As String = parts(1)
        Return username
    Else
        ' The application is using custom authentication.
        Return My.User.Name
    End If
End Function

راجع أيضًا:

المهام

كيفية القيام بما يلي: تحديد مجال المستخدم

الإرشادات التفصيلية: تطبيق المصادقة و التخويل المخصصة

المرجع

Name

المبادئ

الوصول إلى بيانات المستخدم