Bu basit VBScript, bilgisayarınızda bulunan tüm Sistem Geri Yükleme noktalarını Açıklama, Oluşturma ile listeler. zaman ve Sıra numarası.
Komut dosyasını çalıştırmak için aşağıdaki satırları bir Not Defteri belgesine kopyalayın ve dosya olarak kaydedin. .VBS uzantılı (çift tırnak kullanın) ve dosyaya çift tıklayın.
' Sistem Geri Yükleme listesini yazdırır. bir metin dosyasına işaret eder
' 2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
' Son güncelleme: 20 Ağu 2005
' Tarih / saati doğru biçimlendirir
'
Seçenek Açık
Dim fso, b, objWMI, clsPoint, strComputer, kabuk
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Bu bilgisayarda bulunan Sistem Geri Yükleme noktalarının listesi"
Kabuk ayarla = CreateObject("Wscript. Kabuk")
fso = Wscript olarak ayarlayın. CreateObject("Komut Dosyası. Dosya Sistemi Nesnesi")
fAd = Kabuk. SpecialFolders("Masaüstü")
fName = fName & "\ListSR.txt"
b = fso olarak ayarlayın. CreateTextFile (fName, true)
B. Yazma hattı
b.writeline string (52,"-")
b. boş satırları yaz 1
strBilgisayar="."
dtmInstallDate'i ayarla = CreateObject( _
"WbemScripting. SWbemDateTime")
objWMI'yi ayarla = GetObject( _
"winmgmts:\\" & strBilgisayar & "\root\cimv2")
objOS = objWMI.ExecQuery( _ olarak ayarlayın)
"Win32_OperatingSystem'den * seçin")
set objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("sistem geri yükleme")
objWMI'deki Her clsPoint için
b.writeline "Oluşturma Zamanı = " & getmytime (clsPoint.creationtime)
b.writeline "Description=" & clsPoint.description
b.writeline "Sıra Numarası= " & clsPoint.sequencenumber
b. boş satırları yaz 1
Sonraki
işlev getmytime (wmitime)
dtmKurulumTarihi. değer = wmitime
getmytime = dtmInstallDate. GetVarDate
bitiş işlevi
b.kapat
Kabuk. "notepad.exe" ve fName, 1,True'yu çalıştırın
fso = Hiçbir şey olarak ayarla
kabuk ayarla = Hiçbir şey