Wie kann ich den derzeit angemeldeten Windows-Benutzer in Access VBA abrufen?

Question

Das fand ich über google: http://www.mvps.org/access/api/api0008.htm

'******************** Code Start ************************** 
' This code was originally written by Dev Ashish. 
' It is not to be altered or distributed, 
' except as part of an application. 
' You are free to use it in any application, 
' provided the copyright notice is left unchanged. 
' 
' Code Courtesy of 
' Dev Ashish 
' 
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ 
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long 

Function fOSUserName() As String 
' Returns the network login name 
Dim lngLen As Long, lngX As Long 
Dim strUserName As String 
    strUserName = String$(254, 0) 
    lngLen = 255 
    lngX = apiGetUserName(strUserName, lngLen) 
    If (lngX > 0) Then 
     fOSUserName = Left$(strUserName, lngLen - 1) 
    Else 
     fOSUserName = vbNullString 
    End If 
End Function 
'******************** Code End ************************** 

Ist dies der beste Weg, es zu tun?

Answer 1

Sie könnten auch Environ $ verwenden, aber die von der Frage angegebene Methode ist besser. Benutzer/Anwendungen können die Umgebungsvariablen ändern.

Answer 2

Alternative way um das zu tun - wahrscheinlich ist die API, die Sie erwähnen, eine bessere Möglichkeit, Benutzernamen zu erhalten.

For Each strComputer In arrComputers 
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48) 
     For Each objItem in colItems 
     Wscript.Echo "UserName: " & objItem.UserName & " is logged in at computer " & strComputer 
Next 

Answer 3

Sie könnten auch dies tun:

Set WshNetwork = CreateObject("WScript.Network") 
Print WshNetwork.UserName 

Es hat auch eine Benutzerdomäne Eigenschaft und ein paar andere Dinge:

http://msdn.microsoft.com/en-us/library/907chf30(VS.85).aspx

Answer 4

ich eine environ im Allgemeinen aus VBA verwenden wie im Folgenden. Ich hatte nicht die Probleme, die Ken als Möglichkeiten erwähnt.

Function UserNameWindows() As String 
    UserNameWindows = VBA.Environ("USERNAME") & "@" & VBA.Environ("USERDOMAIN") 
End Function 

Answer 5

Viele alternative Methoden in anderen Posts, aber um die Frage zu beantworten: Ja, das ist der beste Weg, es zu tun. Schneller als das Erstellen eines COM-Objekts oder WMI, wenn alles, was Sie wollen, ist der Benutzername und in allen Windows-Versionen ab Win95 verfügbar.

Answer 6

Es gibt viele Möglichkeiten, den aktuellen Benutzernamen in WMI zu protokollieren. mein Weg ist, es durch den Benutzernamen aus dem Prozess von "explorer.exe" zu bekommen, weil, wenn Benutzer in Fenster, der Zugriff auf diese Datei nach dem aktuellen Benutzer.

WMI-Skript würde wie folgt sein aussehen:

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strIP & "\root\cimv2") 
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process") 
For Each objprocess In colProcessList 
    colProperties = objprocess.GetOwner(strNameOfUser, strUserDomain) 
    If objprocess.Name = "explorer.exe" Then 
     UsrName = strNameOfUser 
     DmnName = strUserDomain 
    End If 
Next 

für mehr detailcheck Link auf:
http://msdn.microsoft.com/en-us/library/aa394599%28v=vs.85%29.aspx