LogIn-Name im Netzwerk ermitteln Die Funktion ermittelt den aktuell angemeldeten Netzwerkuser.
Autor:   Microsys Kramer	Bewertung:	Views:  20.278
www.access-paradies.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Die Funktion ermittelt den aktuell angemeldeten Netzwerkuser.

Erstellen Sie ein neues Modul und fügen Sie nachfolgenden Code ein:

Option Explicit
 
Private Declare Function apiGetUserName Lib "advapi32.dll" _
  Alias "GetUserNameA" ( _
  ByVal lpBuffer As String, _
  nSize As Long) As Long
 
Function fOSUserName() As String
  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 = ""
  End If
End Function

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle 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.