desolé j'ai pas eu le temps hier...
bon voila deja une partie :
Un vbs qui enumere la liste de tous les utilisateurs du domaine....
Attention, il y a les groupes aussi
Option Explicit
Const DOMAINE = "nomdetondomaine"
Dim Computer,objWMIService,objWMI,Query,colItems,objItem,SID,msg
'On Error Resume Next
Computer = "."
objWMI="winmgmts:\\" & Computer & "\root\cimv2"
Set objWMIService = GetObject(objWMI)
Query="Select * from Win32_AccountSID"
Set colItems = objWMIService.ExecQuery(Query,,48)
For Each objItem in colItems
Set SID=getobject("winmgmts:" & objItem.Setting)
With SID
'Filtre les comptes pour n'afficher que ceux du DOMAINE
If .ReferencedDomainName = DOMAINE Then
msg = "AccountName: " & .AccountName & vbcrlf
msg = msg & "Domaine: " & .ReferencedDomainName & vbcrlf
Wscript.Echo msg & "Clé SID: " & .SID
Else
'Ne pas afficher les comptes locaux
End If
End With
Next