Detta enkla VBScript listar alla systemåterställningspunkter som är tillgängliga på din dator, med beskrivningen, skapande. tid och sekvensnumret.
För att köra skriptet, kopiera följande rader till ett Anteckningar-dokument och spara som en fil. med tillägget .VBS (använd dubbla citattecken) och dubbelklicka på filen.
' Skriver ut listan över systemåterställning. pekar på en textfil
' 2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
' Senast uppdaterad: 20 augusti 2005
' Formaterar datum/tid korrekt
'
Alternativ Explicit
Dim fso, b, objWMI, clsPoint, strDator, skal
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Lista över systemåterställningspunkter som hittats i den här datorn"
Set shell = CreateObject("Wscript. Skal")
Ställ in fso = Wscript. CreateObject("Skript. FilesystemObject")
fName = Shell. SpecialFolders("Skrivbord")
fName = fName & "\ListSR.txt"
set b = fso. CreateTextFile (fName, true)
b. Writeline fLine
b.writeline string (52,"-")
b.writeblanklines 1
strComputer="."
Ställ in dtmInstallDate = CreateObject( _
"WbemScripting. SWbemDateTime")
Ställ in objWMI = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Ställ in objOS = objWMI.ExecQuery( _
"Välj * från Win32_OperatingSystem")
Ställ in objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("systemåterställning")
För varje clsPoint I objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.writeblanklines 1
Nästa
funktion getmytime (wmitime)
dtmInstallDate. Värde = wmitime
getmytime = dtmInstallDate. GetVarDate
slutfunktion
b. nära
Skal. Kör "notepad.exe" & fName, 1,True
Ställ in fso = Ingenting
set shell = Ingenting