recherche tous utilisateurs avec date d'expiration
bonjour a tous
j'ai besoin d'un scrypt qui me donne tous les utilisateurs qui ont une date d'expiration (meme deja passe)
j'ai deja fais une bonne partie du scrypt mais y a kkch qui colle pas sur ma condition et j'arrive pas a avoir touts les utilisateurs que je voudrais.
ce code la me donne tous les utilisateurs qui ont une date d'expiration qui n'est pas encore passe
Code:
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
34
35
36
37
38
39
40
41
42
|
On Error Resume Next
dim objfichier, myfile, Ouchoisi
const forReading = 1, ForWritting = 2, ForAppending = 8
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
OuChoisi=inputbox ("veuillez Choisir l'Unité d'organisation que vous voulez inspecter","Choix de l'OU")
objCommand.CommandText = _
"SELECT AdsPath FROM 'LDAP://OU="& OuChoisi &", dc=mjs, dc=local' WHERE objectCategory='user'"
Set objRecordSet = objCommand.Execute
set objfichier = createobject("scripting.filesystemobject")
NomFichier=inputbox ("Veuillez entrez le nom de fichier","Nom du Fichier")
set myfile = objfichier.opentextfile(NomFichier, forwritting, true)
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
Set objUser = GetObject(objRecordSet.Fields("AdsPath").Value)
If objUser.AccountExpirationDate > date Then
Myfile.writeline objUser.SamAccountName
End If
objRecordSet.MoveNext
Loop |
en modifiant la condition, on obtien des resultat different, cette condition par exemple me rapporte certains compte qui ont une date d'expiration mais pas tous, et je ne comprend pas pkoi
Code:
1
2
3
4
5
6
7
8
9
|
Do Until objRecordSet.EOF
Set objUser = GetObject(objRecordSet.Fields("AdsPath").Value)
If objUser.AccountExpirationDate > "1/1/1970" Then
Myfile.writeline objUser.SamAccountName
End If |
j'en ai essaye kk autres mais je n'ai jamais reussi a obtenir les utilisateurs dont la date d'expiration etait deja passe ET aussi ceux dont les dates d'expiration sont a venir.
si kkun pouvai me donne run coup de main ce serait sympa
merci d'avance :)
