Ce VBScript simple répertorie tous les points de restauration du système disponibles sur votre ordinateur, avec la description, la création. l'heure et le numéro de séquence.
Pour exécuter le script, copiez les lignes suivantes dans un document Bloc-notes et enregistrez-les en tant que fichier. avec l'extension .VBS (utilisez des guillemets doubles) et double-cliquez sur le fichier.
' Imprime la liste des restaurations du système. pointe vers un fichier texte
' 2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
' Dernière mise à jour le: 20 août 2005
' Formate correctement la date/l'heure
'
Option Explicite
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Liste des points de restauration du système trouvés sur cet ordinateur"
Set shell = CreateObject("Wscript. Coquille")
Définissez fso = Wscript. CreateObject("Script. FilesystemObject")
fNom = Shell. Dossiers spéciaux("Bureau")
fName = fName & "\ListSR.txt"
définir b = fso. CreateTextFile (fName, vrai)
b. Ligne d'écriture fLine
chaîne b.writeline (52,"-")
b.writeblanklines 1
strOrdinateur="."
Définir dtmInstallDate = CreateObject( _
"WbemScripting. SWbemDateHeure")
Définir objWMI = GetObject( _
"winmgmts:\\" & strOrdinateur & "\root\cimv2")
Définir objOS = objWMI.ExecQuery( _
"Sélectionnez * dans Win32_OperatingSystem")
Définir objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("systemrestore")
Pour chaque clsPoint dans objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.writeblanklines 1
Suivant
fonction getmytime (wmitime)
dtmInstallDate. Valeur = wmitime
getmytime = dtmInstallDate. ObtenirDateVar
fonction de fin
b.fermer
Coquille. Exécutez "notepad.exe" & fName, 1,True
Définir fso = Rien
set shell = Rien