Как из VB узнать login пользователя WIN2000 Server?

Формулировка задачи:

Как из VB узнать login пользователя WIN2000 Server? Подскажите где в реестре лежит такая инфа и как ее прочитать? Спасибо

Решение задачи: «Как из VB узнать login пользователя WIN2000 Server?»

textual
                            Листинг программы 
                        

                            Declare Function GetUserName Lib 'advapi32.dll' Alias 'GetUserNameA' _
                    (ByVal lpBuffer As String, nSize As Long) As Long
 
Public Function GET_U_NAME(Optional ByRef FLAG As Long) As String
 
Dim S As String, BUF As Long, res As Long
 
    On Error GoTo ERR_GET_U_NAME
    
    S = Space(255)
    BUF = Len(S) + 1
    res = GetUserName(S, BUF)
    If res = 1 Then
        S = Mid$(Trim$(S), 1, BUF - 1)
        FLAG = 0
    Else
        FLAG = res
        S = 'WRONG_USER_'
    End If
    
    GET_U_NAME = S
    
    Exit Function
    
ERR_GET_U_NAME:
    FLAG = Err.NUMBER
    Err.Clear
    GET_U_NAME = 'WRONG_USER_'
    
End Function
                        