[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