Hallo,
wie kann man mit VB6.0 abfragen welcher Benutzer gerade am lokalen NT-Rechner angemeldet ist?
Christian
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" \_
(ByVal lpBuffer As String, nSize As Long) As Long
Private Function GetUser() as String
Dim lpBuff As String \* 25
Dim ret As Long
ret = GetUserName(lpBuff, 25)
GetUser = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function
Gruss CO