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

[Acris]

Oui je manque de notion en vb .
Non ce n'est pas aujourd'hui j'ai du temps pas de soucis.
Merci pour ton aide ça va beaucoup m'aider pour mon petit batch.

[ced600]

Si je me souviens bien colItems, étant une collecgtion, doit avoir une propriété count donnant le nombre d'élément dans la collection.

Donc :

Code :

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

1
2
3
for i = colItems.count - 5 to colItems.count
'code pour l'affichage
next

Cela devrait afficher les 5 derniers éléments de la liste.

J'ai des doutes sur la validités de ceci en VBS :

Code :

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

Dim i as integer = 0

Je ferais plutot :

Code :

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

1
2
Dim i
i = 0

Pour les notions de VBS qu'il te manque, je te conseille d'aller voir la FAQ VBS

[Acris]

ça donnerai quoi dans le code exactement car je ne sais pas ou le mettre
merci pour ton aide

[ced600]

Je n'ai pas le temps de tester, mais cela devrais être un truc dans le genre :

Code :

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

1
2
3
4
5
for i = colItems.count - 5 to colItems.count
Wscript.Echo " " & dtmCreationTime & " " & colItems(i).Description 'espace = " "
dtmConvertedDate.Value = colItems(i).CreationTime
dtmCreationTime = dtmConvertedDate.GetVarDate 
next

A la place de ton foreach.

[Acris]

ce code ne fonctionne pas, dommage il me renvoie une erreur

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 i = colItems.count - 5 to colItems.count
Wscript.Echo " " & dtmCreationTime & " " & colItems(i).Description 'espace = " "
dtmConvertedDate.Value = colItems(i).CreationTime
dtmCreationTime = dtmConvertedDate.GetVarDate
next
End If

[ced600]

et quoi comme erreur ?

Edit :
J'ai corrigé ton problème, puisque je n'ai pas réussi à utiliser la colllection par les index, j'ai utilisé le foreach qui liste tous les éléments de la collection.
Puis j'ai utilié un compteur, que je décrémente à chaque tour de la boucle, le compteur ayant au départ la valeur correspondant au nombres d'élements dasn la collection.
Lorsque le compteur est inférieur à 5 nous nous situons au niveau des 5 derniers éléments, et nous pouvons donc affiché.
J'ai testé et cela fonctionne :

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
Dim strComputer
Dim i
 
i = 0
strComputer = "."
 
Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
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
   i = colItems.Count
   For Each objItem in colItems
      if i <5 then
         Wscript.Echo " " & dtmCreationTime & " " & objItem.Description 'espace = " "
         dtmConvertedDate.Value = objItem.CreationTime
         dtmCreationTime = dtmConvertedDate.GetVarDate 
      End if
	  i = i - 1
   Next
End If

[Acris]

j'ai ce message lorsque j'active la balise echo

C:\Documents and setting....\user\Bureau\all.vbs(11,1) SWbemObjectSet : echec generique je pense

[Acris]

excellentissme ! trop merci beaucoup pour ton aide

une petite derniere question :

j'obtenis ceci dans mon txt :

Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. Tous droits r‚serv‚s.

restore -------------------------> pourquoi il apparait sans date ?
2008-07-22 08:09:59 restore
2008-07-22 08:14:59 restore
2008-07-22 09:35:35 restore

serais tu me dire pourquoi j'ai un "orphelin" sans date et heure ?

[ced600]

J'ai la même chose.
Je suppose que pour le premier point de restauration il n'y a pas de date de création. Peut être un point de restauration fait par windows après l'instal

[ced600]

Ha non je suis bête, il faut mettre dtmCreationTime = dtmConvertedDate.GetVarDate avant le echo.
En effet si tu n'initialise pas la variable, tu n'affichera rien. Là tu fais l'initialisation après l'affichage.

[Acris]

héhé rien compris ou il faut le mettre

edit car le dtmCreationTime = dtmConvertedDate.GetVarDate apparait deja en fin de script

[ced600]

Heu ... Pourtant c clair :
Le dtmCreationTime avant le Wscript.Echo pas après comme là, mais toujours dans la boucle.

Si tu as besoin de faire d'autre script, je te conseille quand même avant de rechercher des cours sur la programmation sur le net, parce que si "intialisation de variable avant leur utilisation" ne te parles pas alors tu n'es pas la m.... La programmation c'est comme tout cela s'apprend, ce n'est pas inée.

Bon si tu n'arrives toujours pas à le placer je le ferais, mais j'espère au moins que tu arrives à faire cela.

[Acris]

j ai tjs eu des problèmes avec les boucles meme en php et j'ai eu des cours

le script vient d'une base provenant du laboratoire microsoft

bien entendu je n ai pas réussi à le place au bon endroit.

vraiement navrée

quoi que :

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
Dim strComputer
Dim i
 
i = 0
strComputer = "."
 
Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
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
   i = colItems.Count
   For Each objItem in colItems
      if i <5 then
      dtmConvertedDate.Value = objItem.CreationTime
      dtmCreationTime = dtmConvertedDate.GetVarDate
      Wscript.Echo " " & dtmCreationTime & " " & objItem.Description 'espace = " "
End if
	  i = i - 1
   Next
End If

je pense que c'est ok.
merci beaucoup pour ton aide.

[ced600]

C'est ok, maintenant dtmCreationTime contiendra toujours une valeur avant que la ligne demandant l'affichage ne soit exécuté.

Il faut savoir que l'interpréteur VBS met à Empty toute les variables qui n'ont pas été affectés par une valeur, et lorsque Wscript.Echo doit afficher Empty, il n'affiche rien dans la box (la petite fenetre du message d'alerte ou la sortie console si tu lances depuis une console dos)
Mais maintenant tu affectes la valeurs à la variables, et puis tu l'affiches.

Après comment tu mets le résultat dans ton fichier texte ?
Tu fait un truc du genre ?

Code :

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

cscript MonScript.vbs >> MonFichierTexte.txt

Sache que depuis un script tu peux créer ou ouvrir un fichier, écrire des choses dedans, puis le refermer.
Tu peux essayer de le faire pour t'entrainer à la programation, pour cela il faut utiliser FileSystemObject. 1/3 de la FAQ VBS est consacré à cet objet.