พิมพ์รายการจุดคืนค่าระบบที่มีอยู่ทั้งหมดไปยังไฟล์

' พิมพ์รายการการคืนค่าระบบ ชี้ไปที่ไฟล์ข้อความ
' 2005 ราเมศ ศรีนิวาสัน - https://www.winhelponline.com/xp
' ปรับปรุงล่าสุดเมื่อ: 20 ส.ค. 2548
' จัดรูปแบบวันที่ / เวลาให้ถูกต้อง
'

ตัวเลือกที่ชัดเจน
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "รายการจุดคืนค่าระบบที่พบในคอมพิวเตอร์เครื่องนี้"
ตั้งค่าเชลล์ = CreateObject ("Wscript. เปลือก")
ตั้งค่า fso = Wscript CreateObject("การเขียนสคริปต์. FilesystemObject")
fName = เชลล์ โฟลเดอร์พิเศษ("เดสก์ท็อป")
fName = fName & "\ListSR.txt"
ตั้งค่า b = fso CreateTextFile (fName, จริง)
ข. Writeline fLine
b.writeline string (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") อินสแตนซ์ของ ("systemrestore")
สำหรับแต่ละ clsPoint ใน objWMI
b.writeline "เวลาสร้าง = " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "หมายเลขลำดับ = " & clsPoint.sequencenumber
b.writeblanklines 1
ถัดไป

ฟังก์ชัน getmytime (wmitime)
dtmInstallDate ค่า = wmitime
getmytime = dtmInstallDate GetVarDate
ฟังก์ชั่นสิ้นสุด

b.close
เปลือก. เรียกใช้ "notepad.exe" & fName, 1,True
ตั้งค่า fso = Nothing
set shell = ไม่มีอะไร