Листинг 11.2 Создание контрольной точки восстановления
Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!root/ default:SystemRestore")
'С помощью данной функции и создается точка восстановления.
'Функция имеет три параметра, первый из которых определяет описание
'создаваемой точки восстановления и возвращает код ошибки в случае
'неудачной попытки создания. Нам этот код не нужен,
'но тем не менее его необходимо поместить в любую переменную.
'Если вы будете записывать сведения о создании точки в журнал,
'то данный код может понадобиться.
ErrorSRCode = obj.CreateRestorePoint("Точка восстановления от " & Time(), 0, 100)