Discussion :

[ludojojo]

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 :

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

[ludojojo]

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

[SfJ5Rpw8]

enlève la ligne

Code :

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

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 :

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

Wscript.Echo "Time = " & Time

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

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

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

[SfJ5Rpw8]

et si tu affiche cela :

Code :

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

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

Cela donne quoi ..?

[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 j'ai toujours la même valeur qui reviens.

[ludojojo]

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

Code :

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

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

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

Code :

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

wscript.echo Time

D'où viens le problème?

[SfJ5Rpw8]

Tu mélange des formats date et chaines de caractères...

que donne exactement :

Code :

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

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

et peu-être aussi :

Code :

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

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

[ludojojo]

pour information le code

Code :

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

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 :

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

[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 ...

[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