Name des angemeldeten Benutzers ermitteln
Manchmal kann es für bestimmte Aktionen in Makros notwendig sein, den am Rechner gerade angemeldeten Benutzernamen zu wissen, z.B., um benutzerspezifische Daten anzuzeigen.
Dazu stehen Ihnen unter Windows 2000, Windows XP und Windows Server 2003 zwei Möglichkeiten zur Verfügung.
Die erste greift auf die Umgebungsvariablen des Systems zu und liest sie mittels der Environ-Funktion aus. Über die Umgebungsvariablen Computername und Username erhalten Sie den Namen des Computers und des aktiven Benutzers, wie Listing 3.21 veranschaulicht.
Sub subGetUserNameEnviron() Dim strEnv As String strEnv = Environ("Computername") & "\" & Environ("Username") MsgBox strEnv, vbInformation, "Angemeldeter Benutzer(Umgebungsvariablen)" ...Get Microsoft Word-Programmierung - Das Handbuch now with the O’Reilly learning platform.
O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.
