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.