Przyklad z System Information By ATTAC Consulting Group

      Private Declare Function api_GetUserName Lib "advapi32.dll" _
      Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
      Private Declare Function api_GetComputerName Lib "Kernel32" _
      Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

      Public Function atCNames(UOrC As Integer) As String
      '**************************************************
      'Purpose:  Returns the User LogOn Name or ComputerName
      'Accepts:  UorC; 1=User, anything else = computer
      'Returns:  The Windows Networking name of the user or computer
      '**************************************************
      On Error Resume Next

      Dim NBuffer As String
      Dim Buffsize As Long
      Dim Wok As Long

      Buffsize = 256
      NBuffer = Space$(Buffsize)

      If UOrC = 1 Then
      	Wok = api_GetUserName(NBuffer, Buffsize)
     	atCNames = Trim$(NBuffer)
      Else
      	Wok = api_GetComputerName(NBuffer, Buffsize)
      	atCNames = Trim$(NBuffer)
      End If

      End Function