' Prints the list of System Restore points to a text file
' © 2005 Ramesh Srinivasan - http://windowsxp.mvps.org
' Last updated on: Aug 20, 2005
' Formats the date / time correctly

'  ----------------------------------------------------------------------------
'  -- $Id: //guest/paul_m_thompson/gd.src/vbs/List_system_restore_points.vbs#2 $
'  -- $Change: 8139 $
'  -- $DateTime: 2012/06/09 07:02:05 $
'  -- $Author: paul_m_thompson $
'  ----------------------------------------------------------------------------


Option Explicit
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "List of System Restore points found in this computer"
Set shell = CreateObject("Wscript.Shell")
Set fso = Wscript.CreateObject("Scripting.FilesystemObject")
fName = Shell.SpecialFolders("Desktop")
fName = fName & "\ListSR.txt"
set b = fso.CreateTextFile (fName,true)
b.Writeline fLine
b.writeline string(52,"-")
b.writeblanklines 1

strComputer="."

Set dtmInstallDate = CreateObject( _
"WbemScripting.SWbemDateTime")

Set objWMI = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")

Set objOS = objWMI.ExecQuery( _
"Select * from Win32_OperatingSystem")

Set objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("systemrestore")
For Each clsPoint In objWMI
b.writeline "Creation Time= " & getmytime(clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.writeblanklines 1
Next

function getmytime(wmitime)
dtmInstallDate.Value = wmitime
getmytime = dtmInstallDate.GetVarDate
end function

b.close
Shell.Run "notepad.exe " & fName, 1,True
Set fso = Nothing
set shell = Nothing