सभी उपलब्ध सिस्टम पुनर्स्थापना बिंदुओं की सूची को एक फ़ाइल में प्रिंट करें

' सिस्टम रिस्टोर की सूची को प्रिंट करता है। एक टेक्स्ट फ़ाइल की ओर इशारा करता है
' 2005 रमेश श्रीनिवासन - https://www.winhelponline.com/xp
' अंतिम अद्यतन: अगस्त 20, 2005
' दिनांक/समय को सही ढंग से प्रारूपित करता है
'

विकल्प स्पष्ट
मंद fso, b, objWMI, clsPoint, strComputer, शेल
मंद fLine, dtmInstallDate, objOS, fName
fLine = "इस कंप्यूटर में पाए गए सिस्टम पुनर्स्थापना बिंदुओं की सूची"
शेल सेट करें = CreateObject ("Wscript. सीप")
सेट fso = Wscript. क्रिएटऑब्जेक्ट ("स्क्रिप्टिंग. फाइलसिस्टमऑब्जेक्ट")
fName = शेल. स्पेशलफोल्डर्स ("डेस्कटॉप")
fName = fName और "\ListSR.txt"
सेट बी = एफएसओ। CreateTextFile (fName, सच)
बी। राइटलाइन लाइन
बी.राइटलाइन स्ट्रिंग (52,"-")
b.रिक्त रेखाएं 1. लिखें

स्ट्र कंप्यूटर = "।"

dtmInstallDate = CreateObject (_) सेट करें
"वेबमस्क्रिप्टिंग। SWbemDateTime")

objWMI = GetObject सेट करें (_
"winmgmts:\\" और strComputer और "\root\cimv2")

objOS = objWMI.ExecQuery सेट करें (_
"Win32_OperatingSystem से * चुनें")

objWMI = getobject (_) सेट करें
"winmgmts:\\" और strComputer और "\root\default").InstancesOf ("systemrestore")
objWMI में प्रत्येक clsPoint के लिए
b.writeline "क्रिएशन टाइम =" और getmytime (clsPoint.creationtime)
बी.लेखन "विवरण =" और clsPoint.description
बी.लेखन "अनुक्रम संख्या =" और clsPoint.sequencenumber
b.रिक्त रेखाएं 1. लिखें
अगला

समारोह getmytime (wmitime)
dtmInstallDate. मान = wmitime
getmytime = dtmInstallDate. GetVarDate
अंत समारोह

ख.बंद
सीप। "notepad.exe" चलाएँ और fName, 1, ट्रू
सेट fso = कुछ नहीं
खोल सेट करें = कुछ नहीं