Dette enkle VBScriptet viser alle systemgjenopprettingspunktene som er tilgjengelige på datamaskinen din, med beskrivelsen, opprettelsen. tid og sekvensnummeret.
For å kjøre skriptet, kopier følgende linjer til et Notisblokk-dokument og lagre som en fil. med filtypen .VBS (bruk doble anførselstegn) og dobbeltklikk på filen.
' Skriver ut listen over systemgjenoppretting. peker på en tekstfil
' 2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
' Sist oppdatert: 20. august 2005
' Formaterer datoen/klokkeslettet riktig
'
Alternativ eksplisitt
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Liste over systemgjenopprettingspunkter funnet på denne datamaskinen"
Set shell = CreateObject("Wscript. Shell")
Sett fso = Wscript. CreateObject("Skript. FilesystemObject")
fName = Shell. SpecialFolders ("Skrivebord")
fName = fName & "\ListSR.txt"
sett b = fso. CreateTextFile (fName, true)
b. Writeline fLine
b.skrivelinjestreng (52,"-")
b.writeblanklines 1
strComputer="."
Sett dtmInstallDate = CreateObject( _
"WbemScripting. SWbemDateTime")
Sett objWMI = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Sett objOS = objWMI.ExecQuery( _
"Velg * fra Win32_OperatingSystem")
Sett objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("systemgjenoppretting")
For hvert clsPoint I objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.writeblanklines 1
Neste
funksjon getmytime (wmitime)
dtmInstallDate. Verdi = wmitime
getmytime = dtmInstallDate. GetVarDate
avslutte funksjon
b.nær
Shell. Kjør "notepad.exe" & fName, 1,True
Sett fso = Ingenting
sett skall = Ingenting