25. Jak odczytać listę zalogowanych użytkowników?

Metodę podał "Hercog" (hercog@poczta.onet.pl.)

'Ja to robię tak:
Public Sub UserRoster()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset

On Error GoTo Proc_err
Set conn = New ADODB.Connection

With conn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "data source=c:\NazwaTwojejBazy.mdb"
    .Open
End With

Set rst = conn.OpenSchema(adSchemaProviderSpecific, , _
    "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

Do Until rst.EOF
    Debug.Print rst!COMPUTER_NAME, rst!LOGIN_NAME, rst!CONNECTED
    rst.MoveNext
Loop
rst.Close

Proc_Exit:
    Exit Sub

Proc_err:
    
    MsgBox Err.Description
    Resume Proc_Exit
End Sub