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

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

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

مثال

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

يرجع هذا المثال سلسلة فارغة إذا كان التطبيق يستخدم مصادقة مخصصة ، لأن تطبيق المصادقة المخصصة لا توفر بالضرورة معلومات المجال .

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

راجع أيضًا:

المهام

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

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

المرجع

Name

المبادئ

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