Discussion :

[fastjim]

Bonjour,

Après de multiples recherches sur internet, je me tourne vers vous pour obtenir de l'aide sur le sujet suivant :

Je recherche un script me permettant de connaître les utilisateurs connectés à mon domaine windows AD à l'instant T.
L'idée étant que le prog me dise :
Utilisateurs connectés : Jean Dupont, Patrick Durant,......

Je précise qu'il s'agit des utilisateurs connectés au domaine et pas sur une machine en particulier.

Je cherche depuis plusieurs jours et j'hallucine quand je vois qu'il n'existe pas de requête LDAP, commande DOS, ou n'importe quoi qui puis me donner la liste des utilisateurs connectés à mon domaine quand je le souhaite.

Merci d'avance pour votre aide.

[ced600]

Il y a des sujets concernant AD sur ce forum, regarde si tu en trouves un qui est proche de ton problème.

J'en ai sélectionné 2, je ne sais pas s'ils répondent à ton problème :
http://www.developpez.net/forums/sho...d.php?t=394244
http://www.developpez.net/forums/sho...ateur+connecte

[fastjim]

Merci pour ton aide mais cela ne répond pas exactement à ce que je cherche.

Par contre, j'ai trouvé le bout de code suivant sur un forum mais il m'affiche une erreur à l'execution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Set adsFSOps = GetObject("WinNT://mondomain")
Set adsSessions = adsFSOps.Sessions
For Each adsSession In adsSessions
  MsgBox "User: " & adsSession.User & "   Computer:  " & adsSession.Computer
Next

Une idée ?

Merci d'avance.

[ced600]

peux tu me donner l'erreur et la ligne du code mise en cause ?

[RadPAT]

Salut,

pour les sessions ouvertes sur un serveur, tu peux utiliser ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Set objConnection = GetObject("WinNT://Nom_de_mon_serveur/LanmanServer")
Set colSessions = objConnection.Sessions
 
For Each objSession in colSessions
    Wscript.Echo "Computer: " & objSession.Computer
    Wscript.Echo "Connected Time: " & objSession.ConnectTime
    Wscript.Echo "Idle Time: " & objSession.IdleTime
    Wscript.Echo "Name: " & objSession.Name
    Wscript.Echo "User: " & objSession.User
    Wscript.Echo
Next

Si tu fais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

net view

sous Dos et que la zone description est renseignée sur tes machines, tu peux récupérer le nom de la machine et sa description...

A++