اطبع قائمة بجميع نقاط استعادة النظام المتوفرة إلى ملف

يطبع قائمة استعادة النظام. يشير إلى ملف نصي
2005 راميش سرينيفاسان - https://www.winhelponline.com/xp
آخر تحديث في: 20 آب (أغسطس) 2005
"ينسق التاريخ / الوقت بشكل صحيح
'

خيار صريح
Dim fso، b، objWMI، clsPoint، strComputer، shell
خافت fLine ، dtmInstallDate ، objOS ، fName
fLine = "قائمة نقاط استعادة النظام الموجودة في هذا الكمبيوتر"
تعيين قذيفة = CreateObject ("Wscript. الصدف")
تعيين fso = Wscript. CreateObject ("برمجة. كائن نظام الملفات ")
fName = شل. مجلدات خاصة ("سطح المكتب")
fName = fName & "\ ListSR.txt"
مجموعة ب = fso. CreateTextFile (fName ، صحيح)
ب. Writeline fLine
سلسلة b.writeline (52، "-")
ب - خطوط الكتابة الفارغة 1

strComputer = "."

تعيين dtmInstallDate = CreateObject (_
"WbemScripting. SWbemDateTime ")

تعيين objWMI = GetObject (_
"winmgmts: \\" & strComputer & "\ root \ cimv2")

تعيين objOS = objWMI.ExecQuery (_
"حدد * من Win32_OperatingSystem")

اضبط objWMI = getobject (_
"winmgmts: \\" & strComputer & "\ root \ default"). InstancesOf ("systemrestore")
لكل clsPoint في objWMI
b.writeline "Creation Time =" & getmytime (clsPoint.creationtime)
b.writeline "Description =" & clsPoint.description
b.writeline "رقم التسلسل =" & clsPoint.sequencenumber
ب - خطوط الكتابة الفارغة 1
التالي

دالة getmytime (wmitime)
dtmInstallDate. القيمة = wmitime
getmytime = dtmInstallDate. GetVarDate
وظيفة النهاية

ب إغلاق
الصدف. قم بتشغيل "notepad.exe" & fName، 1، True
تعيين fso = لا شيء
وضع قذيفة = لا شيء