Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Systemvariable - Benutzername auslesen

Betrifft: Systemvariable - Benutzername auslesen von: Timonski
Geschrieben am: 07.11.2007 16:42:20

Servus

da auf jedem rechner jeder ein anderen Standart Drucker bzw. Druckeranschluss benutzt will ich anhand vom Einloggbenutzernamen dies unterscheiden...

also wenn benutzer A die Exceldatei benutzt dann ist der Acrobat auf Ne02
wenn benutzer B die datei benutzt dann hat der Acrobat den anschluss Ne03...

gibt es die Systemvariable Benutzername oder kann ich das problem mit den druckern auch anders lösen???

  

Betrifft: AW: Systemvariable - Benutzername auslesen von: Horst
Geschrieben am: 07.11.2007 16:46:22

Hi,

MsgBox Environ("Username")

mfg Horst


  

Betrifft: AW: Systemvariable - Benutzername auslesen von: Tino
Geschrieben am: 07.11.2007 22:42:59

Hallo,
oder den System-User
Funktioniert unter Win XP u. Win 2000, andere Systeme nicht getestet!

Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" ( _
    ByVal lpBuffer As String, nSize As Long) As Long
 
Function System_User() As String
    'Deklaration: Globale Prozedur-Variablen
    Dim lngErgebnis As Long
    Dim lngPuffer As Long

    Dim strPuffer As String
    Dim strUser As String
    Dim strUsername As String

    lngPuffer = 255
    strUser = Space$(lngPuffer)

    lngErgebnis = GetUserName(strUser, lngPuffer)

    If lngErgebnis <> 0 Then
        System_User = Left(strUser, lngPuffer - 1)
    End If
End Function



Gruss
Tino


 

Beiträge aus den Excel-Beispielen zum Thema "Systemvariable - Benutzername auslesen"