Dette enkle VBScript viser alle de tilgængelige systemgendannelsespunkter på din computer med beskrivelsen, oprettelse. tid og sekvensnummeret.
For at køre scriptet skal du kopiere følgende linjer til et Notesblok-dokument og gemme som en fil. med filtypenavnet .VBS (brug dobbelte anførselstegn), og dobbeltklik på filen.
' Udskriver listen over Systemgendannelse. peger på en tekstfil
' 2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
' Sidst opdateret: 20. august 2005
' Formaterer datoen/klokkeslættet korrekt
'
Mulighed Eksplicit
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Liste over systemgendannelsespunkter fundet på denne computer"
Set shell = CreateObject("Wscript. Skal")
Indstil fso = Wscript. CreateObject("Scripting. FilesystemObject")
fName = Shell. SpecialFolders ("Desktop")
fName = fName & "\ListSR.txt"
sæt b = fso. CreateTextFile (fName, true)
b. Writeline fLine
b.skrivelinjestreng (52,"-")
b.writeblanklines 1
strComputer="."
Indstil dtmInstallDate = CreateObject( _
"WbemScripting. SWbemDateTime")
Indstil objWMI = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Indstil objOS = objWMI.ExecQuery( _
"Vælg * fra Win32_OperatingSystem")
Indstil objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("systemgendannelse")
For hvert clsPoint I objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.skrivelinje "Sequence Number= " & clsPoint.sequencenumber
b.writeblanklines 1
Næste
funktion getmytime (wmitime)
dtmInstallationsdato. Værdi = wmitime
getmytime = dtmInstallDate. GetVarDate
afslutte funktion
b.tæt
Skal. Kør "notepad.exe" & fName, 1,True
Indstil fso = Intet
sæt skal = Intet