Acest simplu VBScript listează toate punctele System Restore disponibile pe computer, cu Descrierea, Crearea. timpul și numărul de secvență.
Pentru a rula scriptul, copiați următoarele linii într-un document Notepad și salvați ca fișier. cu extensia .VBS (utilizați ghilimele duble) și faceți dublu clic pe fișier.
' Imprimă lista de System Restore. indică către un fișier text
2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
Ultima actualizare: 20 august 2005
' Formatează corect data/ora
'
Opțiunea explicită
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = „Lista punctelor de restaurare a sistemului găsite pe acest computer”
Set shell = CreateObject("Wscript. Coajă")
Setați fso = Wscript. CreateObject(„Scriptare. FilesystemObject")
fName = Shell. SpecialFolders ("Desktop")
fName = fName & „\ListSR.txt”
set b = fso. CreateTextFile (fNume, adevărat)
b. Writeline fLine
b.writeline șir (52,"-")
b. scrie linii goale 1
strComputer="."
Setați dtmInstallDate = CreateObject( _
„WbemScripting. SWbemDateTime")
Set objWMI = GetObject(_
„winmgmts:\\” și strComputer și „\root\cimv2”)
Setați objOS = objWMI.ExecQuery( _
„Selectați * din Win32_OperatingSystem”)
Set objWMI = getobject(_
„winmgmts:\\” și strComputer și „\root\default”).InstancesOf („systemrestore”)
Pentru fiecare clsPoint în objWMI
b.writeline „Creation Time= ” și getmytime (clsPoint.creationtime)
b.writeline „Description= ” și clsPoint.description
b.writeline „Sequence Number= ” și clsPoint.sequencenumber
b. scrie linii goale 1
Următorul
funcția getmytime (wmitime)
dtmInstallDate. Valoare = wmitime
getmytime = dtmInstallDate. GetVarDate
funcția finală
b.închidere
Coajă. Rulați „notepad.exe” și fName, 1,True
Set fso = Nimic
set shell = Nimic