Tabla de contenido
La siguiente función devolverá el nombre de usuario del usuario que inició sesión, funciona tanto en Windows NT como en Windows 95/98.
Función de declaración pública GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Función ReturnUserName () As String 'devuelve el nombre de usuario del dominio NT Dim rString As String * 255, sLen As Long , tString As String tString = "" En caso de error Reanudar Siguiente sLen = GetUserName (rString, 255) sLen = InStr (1, rString, Chr (0)) Si sLen> 0 Entonces tString = Left (rString, sLen - 1) Else tString = rString End If On Error GoTo 0 ReturnUserName = UCase (Trim (tString)) End Function
Si no desea devolver el nombre de usuario de la red,
pero desea devolver el nombre de usuario que el usuario ha registrado con la aplicación, puede hacer esto:
ActiveUserName = Application.UserName
