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

Public Function UserName() As String
Dim a As String *  40 
Dim nSize As Long
nSize =  40 
   Call GetUserName(a, nSize)
   UserName = StrZ(a)
End Function

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

Public Function WNetGetUser(lpLocalName$) As String
   Dim res&
   Dim tbuf As String
   Dim BufferSize&
   Dim lenName As Integer

   tbuf = String$( 256 ,  0 )
   BufferSize = Len(tbuf)
   res = intWNetGetUser(lpLocalName, tbuf, BufferSize)
   'отсекаем нули от имени
    lenName = InStr(tbuf, Chr( 0 )) -  1 
    tbuf = Left(tbuf, lenName)
      WNetGetUser = tbuf
End Function