Option Explicit

Dim sGetObject

sGetObject = "winmgmts:root/default"

ScanSystemRestore

If WScript.Arguments(0) = 0 Then
	DisableSystemRestore
Else
	EnableSystemRestore
End If

Sub ScanSystemRestore
	Dim oService, sTemp, rp
' query wmi repository
	Set oService = GetObject(sGetObject).InstancesOf("SystemRestore")

	For Each rp in oService
		sTemp = "Name: " & rp.Description & " Number: " & rp.SequenceNumber & " Type: " & rp.RestorePointType & " Time: " & rp.CreationTime
		WScript.Echo sTemp
	Next

	If oService.Count = 0 Then
		WScript.Echo "No restore point in system"
	End if 

' release interfaces
	Set oService = Nothing
End Sub

Sub DisableSystemRestore
	Dim oService, status, oItem

	Set oService = GetObject("winmgmts:\\.\root\default")
	Set oItem = oService.Get("SystemRestore")
	status = oItem.Disable("")

	Set oItem = Nothing
	Set oService = Nothing
End Sub

Sub EnableSystemRestore
	Dim oService, status, oItem

	Set oService = GetObject("winmgmts:\\.\root\default")
	Set oItem = oService.Get("SystemRestore")
	status = oItem.Enable("")

	Set oItem = Nothing
	Set oService = Nothing
End Sub