Benutzer im NT auslesen

Hallole
Da ich ja bei den Netzwerken rausgeflogen bin, schreib ich jetzt hier rein.
Ich möchte im NT den aktuellen benutzer auslesen, um bei access automatisch einfügen zu können, welcher benutzer gerade eine änderung in der datenbank vornimmt.
wo finde ich einen eintrag, welcher benutzer angemeldet ist, den ich dann im access auch nutzen kann?
danke im vorraus

screwya

Declare Function WNetGetUser Lib "mpr.dll" _
Alias "WNetGetUserA" (ByVal lpName As String, _
ByVal lpUserName As String, lpnLength As Long) As Long

Const NoError = 0

Sub GetUserName()


Const lpnLength As Integer = 255


Dim status As Integer


Dim lpName, lpUserName As String


lpUserName = Space$(lpnLength + 1)


status = WNetGetUser(lpName, lpUserName, lpnLength)


If status = NoError Then
lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
Else


MsgBox "Unable to get the name."
End
End If

msgbox lpUserName

End Sub

---

Funktioniert nur unter NT!