VBS/WSH/JS

Petya V4sechkin · Конфигурация компьютера

Mik-ki, как-то так:

Код:

Dim LastRP
Set SRP = GetObject("winmgmts:\\.\root\default").InstancesOf("SystemRestore")
For Each objRP In SRP
  LastRP = objRP.SequenceNumber
Next
If Not IsEmpty(LastRP) Then
  GetObject("winmgmts:\\.\root\default:SystemRestore").Restore LastRP
  Set OS = GetObject("winmgmts:{(Shutdown)}\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_OperatingSystem WHERE Primary = True")
  For Each objOS In OS
    objOS.Reboot
  Next
End If

Iska · Отправлено: **20:19, 17-03-2011** | #3

Решил добавить пару ссылок на работу с «SystemRestore» на будущее:
CMD/BAT: CMD/BAT - [решено] Создание контрольной точки восстановления
PowerShell: Vadims Podans's blog - SystemRestore и PowerShell

sov44 · Конфигурация компьютера

Включить восстановление системы только для системного диска. (.vbs)

Код:

Set wshShell = CreateObject("WScript.Shell")
Set wshEnv = wshShell.Environment("Process")
strSysDrive = wshEnv("SYSTEMDRIVE")

strComputer = "."
Set objSR = GetObject("winmgmts:\\" & strComputer & "\root\default").Get("SystemRestore")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
For Each objDisk In objWMIService.ExecQuery("Select DeviceID From Win32_LogicalDisk Where DriveType = 3")
If objDisk.DeviceID <> strSysDrive Then objSR.Disable objDisk.DeviceID & "\"
Next

Mik-ki · Отправлено: **00:37, 20-03-2011** | #5

спс