Discussion :

[Acris]

Bonjour à tous

je n'y connais rien en vbscript mais on m'a dit de poster dans ce forum.

Jai trouvé un script vbs qui permet de lister les points de restaurations.

j'ai un peu epuré le code ce qui donne ceci :

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
Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default")
 
Set colItems = objWMIService.ExecQuery("Select * from SystemRestore")
If colItems.Count = 0 Then
WScript.Echo "No restore point in system."
Else
For Each objItem in colItems
Wscript.Echo " " & dtmCreationTime & objItem.Description
dtmConvertedDate.Value = objItem.CreationTime
dtmCreationTime = dtmConvertedDate.GetVarDate 
Next
End If

J'appelle ce vbs via la commande cscript dans un batch et je stocke les infos dans un txt.

Mon soucis est que je n'ai pas d'espace entre la date et le nom du point de restauration
et je souhaiterai qu'il affiche uniquement les 5 derniers points de restauration.

Comment faire ? pourriez vous m'orienter ou me modifier ce morceau de code ?
merci d'avance aux membres qui me repondront

bonne journée
Acris

[Faladin]

Pour l'espace:

Code :

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

1
2
3
4
5
For Each objItem in colItems
Wscript.Echo " " & dtmCreationTime & " " & objItem.Description 'espace = " "
dtmConvertedDate.Value = objItem.CreationTime
dtmCreationTime = dtmConvertedDate.GetVarDate 
Next

Pour en affiché que 5:

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim i as integer = 0
For Each objItem in colItems
if i <5 then
   Wscript.Echo " " & dtmCreationTime & objItem.Description
   dtmConvertedDate.Value = objItem.CreationTime
   dtmCreationTime = dtmConvertedDate.GetVarDate 
else
   Exit For
End if
Next

Pour affiché que les 5 derniers par contre, ça ne fonctionnera probablement pas, car le "For Each" Scan tout le paquet, et doit se foutre passablement de l'ordre dans laquelle il apparaisse. Il faudrait donc que tu insères le tout dans un tableau, tri par dates et imprime que les 5 premiers avec une boucle for:

Code :

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

For i = 0 to 4

EDIT: 0 to 4 et non to 5, le 0 compte

[Acris]

merci beaucoup pour ton aide
oula j'ai dejà eu du mal à arriver jusque là alors maintenant un tableau ouch c'est du chinois
j'y arriverai jamais ..... programmation tu me tues !

il n'y a pas moyen de tri par date genre la plus recent puis 4 3 2 1 pour avoir les 5 derniers uniquement ?

[Faladin]

Oui trier mais tu peux pas trier dans le vide, il faut que tu mets tout tes données à quelque part avant!

[Acris]

arf j'ai pas de bol

le code me retourne une erreur lorsque je l'execute dans le batch : erreur (10,7)

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
 
Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default")
 
Set colItems = objWMIService.ExecQuery("Select * from SystemRestore")
If colItems.Count = 0 Then
WScript.Echo "No restore point in system."
Else
Dim i as integer = 0
For Each objItem in colItems
if i <5 then
Wscript.Echo " " & dtmCreationTime & " " & objItem.Description 'espace = " "
dtmConvertedDate.Value = objItem.CreationTime
dtmCreationTime = dtmConvertedDate.GetVarDate 
else
   Exit For
End if
Next
For i = 0 to 4

pourquoi ?

[Faladin]

Tu peux pas que mettre le

Code :

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

For i = 0 to 4

Dans le vide...

Honnêtement j'ai pas vraiment le temps de régler ça vendredi, mais il semble te manquer des notions en VB, je vais essayer de revenir voir lundi et de t'aider dans ton code...

J'espère que c'est pas pour aujourd'hui