הדפס את רשימת כל נקודות שחזור המערכת הזמינות לקובץ

' מדפיס את רשימת שחזור המערכת. מצביע על קובץ טקסט
' 2005 ראמש סריניוואסן - https://www.winhelponline.com/xp
עדכון אחרון בתאריך: 20 באוגוסט, 2005
' מעצב את התאריך/שעה בצורה נכונה
'

אפשרות מפורשת
Dim fso, b, objWMI, clsPoint, strComputer, shell
עמום fLine, dtmInstallDate, objOS, fName
fLine = "רשימת נקודות שחזור מערכת שנמצאו במחשב זה"
Set shell = CreateObject("Wscript. צדף")
הגדר fso = Wscript. CreateObject("Scripting. FilesystemObject")
fName = מעטפת. תיקיות מיוחדות ("שולחן עבודה")
fName = fName & "\ListSR.txt"
סט b = fso. CreateTextFile (fName, true)
ב. Writeline fLine
מחרוזת b.writeline (52,"-")
b.writeblanklines 1

strComputer="."

הגדר dtmInstallDate = CreateObject( _
"WbemScripting. SWbemDateTime")

הגדר objWMI = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")

הגדר objOS = objWMI.ExecQuery( _
"בחר * מ-Win32_OperatingSystem")

הגדר objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("שחזור מערכת")
עבור כל clsPoint ב-objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.writeblanklines 1
הַבָּא

פונקציה getmytime (wmitime)
dtmInstallDate. ערך = wmitime
getmytime = dtmInstallDate. GetVarDate
פונקציית סוף

ב.סגור
צדף. הפעל את "notepad.exe" & fName, 1,True
הגדר fso = כלום
הגדר מעטפת = כלום