[AD] Liste des comptes verrouillés

Marsh Posté le 31-01-2005 à 16:08:34

Salut,

existe t'il un moyen d'obtenir la liste des comptes verrouillés de l'AD à un instant T.
(et autres outils de ce genre?)

Merci.

Marsh Posté le 31-01-2005 à 16:08:34

Marsh Posté le 31-01-2005 à 16:22:16

[:drapo] m'intéresse aussi !

---------------
Filmstory : gardez trace des films que vous avez vu ! :D

Marsh Posté le 31-01-2005 à 22:48:37

Avec un p'tit script VBS
( source : Technet de Microsoft : script center )

Locating All the Disabled User Accounts in Active Directory

Description
Returns a list of all disabled user accounts in the fabrikam.com domain.

For more information about searching Active Directory, click here.

Supported Platforms
Windows Server 2003 Yes

Windows XP Yes

Windows 2000 Yes

Windows NT 4.0 Yes, with Active Directory Client Extensions installed

Windows 98 Yes, with Active Directory Client Extensions installed

Script Code

Citation :

Const ADS_UF_ACCOUNTDISABLE = 2

Set objConnection = CreateObject("ADODB.Connection" )
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command" )
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"<GC://dc=fabrikam,dc=com>;(objectCategory=User)" & ";userAccountControl,distinguishedName;subtree"
Set objRecordSet = objCommand.Execute

intCounter = 0
While Not objRecordset.EOF
intUAC=objRecordset.Fields("userAccountControl" )
If intUAC AND ADS_UF_ACCOUNTDISABLE Then
WScript.echo objRecordset.Fields("distinguishedName" ) & " is disabled"
intCounter = intCounter + 1
End If
objRecordset.MoveNext
Wend

WScript.Echo VbCrLf & "A total of " & intCounter & " accounts are disabled."

objConnection.Close

Message édité par c_moa le 31-01-2005 à 22:49:30

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *