Показано с 1 по 2 из 2.

Быстрое создание точек восстановления Windows

  1. #1
    Senior Member Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Аватар для SDA
    Регистрация
    07.01.2005
    Адрес
    Москва
    Сообщений
    7,168
    Вес репутации
    3166

    Быстрое создание точек восстановления Windows

    файл сценария языка Visual Basic Script (xp_sysrestorepoint.vbs, 1 кб), написанный сертифицированным специалистом Microsoft Дугом Ноксом. Стоит его запустить, как система автоматически, без лишних вопросов создаст точку восстановления и отрапортует о проделанной операции пользователю.Cценарий отлично работает и в Windows Vista.

    'Unattended System Restore Point
    'sysrestorepoint.vbs
    '© Doug Knox - rev 02/11/2002
    'Downloaded from www.dougknox.com
    'Extracted from original code by Bill James - www.billsway.com

    Set sr = getobject("winmgmts:\\.\root\default:Systemrestore ")

    msg = "New Restore Point successfully created." & vbCR
    msg = msg & "It is listed as: " & vbCR
    msg = msg & "Automatic Restore Point " & Date & " " & Time

    'Put a ' in front of the next five lines to disable the Success Failed Prompt.
    If (sr.createrestorepoint("Automatic Restore Point", 0, 100)) = 0 Then
    MsgBox msg
    Else
    MsgBox "Restore Point creation Failed!"
    End If

    'Remove the ' from the next 3 lines to only alert you if the process failed
    'If (sr.createrestorepoint("Automatic Restore Point", 0, 100)) <> 0 Then
    ' MsgBox "Restore Point creation Failed!"
    'End If

  2. Будь в курсе!
    Реклама на VirusInfo

    Надоело быть жертвой? Стань профи по информационной безопасности, получай самую свежую информацию об угрозах и средствах защиты от ведущего российского аналитического центра Anti-Malware.ru:

    Anti-Malware Telegram
     

  3. #2
    Junior Member Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация
    Регистрация
    10.05.2007
    Адрес
    Ленинград
    Сообщений
    37
    Вес репутации
    72
    в седьмой строчке лишний пробел нарисовался. Set sr = getobject("winmgmts:\\.\root\default:SystemrestoreТУТ")
    код:
    Код:
    'Unattended System Restore Point
    'sysrestorepoint.vbs
    '© Doug Knox - rev 02/11/2002
    'Downloaded from www.dougknox.com 
    'Extracted from original code by Bill James - www.billsway.com
    
    Set sr = getobject("winmgmts:\\.\root\default:Systemrestore")
    
    msg = "New Restore Point successfully created." & vbCR
    msg = msg & "It is listed as: " & vbCR
    msg = msg & "Automatic Restore Point " & Date & " " & Time
    
    'Put a ' in front of the next five lines to disable the Success Failed Prompt.
    If (sr.createrestorepoint("Automatic Restore Point", 0, 100)) = 0 Then
        MsgBox msg
    Else
        MsgBox "Restore Point creation Failed!"
    End If
    
    'Remove the ' from the next 3 lines to only alert you if the process failed
    'If (sr.createrestorepoint("Automatic Restore Point", 0, 100)) <> 0 Then
    '    MsgBox "Restore Point creation Failed!"
    'End If

Похожие темы

  1. Создание консоли восстановления Windows XP
    От Matias в разделе Microsoft Windows
    Ответов: 0
    Последнее сообщение: 20.01.2011, 22:37
  2. SCRP быстрое создание точек восстановления
    От meir в разделе Софт - общий
    Ответов: 0
    Последнее сообщение: 15.12.2009, 21:38
  3. Ответов: 1
    Последнее сообщение: 23.01.2009, 21:52
  4. Ответов: 4
    Последнее сообщение: 17.01.2009, 15:57
  5. Ответов: 1
    Последнее сообщение: 07.01.2009, 19:28

Свернуть/Развернуть Ваши права в разделе

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •  
Page generated in 0.01277 seconds with 16 queries