Qui est logué
cs_maje
Messages postés
13
Date d'inscription
jeudi 15 mai 2003
Statut
Membre
Dernière intervention
15 septembre 2003
-
15 mai 2003 à 09:36
BasicInstinct Messages postés 1470 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 - 15 mai 2003 à 09:47
BasicInstinct Messages postés 1470 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 - 15 mai 2003 à 09:47
1 réponse
BasicInstinct
Messages postés
1470
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
15 mai 2003 à 09:47
15 mai 2003 à 09:47
j'ai ca dans mon stock de source, je sais pas ni d'ou ca vient (merci a son auteur) ni si ca marche :)
:clown) BasicInstinct :clown)
Sub ListActiveUsers()
Dim cnn1 As ADODB.Connection, rst1 As New ADODB.Recordset
'Définit la connexion au projet courant et fait appel à la méthode
'OpenSchema pour retourner la liste courante des utilisateurs.
Set cnn1 = CurrentProject.Connection
Set rst1 = cnn1.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
'Imprime un titre pour l'ensemble du recordset de la liste des utilisateurs
'et énumère les membres de la liste.
Debug.Print "Nom de la machine " & "Nom de l'utilisateur"
Debug.Print "============" & " ========="
Do Until rst1.EOF
Debug.Print rst1.Fields("computer_name") & _
rst1.Fields("login_name") & rst1.Fields("CONNECTED") _
& rst1.Fields("SUSPECT_STATE")
rst1.MoveNext
Loop
' LISTE DES CHAMPS DU RECORDSET
'//------------------------------
'COMPUTER_NAME = nom du pc
'LOGIN_NAME = nom du propriétaire
'CONNECTED = connecté oui/non
'SUSPECT_STATE = ?
End Sub
:clown) BasicInstinct :clown)