Този прост VBScript изброява всички точки за възстановяване на системата, налични във вашия компютър, с описание, създаване. време и поредния номер.
За да стартирате скрипта, копирайте следните редове в документ на Notepad и запазете като файл. с разширение .VBS (използвайте двойни кавички) и щракнете двукратно върху файла.
' Отпечатва списъка с възстановяване на системата. сочи към текстов файл
' 2005 Рамеш Шринивасан - https://www.winhelponline.com/xp
' Последна актуализация на: 20 август 2005 г
' Форматира правилно датата/часа
'
Изрична опция
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Списък с точки за възстановяване на системата, намерени в този компютър"
Задайте обвивка = CreateObject("Wscript. черупка")
Задайте fso = Wscript. CreateObject("Скриптове. FilesystemObject")
fИме = Shell. Специални папки („Настолен плот“)
fName = fName & "\ListSR.txt"
набор b = fso. CreateTextFile (fName, true)
б. Напишете линия 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, Вярно
Задайте fso = нищо
set shell = Нищо