Ta preprost VBScript navaja vse točke za obnovitev sistema, ki so na voljo v vašem računalniku, z opisom, ustvarjanjem. čas in zaporedno številko.
Če želite zagnati skript, kopirajte naslednje vrstice v dokument Beležnice in jih shranite kot datoteko. s pripono .VBS (uporabite dvojne narekovaje) in dvokliknite datoteko.
' Natisne seznam obnovitve sistema. kaže na besedilno datoteko
' 2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
' Zadnja posodobitev: 20. avgust 2005
' Pravilno formatira datum/čas
'
Možnost Eksplicitna
Dim fso, b, objWMI, clsPoint, strComputer, lupina
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Seznam točk za obnovitev sistema, najdenih v tem računalniku"
Nastavi lupino = CreateObject("Wscript. lupina")
Nastavite fso = Wscript. CreateObject("Skriptiranje. FilesystemObject")
fIme = lupina. Posebne mape ("Namizje")
fName = fName & "\ListSR.txt"
nastavite b = fso. UstvariTextFile (fName, true)
b. Writeline fLine
b.writeline niz (52,"-")
b.writeblanklines 1
strComputer="."
Nastavi dtmInstallDate = CreateObject( _
"WbemScripting. SWbemDateTime")
Nastavi objWMI = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Nastavi objOS = objWMI.ExecQuery( _
"Izberi * iz Win32_OperatingSystem")
Nastavi objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("obnovitev sistema")
Za vsako clsPoint v objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.writeblanklines 1
Naslednji
funkcija getmytime (wmitime)
dtmInstallDate. Vrednost = wmitime
getmytime = dtmInstallDate. GetVarDate
končna funkcija
b.zapri
Shell. Zaženite "notepad.exe" & fName, 1,True
Nastavite fso = Nič
set shell = Nič