| Forum: VB.NET |
Thema:
AW: Aktuell angemeldeter User? |
Von:
Armin Stockner (
25.04.2007 12:22) |
Dim Domäne As String
Dim Benutzername As String
If TypeOf My.User.CurrentPrincipal Is Security.Principal.WindowsPrincipal Then
' Das Ergebnis von My.User.Name kommt in der Form "DOMÄNE\BENUTZERNAME"
Dim NamensTeil() As String = Split(My.User.Name, "\") ' String zerlegen
Domäne = NamensTeil(0) ' Domänenname
Benutzername = NamensTeil(1) ' Benutzername
Else
Domäne = String.Empty
Benutzername = My.User.Name
End If
MessageBox.Show(Domäne)
MessageBox.Show(Benutzername)
Armin Stockner
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
