Этот простой сценарий VBScript перечисляет все точки восстановления системы, доступные на вашем компьютере, с описанием, созданием. время и порядковый номер.
Чтобы запустить сценарий, скопируйте следующие строки в документ Блокнота и сохраните как файл. с расширением .VBS (используйте двойные кавычки) и дважды щелкните файл.
'Печатает список восстановления системы. указывает на текстовый файл
'2005 Рамеш Сринивасан - https://www.winhelponline.com/xp
Последнее обновление: 20 августа 2005 г.
'Правильно форматирует дату / время
'
Вариант Явный
Dim fso, b, objWMI, clsPoint, strComputer, оболочка
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Список точек восстановления системы, найденных на этом компьютере"
Установите shell = CreateObject ("Wscript. Оболочка")
Установите fso = Wscript. CreateObject ("Скриптинг. FilesystemObject ")
fName = Shell. SpecialFolders ("Рабочий стол")
fName = fName & "\ ListSR.txt"
установите b = fso. CreateTextFile (fName, истина)
б. Writeline fLine
b. текстовая строка (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 ("systemrestore")
Для каждой точки clsPoint в objWMI
b.writeline "Creation Time =" & getmytime (clsPoint.creationtime)
b.writeline "Description =" & clsPoint.description
b.writeline "Порядковый номер =" & clsPoint.sequencenumber
b.writeblanklines 1
Следующий
функция getmytime (wmitime)
dtmInstallDate. Значение = wmitime
getmytime = dtmInstallDate. GetVarDate
конечная функция
б. закрыть
Оболочка. Запустите notepad.exe & fName, 1, True
Установите fso = Nothing
установить оболочку = ничего