Wie kann ich den aktuell angemeldeten windows-Benutzer in Access VBA?

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?

InformationsquelleAutor adambox | 2008-10-03
  1. 6

    Konnte man auch mit Environ$, aber die Methode angegeben die Frage ist besser. Benutzer/Anwendungen ändern können, die environment-Variablen.

    InformationsquelleAutor Ken
  2. 12

    Könnte man dies auch tun:

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

    Es hat auch eine Eigenschaft UserDomain und ein paar andere Dinge:

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

    • Sie müssen nicht, wenn Sie mit CreateObject(). Der obige code funktioniert, ohne eine Referenz.
    • Sie haben, um das WshNetwork-variable definiert ein generisches Objekt, statt als das BFS die nativen Datentyp (was auch immer das ist-ich benutze nie die FSO-außer mit late-binding, also kenne keinen der seine Daten eingibt an alle).
    InformationsquelleAutor bobwienholt
  3. 2

    Ich verwende in der Regel eine Umgebung aus in VBA, wie in den folgenden. Ich hatte noch nicht die Probleme, dass Ken nennt als Möglichkeiten.

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

    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 der WMI-wenn alle Sie wollen, ist der username, und in allen Windows-Versionen von Win95 bis.

    InformationsquelleAutor Joe
  5. 1

    Alternative zu tun, dass - vermutlich die API, die Sie erwähnen, ist ein besserer Weg, um Benutzernamen. 

    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
    InformationsquelleAutor bugBurger
  6. 0

    es gibt viele Weg, um den aktuell angemeldeten Benutzernamen in der WMI.
    mein Weg ist, um es durch den Benutzernamen vom Prozess der 'explorer.exe'
    weil, wenn der Benutzer die login-in Fenster, die Zugang zu dieser Datei nach den aktuellen Benutzer.

    WMI-Skript würde so 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

    weitere detailcheck der link auf :

    http://msdn.microsoft.com/en-us/library/aa394599%28v=vs.85%29.aspx

    InformationsquelleAutor Harsono
Schreibe einen Kommentar