Vytlačte zoznam všetkých dostupných bodov obnovenia systému do súboru

Tento jednoduchý VBScript obsahuje zoznam všetkých bodov obnovenia systému dostupných vo vašom počítači s popisom, vytvorením. čas a poradové číslo.

Ak chcete skript spustiť, skopírujte nasledujúce riadky do dokumentu programu Poznámkový blok a uložte ho ako súbor. s príponou .VBS (použite dvojité úvodzovky) a dvakrát kliknite na súbor.

' Vytlačí zoznam Obnovovanie systému. ukazuje na textový súbor
2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
Posledná aktualizácia: 20. augusta 2005
' Správne naformátuje dátum/čas
'

Možnosť Explicitná
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Zoznam bodov obnovenia systému nájdených v tomto počítači"
Nastaviť shell = CreateObject("Wscript. Shell")
Nastavte fso = Wscript. CreateObject("Skriptovanie. Filesystem Object")
fName = Shell. SpecialFolders("Desktop")
fName = fName & "\ListSR.txt"
množina b = fso. CreateTextFile (fName, true)
b. Writeline fLine
b.writeline string (52 "-")
b.písať prázdne riadky 1

strComputer="."

Nastaviť dtmInstallDate = CreateObject ( _
"WbemScripting. SWbemDateTime")

Nastaviť objWMI = GetObject ( _
"winmgmts:\\" & strComputer & "\root\cimv2")

Nastaviť objOS = objWMI.ExecQuery( _
"Vyberte * z Win32_OperatingSystem")

Nastaviť objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("obnovenie systému")
Pre každý clsPoint v objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.písať prázdne riadky 1
Ďalšie

funkcia getmytime (wmitime)
dtmInstallDate. Hodnota = wmitime
getmytime = dtmInstallDate. GetVarDate
koncová funkcia

b.zavrieť
Shell. Spustite "notepad.exe" & fName, 1,True
Nastaviť fso = nič
set shell = nič