¿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