' You must run
' regsvr32 srclient.dll before running this

on Error Resume Next

Function CheckError(x)
If Err.Number <> 0 Then
  MsgBox("Got Error " & Err.Number & " (" & Err.Description & ") from " & x)
  WScript.Quit(0)
End If
End Function

dim lastNum
lastNum = 1
set client = WScript.CreateObject("Srclient.SystemRestore")
CheckError("CreateObject")
set point = client.FindFirstRestorePoint()
CheckError("FindFirstRestorePoint")
while point.Number <> lastNum
   WScript.Echo("Found restore point called '" & point.Name & _
       "' of type " & point.Type & " numbered as " & point.Number)
   lastNum = point.Number
   set point = client.FindNextRestorePoint()
   CheckError("FindNextRestorePoint")
wend
WScript.Echo("Enter 1 to create a restore point")
set line = WScript.StdIn.ReadLine
if line = "1" then
   WScript.Echo("Making restore Point")
   client.CreateRestorePoint "MyFirstRestorePoint", 0
   CheckError("CreateRestorePoint")
end if
set point = Nothing
set client = Nothing