vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: System/Windows · Computer/Benutzer/Ländereinstellungen   |   VB-Versionen: VB.NET08.01.03
Welcher User ist angemeldet? (VB.NET)

Dieser Tipp zeigt, wie sich der Name des aktuell angemeldeten Benutzers unter VB.NET ermitteln lässt.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  36.602 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Wie lässt sich der Name des aktuell angemeldeten Benutzers ermitteln?
Unter VB5/6 wird man hierfür i.a.R. die GetUserName API-Funktion verwenden, auf die man natürlich auch unter VB.NET zurückgreifen könnte. Da viele Funktionen, die bisher nur das Windows-API zur Verfügung gestellt hatte nun im umfangreichen .NET Framework enthalten sind, sollte man diese als VB.NET Entwickler auch benutzen

Verantworlich hierfür ist in unserem Fall das System.Security.Principal-Namespace, das Sie über die Imports-Anweisung in ihr Projekt "importieren" können. Achten Sie aber darauf, dass die Imports-Anweisung vor Deklarationen, einschließlich Module- oder Class-Anweisungen, und vor Verweisen auf Identifizierer platziert werden muss!

Innerhalb des System.Security.Principal Namespace-Objekts findet man eine Klasse namens WindowsPrincipal, über die man Informationen eines Windows-Benutzer ermitteln kann. Die GetCurrent-Methode der WindowsIdentity-Klasse liefert uns letztendlich das gewünschte WindowsIdentity-Objekt für den aktuell angemeldeten Benutzer.

' Klasse importieren
Imports System.Security.Principal
 
Public Class Form1
  Inherits System.Windows.Forms.Form
 
  Public Function GetUserName() As String
    ' Name des aktuell angemeldeten
    ' Benutzers ermitteln
    Dim oUser As New WindowsPrincipal(WindowsIdentity.GetCurrent)
 
    ' Rückgabewert: Server\UserName
    ' Wir möchten aber nur den Benutzername!
    With oUser.Identity.Name()
      Return(.Substring(.IndexOf("\") + 1))
    End With
  End Function
 
End Class

Dieser Tipp wurde bereits 36.602 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel