Postupy: Určit uživatele domény (Visual Basic)

Můžete použít objekt My.User k získání informací o aktuálním uživateli. Tento příklad znázorňuje použití vlastnosti My.User.Name k získání názvu domény uživatele v případě, že aplikace používá ověřování systému Windows.

Protože aplikace ve výchozím nastavení používá ověřování systému Windows, vlastnost My.User vrátí informaci o uživateli, který spustil aplikaci.

Příklad

V tomto příkladu dojde ke zkontrolování, zda aplikace používá ověřování systému Windows před analýzou vlastnosti My.User.Name k zjištění názvu domény.

Tento příklad vrátí prázdný řetězec, pokud aplikace používá vlastní ověřování, protože implementace vlastního ověřování nutně neposkytuje informace o doméně.

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

Viz také

Úkoly

Postupy: Určit přihlašovací jméno uživatele (Visual Basic)

Podrobné pokyny: Provádění vlastní ověřování a autorizace (Visual Basic)

Odkaz

Name

Koncepty

Přístup k datům uživatele (Visual Basic)