Цей простий VBScript перераховує всі точки відновлення системи, доступні на вашому комп’ютері, з описом, створенням. час і порядковий номер.
Щоб запустити сценарій, скопіюйте наступні рядки в документ Блокнота та збережіть у файлі. з розширенням .VBS (використовуйте подвійні лапки) і двічі клацніть файл.
' Друкує список відновлення системи. вказує на текстовий файл
2005 Рамеш Шрінівасан - https://www.winhelponline.com/xp
Останнє оновлення: 20 серпня 2005 року
' Правильно форматує дату/час
'
Явний варіант
Dim fso, b, objWMI, clsPoint, strComputer, оболонка
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Список точок відновлення системи, знайдених на цьому комп'ютері"
Встановити оболонку = CreateObject("Wscript. оболонка")
Встановіть fso = Wscript. CreateObject("Сценарії. FilesystemObject")
fName = Shell. SpecialFolders("Робочий стіл")
fName = fName & "\ListSR.txt"
встановити b = fso. CreateTextFile (fName, true)
б. Writeline fLine
b.writeline рядок (52,"-")
b.writeblanklines 1
strComputer="."
Встановити dtmInstallDate = CreateObject( _
«WbemScripting. SWbemDateTime")
Встановіть objWMI = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Встановіть objOS = objWMI.ExecQuery( _
"Виберіть * з Win32_OperatingSystem")
Встановіть objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("відновлення системи")
Для кожної точки clsPoint в objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.writeblanklines 1
Далі
функція getmytime (wmitime)
dtmInstallDate. Значення = wmitime
getmytime = dtmInstallDate. GetVarDate
кінцева функція
б.закрити
Shell. Запустіть «notepad.exe» і fName, 1, True
Встановити fso = Нічого
встановити оболонку = Нічого