Dernier PC ajouté dans l'AD

Version imprimable

Bonjour,
Je suis novice en programmation script, je me tourne donc vers vous afin d'obtenir un peut d'aide.
Je cherche à créer un script qui me permettrai de lister l'ensemble des postes qui on étés créés dans l'AD durant les 30 derniers jours.
J'ai commencer mon code... mais sans succès.

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
 
On Error Resume Next
 
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 
 
objCommand.CommandText = _
    "SELECT Name, whenCreated FROM 'LDAP://OU=monou,DC=mondc,DC=mondc' WHERE objectCategory='computer'" 
 
Set objRecordSet = objCommand.Execute
 
objRecordSet.MoveFirst
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("D:\Mes Documents\Scripts\recensement_30\PC.csv")
 
Time = DateDiff ("d", Left(objRecordSet.Fields("whenCreated").Value, 10), Date)
 
if(Time <= 2) then
	Do Until objRecordSet.EOF
		strLine = Chr(34) & objRecordSet.Fields("Name").Value & Chr(34) & ";"
		strLine = strLine & Chr(34) & Left(objRecordSet.Fields("whenCreated").Value, 10) & Chr(34)
		objFile.WriteLine strLine
		objRecordSet.MoveNext
	Loop
End if
 
objFile.Close
objRecordset.Close
objConnection.Close

Mon soucis c'est bien sur la condition! mais je ne sais pas comment faire.
Merci par avance pour votre aide.
Cordialement

13/07/2009, 13h51
ludojojo

je ne cherche pas forcément à utiliser ce bout de code, si quelqu'un a une autre proposition, je suis preneur.
13/07/2009, 13h56
SfJ5Rpw8

enlève la ligne

Code:

On Error Resume Next

et dis en nous plus sur le message d'erreur , ou sur ce qui ne se fait pas ... rajoute des "marqueurs " du style :

Code:

Wscript.Echo "Time = " & Time
13/07/2009, 14h22
ludojojo
En premier lieu je tiens a préciser qu'il n'y a pas d'erreur mais pas de résultat.
Lorsque je rajoute cette ligne :
Code:

1 2 Time = DateDiff("d", Left(objRecordSet.Fields("whenCreated").Value, 10), Now()) Wscript.Echo "Time = " & Time
Je me retrouve avec un message m'indiquant que time vaut "2273"
Mon soucis c'est que je ne sais comment faire pour ne récupérer le nom que des PC qui on étés ajoutés durant les 30 derniers jours.

Merci pour votre aide
13/07/2009, 14h24
SfJ5Rpw8

et si tu affiche cela :

Code:

wscript.echo objRecordSet.Fields("whenCreated").Value

Cela donne quoi ..?
13/07/2009, 14h40
ludojojo

J'ai un résultat avec la date de création (et l'heure). Mon problème je viens d'en faire l'affreuse expérience, j'ai placé ma WScript dans ma boucle :furax: j'ai toujours la même valeur qui reviens.
13/07/2009, 14h44
ludojojo

je viens de refaire les test, et ma valeur change bien a chaque fois, avec le code :

Code:

wscript.echo objRecordSet.Fields("whenCreated").Value

en revanche j'ai toujours la meme avec le code :

Code:

wscript.echo Time

D'où viens le problème?
13/07/2009, 14h47
SfJ5Rpw8
Tu mélange des formats date et chaines de caractères...

que donne exactement :

Code:

wscript.echo objRecordSet.Fields("whenCreated").Value

et peu-être aussi :
Code:

1 2 3 4 5 Dim MyDate MyDate = DateValue(objRecordSet.Fields("whenCreated").Value) wScript.Echo Day(MyDate) & "/" Month(MyDate) & "/" & Year (MyDate)

pour information le code

Code:

wscript.echo objRecordSet.Fields("whenCreated").Value

affiche par exemple 12/05/2006 08:35:12

Mais je vous informe que j'ai trouvé d'ou viens mon soucis!
J'ai ré-arrangé mon code et celui-ci fonctionne parfaitement.
le voici :

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
 
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 
 
objCommand.CommandText = _
    "SELECT Name, whenCreated FROM 'LDAP://OU=Ordinateurs ACOSS,OU=ACOSS,DC=integr,DC=ac750,DC=recouv' WHERE objectCategory='computer'" 
	'CN=monCN,OU=monOU,DC=monDC
 
Set objRecordSet = objCommand.Execute
 
objRecordSet.MoveFirst
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("D:\Mes Documents\Scripts\recensement_30\PC.csv")
 
dim Time
Time = DateDiff("d", Left(objRecordSet.Fields("whenCreated").Value, 10), Now())
'wscript.echo objRecordSet.Fields("whenCreated").Value
	Do Until objRecordSet.EOF
		Time = DateDiff("d", Left(objRecordSet.Fields("whenCreated").Value, 10), Now())
		if(Time < 32) then
			strLine = Chr(34) & objRecordSet.Fields("Name").Value & Chr(34) & ";"
			strLine = strLine & Chr(34) & Left(objRecordSet.Fields("whenCreated").Value, 10) & Chr(34)
			objFile.WriteLine strLine
		end if
		objRecordSet.MoveNext
	Loop
 
 
objFile.Close
objRecordset.Close
objConnection.Close

Je vous remercie pour votre aide.

Codialement.

13/07/2009, 14h57
SfJ5Rpw8

Je suis pas convaincu ... et comme je te le dis je trouve pas top ta façon de mélanger chaine de caractères et format date ...

tu as essayé de laisser le Wscript.Echo Time voir si tes valeurs avaient l'air cohérente ...

en plus j'oubliais time c'est pas terrible comme nom de variable ... c'est déjà une fonction VBScript... essai : iEcartJours par exemple ...
13/07/2009, 15h20
ludojojo

oui je suis bien d'accord le nom de la variable n'est vraiment pas top. Je viens de la changer, en effet j'ai regarder les valeur de "Time" et les valeurs son cohérentes et correspondes exactement à ce que je voulais. Le tout est inscrit dans mon fichier ".csv".

Je ne sais comment fonctionne la conversion en date, par Datediff mais en tout cas cela fonctionne.

Merci encore.
Cordialement