Discussion :

[nord]

Bonsoir à tous

Voila mon problème.
Je ne suis pas un grand "scripteur" mais je m'y mets doucement.
J'aimerais confectionner un script permettant de lister l'ensemble des comptes dont la date d'expiration est dépassée dans une AD.
J'aimerais savoir comment faire pour vérifier ce paramètre sur tous les comptes de l'AD sans avoir a me préoccuper de l'OU dans laquelle ils se trouvent.
Si quelqu'un a une idée, un exemple ou quelque chose qui pourrait m'aider ce serait super !

Merci d'avance

[orducom1]

Salut à toi Nord
Tu peux essayer avec ça ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
srvLDAP = "MonSrvLDAP"
strDomain = "labolocal.ici"
chemCONT = "OU=Domain Admins" 'ou vide si toutes les OU
strLogin = "monLogin"
strPasswd = "monPasswd"
 
ConnectLDAP srvLDAP,chemCONT,strLogin,strPasswd
 
Sub ConnectLDAP(srvLDAP,chemCONT,strLogin,strPasswd)
	const ADS_SECURE_AUTHENTICATION = &h0001
	const ADS_SERVER_BIND = &h0200
 
	set objLDAP = getobject("LDAP:")
	set objCont = objLDAP.OpenDSObject( _
		"LDAP://" & srvLDAP & "/" & chemCONT & ",dc=" & replace(strDomain, ".", ",dc="), _
		strLogin, _
		strPasswd, _
		ADS_SECURE_AUTHENTICATION or ADS_SERVER_BIND)
	ADExplore objCont
End Sub
 
Sub ADExplore(objCont)
	Dim Objet
	For Each Objet In objCont
		Select Case Objet.Class
			Case "user"
				Wscript.Echo Objet.sAMAccountName 'note ici la propriété recherchée
			Case "organizationalUnit", "container"
				ADExplore Objet
		End Select
	Next
End Sub

Ensuite ça dépend du type de de date recherchée. Pour connaitre précisément le nom de propriété : ADSI-Edit.
Par defaut, un compte n'a pas de date de "péremption" éventuellement une expiration de la validité du mot de passe ... il faut donc que tu sois plus précis ...

Mais là, je t'ai dejà bien "maché" le boulot !

[nord]

Merci orducom

Je test ça des demain et je (vous ?) te tiens au courant !

Merci d'avoir pris le temps de répondre