ამობეჭდეთ ფაილში სისტემის აღდგენის ყველა არსებული წერტილის სია

ბეჭდავს სისტემის აღდგენის სიას. მიუთითებს ტექსტურ ფაილზე
2005 რამეშ სრინივასანი - https://www.winhelponline.com/xp
ბოლოს განახლდა: 2005 წლის 20 აგვისტო
სწორად აფორმებს თარიღს/დროს
'

ვარიანტი აშკარა
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "ამ კომპიუტერში ნაპოვნი სისტემის აღდგენის წერტილების სია"
Set shell = CreateObject ("Wscript. ჭურვი")
დააყენეთ fso = Wscript. CreateObject ("სკრიპტირება. ფაილური სისტემის ობიექტი")
fName = Shell. სპეციალური საქაღალდეები ("Desktop")
fName = fName & "\ListSR.txt"
ნაკრები b = fso. CreateTextFile (fName, true)
ბ. ჩაწერეთ 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 "Sequence Number= " & clsPoint.sequencenumber
ბ. ჩაწერეთ ბლანკი 1
შემდეგი

ფუნქცია getmytime (wmtime)
dtmInstallDate. ღირებულება = wmtime
getmytime = dtmInstallDate. GetVarDate
დასრულების ფუნქცია

ბ.დახურვა
ჭურვი. გაუშვით "notepad.exe" & fName, 1, True
დააყენეთ fso = არაფერი
კომპლექტი ჭურვი = არაფერი