Saber el nombre de nuestro equipo (32 bits) (14/Abr/98)


   Usa el siguiente código para
averiguar el nombre de tu equipo...


   
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
	(ByVal lpBuffer As String, nSize As Long) As Long

Public Const MAX_COMPUTERNAME_LENGTH = 255


Public Function ComputerName() As String
    'Devuelve el nombre del equipo actual
    Dim sComputerName As String
    Dim ComputerNameLength As Long

    sComputerName = String(MAX_COMPUTERNAME_LENGTH + 1, 0)
    ComputerNameLength = MAX_COMPUTERNAME_LENGTH
    Call GetComputerName(sComputerName, ComputerNameLength)
    ComputerName = Mid(sComputerName, 1, ComputerNameLength)
End Function
 
********************************************************************************************************

 6.- Nombre del usuario actual de Windows (32bits) (8/Jul)

Otra rutinilla del API de Windows, en esta ocasión para saber el nombre del usuario actual. Es decir el que ha empezado la sesión de Windows. Lo he probado con Windows 95, pero con NT debería funcionar pero no está comprobado.

El código mostrado supone que tienes la declaración en un módulo BAS, en caso de que lo uses en un FRM o CLS, deberás poner delante Private.

Si quieres bajar los listados y un form de comprobación, pulsa este link (usuario.zip 1.38 KB)

'API para obtener el usuario actual
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpbuffer As String, nSize As Long) As Long

'Esta función devuelve el nombre del Usuario
Public Function UsuarioActual() As String
    Dim sBuffer As String
    Dim lSize As Long
    Dim sUsuario As String

    sBuffer = Space$(260)
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    If lSize > 0 Then
        sUsuario = Left$(sBuffer, lSize)
        'Quitarle el CHR$(0) del final...
        lSize = InStr(sUsuario, Chr$(0))
        If lSize Then
            sUsuario = Left$(sUsuario, lSize - 1)
        End If
    Else
        sUsuario = ""
    End If
    UsuarioActual = sUsuario
End Function

***********************************************************************************************************