Option Explicit
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Lista de pontos de restauro encontrados neste computador"
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 "Data de criacao= " & getmytime(clsPoint.creationtime)
b.writeline "Descricao= " & clsPoint.description
b.writeline "Numero de sequencia= " & 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