Tento jednoduchý VBScript uvádí všechny body obnovení systému dostupné ve vašem počítači s popisem a vytvořením. čas a pořadové číslo.
Chcete-li skript spustit, zkopírujte následující řádky do dokumentu programu Poznámkový blok a uložte jej jako soubor. s příponou .VBS (použijte dvojité uvozovky) a poklepejte na soubor.
' Vytiskne seznam Obnovení systému. ukazuje na textový soubor
2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
Poslední aktualizace: 20. srpna 2005
' Správně naformátuje datum/čas
'
Možnost Explicitní
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Seznam bodů obnovení systému nalezených v tomto počítači"
Set shell = CreateObject("Wscript. Shell")
Nastavit fso = Wscript. CreateObject("Skriptování. FilesystemObject")
fName = Shell. SpecialFolders ("Desktop")
fName = fName & "\ListSR.txt"
množina b = fso. CreateTextFile (fName, true)
b. Writeline fLine
b.writeline string (52"-")
b.pište prázdné řádky 1
strComputer="."
Nastavit dtmInstallDate = CreateObject( _
"WbemScripting. SWbemDateTime")
Set objWMI = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Nastavit objOS = objWMI.ExecQuery( _
"Vyberte * z Win32_OperatingSystem")
Nastavit objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("systemrestore")
Pro každý clsPoint v objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.pište prázdné řádky 1
další
funkce getmytime (wmitime)
dtmInstallDate. Hodnota = wmitime
getmytime = dtmInstallDate. GetVarDate
koncová funkce
b.zavřít
Shell. Spusťte "notepad.exe" & fName, 1,True
Nastavit fso = nic
set shell = nic