Hi, Tom,
I found "RUN" program and here is the results bellow. I'm not sure it's right. Thanks!!
[FONT="]' Prints the list of System Restore points to a text file[/FONT]
[FONT="]' © 2005 Ramesh Srinivasan -
Windows XP Fixes, Tips and Tweaks[/FONT]
[FONT="]' Last updated on: [/FONT][FONT="]Aug 20, 2005[/FONT][FONT="][/FONT]
[FONT="]' Formats the date / time correctly[/FONT]
[FONT="]'-----------------------------------------------------------[/FONT]
[FONT="] [/FONT]
[FONT="]Option Explicit[/FONT]
[FONT="]Dim fso, b, objWMI, clsPoint, strComputer, shell[/FONT]
[FONT="]Dim fLine, dtmInstallDate, objOS, fName[/FONT]
[FONT="]fLine = "List of System Restore points found in this computer"[/FONT]
[FONT="]Set shell = CreateObject("Wscript.Shell")[/FONT]
[FONT="]Set fso = Wscript.CreateObject("Scripting.FilesystemObject")[/FONT]
[FONT="]fName = Shell.SpecialFolders("Desktop")[/FONT]
[FONT="]fName = fName & "\ListSR.txt"[/FONT]
[FONT="]set b = fso.CreateTextFile (fName,true)[/FONT]
[FONT="]b.Writeline fLine[/FONT]
[FONT="]b.writeline string(52,"-")[/FONT]
[FONT="]b.writeblanklines 1[/FONT]
[FONT="] [/FONT]
[FONT="]strComputer="."[/FONT]
[FONT="] [/FONT]
[FONT="]Set dtmInstallDate = CreateObject( _[/FONT]
[FONT="]"WbemScripting.SWbemDateTime")[/FONT]
[FONT="] [/FONT]
[FONT="]Set objWMI = GetObject( _[/FONT]
[FONT="]"winmgmts:\\" & strComputer & "\root\cimv2")[/FONT]
[FONT="] [/FONT]
[FONT="]Set objOS = objWMI.ExecQuery( _[/FONT]
[FONT="]"Select * from Win32_OperatingSystem")[/FONT]
[FONT="] [/FONT]
[FONT="]Set objWMI = getobject( _[/FONT]
[FONT="]"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("systemrestore")[/FONT]
[FONT="]For Each clsPoint In objWMI[/FONT]
[FONT="]b.writeline "Creation Time= " & getmytime(clsPoint.creationtime)[/FONT]
[FONT="]b.writeline "Description= " & clsPoint.description[/FONT]
[FONT="]b.writeline "Sequence Number= " & clsPoint.sequencenumber[/FONT]
[FONT="]b.writeblanklines 1[/FONT]
[FONT="]Next[/FONT]
[FONT="] [/FONT]
[FONT="]function getmytime(wmitime)[/FONT]
[FONT="]dtmInstallDate.Value = wmitime[/FONT]
[FONT="]getmytime = dtmInstallDate.GetVarDate[/FONT]
[FONT="]end function[/FONT]
[FONT="] [/FONT]
[FONT="]b.close[/FONT]
[FONT="]Shell.Run "notepad.exe " & fName, 1,True[/FONT]
[FONT="]Set fso = Nothing[/FONT]
[FONT="]set shell = Nothing[/FONT]