كيفية القيام بما يلي: تحديد اسم تسجيل الدخول لدليل المستخدم
يمكنك استخدام كائن 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
راجع أيضًا:
المهام
كيفية القيام بما يلي: تحديد مجال المستخدم
الإرشادات التفصيلية: تطبيق المصادقة و التخويل المخصصة