Function test1()
    Dim objWmi As Object        'Objeto WMI
    Dim colAccesos As Object    'Colección de accesos
    Dim objAcceso As Object     'Cada uno de los accesos
    Dim objCuenta As Object     'Cuenta que se está usando
    Dim objSesion As Object     'Datos de la sesión
   
    Set objWmi = GetObject("WINMGMTS:\\.\ROOT\cimv2")
    Set colAccesos = objWmi.InstancesOf("Win32_LoggedOnUser", 1)
    
    For Each objAcceso In colAccesos
        With objAcceso
            'Datos de la cuenta
            Debug.Print .Antecedent
            Set objCuenta = GetObject("WINMGMTS:" & .Antecedent)
           
            'Datos de la sesión
            Debug.Print .Dependent
            Set objSesion = GetObject("WINMGMTS:" & .Dependent)
        End With
       
        With objCuenta
            Debug.Print "  Caption="; .Caption,
            Debug.Print "  Description="; .Description,
            Debug.Print "  Domain="; .Domain,
            Debug.Print "  InstallDate="; .InstallDate,
            Debug.Print "  LocalAccount="; .LocalAccount,
            Debug.Print "  Name="; .Name,
            Debug.Print "  SID="; .SID,
            Debug.Print "  SIDType="; .SIDType,
            Debug.Print "  Status="; .Status
        End With
       
        Debug.Print
       
        With objSesion
            Debug.Print "  Caption="; .Caption,
            Debug.Print "  Description="; .Description,
            Debug.Print "  InstallDate="; .InstallDate,
            Debug.Print "  Name="; .Name,
            Debug.Print "  Status="; .Status,
            Debug.Print "  StartTime="; .StartTime,
            Debug.Print "  AuthenticationPackage="; .AuthenticationPackage,
            Debug.Print "  LogonId="; .LogonId,
            Debug.Print "  LogonType="; .LogonType
        End With
       
        Debug.Print "============================================================="
    Next
End Function