VBScript sederhana ini mencantumkan semua titik Pemulihan Sistem yang tersedia di komputer Anda, dengan Deskripsi, Pembuatan. waktu, dan nomor urut.
Untuk menjalankan skrip, salin baris berikut ke dokumen Notepad, dan simpan sebagai file. dengan ekstensi .VBS (gunakan tanda kutip ganda) dan klik dua kali file tersebut.
' Mencetak daftar Pemulihan Sistem. menunjuk ke file teks
' 2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
' Terakhir diperbarui pada: 20 Agustus 2005
' Memformat tanggal / waktu dengan benar
'
Opsi Eksplisit
Redupkan fso, b, objWMI, clsPoint, strComputer, shell
Redup fLine, dtmInstallDate, objOS, fName
fLine = "Daftar titik System Restore yang ditemukan di komputer ini"
Setel shell = CreateObject("Wscript. Kerang")
Atur fso = Wscript. CreateObject("Skrip. FilesystemObject")
fNama = Shell. Folder Khusus("Desktop")
fName = fName & "\ListSR.txt"
himpunan b = fso. CreateTextFile (fName, benar)
B. Writeline fLine
b.writeline string (52,"-")
b.tulis blanklines 1
strKomputer="."
Setel dtmInstallDate = CreateObject( _
"WbemScripting. SWbemDateTime")
Setel objWMI = GetObject( _
"winmgmts:\\" & strKomputer & "\root\cimv2")
Setel objOS = objWMI.ExecQuery( _
"Pilih * dari Win32_OperatingSystem")
Setel objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("systemrestore")
Untuk Setiap clsPoint Dalam objWMI
b.writeline "Waktu Pembuatan=" & getmytime (clsPoint.creationtime)
b.writeline "Description=" & clsPoint.description
b.writeline "Nomor Urutan=" & clsPoint.sequencenumber
b.tulis blanklines 1
Berikutnya
fungsi getmytime (wmitime)
dtmTanggal Pemasangan. Nilai = wmitime
getmytime = dtmInstallDate. DapatkanVarDate
fungsi akhir
b.tutup
Kerang. Jalankan "notepad.exe" & fName, 1,True
Tetapkan fso = Tidak ada
set kulit = Tidak ada