This Text file is old! In a ��Museum, an unsorted archive of (user-)pages. (Saved from Geocities in Oct-2009. The archival story: oocities.org)
--------------------------------------- (To 🚫report any bad content: archivehelp @ gmail.com)

¿Alguno de ustedes sabe si existe una función que devuelva el login que puso
el usuario al inciar windows?


RESPONDE LA BRUJA:
==================

Pega este código en un módulo estándar y llama a UserNameWin desde donde te
haga falta. Un saludo

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

Public Function UserNameWin() As String
    Dim sRet As String
    Dim x As Long
    Dim sRdo As String
    sRet = String(80, Chr(0))
    x = GetUserName(sRet, Len(sRet))
    sRdo = lpTOstr(sRet)
    If Len(sRdo) = 0 Then
       sRdo = "Sin nombre"
    End If
    UserNameWin = sRdo
End Function

Public Function lpTOstr(szTmp As String) As String
    Dim ich As Integer
    ich = InStr(szTmp, Chr$(0))
    If ich Then
        lpTOstr = Left$(szTmp, ich - 1)
    Else
        lpTOstr = szTmp
    End If
End Function