Discussion :

[geriler]

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 :

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
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 :

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

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

[geriler]

c bon g reussi

g remplace la fin par

Code :

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

1
2
 
If objUser.AccountExpirationDate > #1/1/1970# Then

kkun sait si en VB on peut valide le choix du nom de l'OU qu'on a choisi, avec comme dans l'AD une touche qui permettrait de valider ce qu'on a tape?

et l'OU USERS crée de base sous AD est elle considere comme un vrai OU?

car c la seule OU qui ne repond pas quand je l'interroge.

merci d'avance

[RadPAT]

Salut,

je n'ai pas de solution pour controler des saisies, si qqu'un a la solution ca m'interesse aussi.
Par contre concernant Users sous l'AD, ce n'est pas une OU mais un container, pour l'attaquer, tu dois faire CN=Users

A++

[geriler]

merci de ta reponse

savoir ca pour le conteneur USERS m'aide beaucoup

sinon je cherche toujours si on peut valider le nom d'une OU d'acitve directory en VB, si kkun sait ou a une info qui peut m'etre utile, merci d'avance.

je cherche aussi a afficher l'OU dans la quel il est physiquement, la valeur d'attribut c bien OrganizationalUnit?

quoi qu'il en soit quand j'essaie d'afficher objuser.OrganizationalUnit de mon utilisateur, mon scrypt ne me renvoie plus aucune reponse, alors que si je met pas ca au bout de la ligne, il me renvoie les infos que je lui demande

[RadPAT]

Télécharge l'utilitaire ADSIEdit, tu y retrouveras plein d'info sur les propriétés LDAP de l'AD :

http://http://www.computerperformanc...oad_ADSI_Edit_

A++