Šiame paprastame VBScript sąraše pateikiami visi jūsų kompiuteryje galimi sistemos atkūrimo taškai su aprašymu, kūrimu. laiką ir eilės numerį.
Norėdami paleisti scenarijų, nukopijuokite šias eilutes į Notepad dokumentą ir išsaugokite kaip failą. su plėtiniu .VBS (naudokite dvigubas kabutes) ir dukart spustelėkite failą.
Spausdina sistemos atkūrimo sąrašą. rodo į tekstinį failą
2005 m. Rameshas Srinivasanas – https://www.winhelponline.com/xp
Paskutinį kartą atnaujinta: 2005 m. rugpjūčio 20 d
' Tinkamai suformatuoja datą / laiką
'
Parinktis Aiški
Dim fso, b, objWMI, clsPoint, strComputer, apvalkalas
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Šiame kompiuteryje rastų sistemos atkūrimo taškų sąrašas"
Nustatyti apvalkalą = CreateObject ("Wscript. Lukštas“)
Nustatyti fso = Wscript. CreateObject ("Scenarijų. FilesystemObject")
fName = apvalkalas. Specialieji aplankai („Darbalaukis“)
fName = fName & "\ListSR.txt"
rinkinys b = fso. CreateTextFile (fName, true)
b. Writeline fLine
b.writeline eilutė (52"-")
b.rašyti tuščias eilutes 1
strComputer="."
Nustatyti dtmInstallDate = CreateObject(_
„WbemScripting. SWbemDateTime")
Nustatyti objWMI = GetObject(_
"winmgmts:\\" & strComputer & "\root\cimv2")
Nustatyti objOS = objWMI.ExecQuery(_
"Pasirinkite * iš Win32_OperatingSystem")
Nustatyti objWMI = getobject(_
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("sistemos atkūrimas")
Kiekvienam clsPoint ObjWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.rašyti tuščias eilutes 1
Kitas
funkcija getmytime (wmitime)
dtmInstallDate. Reikšmė = wmitime
getmytime = dtmInstallDate. GetVarDate
pabaigos funkcija
b.uždaryti
Lukštas. Paleiskite „notepad.exe“ ir fName, 1, True
Nustatyti fso = nieko
set shell = nieko