Αυτό το απλό VBScript παραθέτει όλα τα σημεία επαναφοράς συστήματος που είναι διαθέσιμα στον υπολογιστή σας, με την Περιγραφή, Δημιουργία. ώρα και τον Αύξοντα αριθμό.
Για να εκτελέσετε το σενάριο, αντιγράψτε τις ακόλουθες γραμμές σε ένα έγγραφο Σημειωματάριο και αποθηκεύστε ως αρχείο. με επέκταση .VBS (χρησιμοποιήστε διπλά εισαγωγικά) και κάντε διπλό κλικ στο αρχείο.
Εκτυπώνει τη λίστα της Επαναφοράς Συστήματος. δείχνει σε ένα αρχείο κειμένου
' 2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
Τελευταία ενημέρωση: 20 Αυγούστου 2005
' Μορφοποιεί σωστά την ημερομηνία/ώρα
'
Επιλογή ρητή
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Λίστα σημείων επαναφοράς συστήματος που βρέθηκαν σε αυτόν τον υπολογιστή"
Set shell = CreateObject("Wscript. Κέλυφος")
Σετ fso = Wscript. CreateObject("Scripting. FilesystemObject")
fName = Κέλυφος. SpecialFolders ("Desktop")
fName = fName & "\ListSR.txt"
σύνολο b = fso. CreateTextFile (fName, true)
σι. Writeline fLine
συμβολοσειρά b.writeline (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").InstancesOf ("systemrestore")
Για κάθε clsPoint Στο objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.writeblanklines 1
Επόμενο
συνάρτηση getmytime (wmtime)
dtmΗμερομηνία εγκατάστασης. Αξία = wmtime
getmytime = dtmInstallDate. GetVarDate
τελική λειτουργία
β.κλείνω
Κέλυφος. Εκτελέστε το "notepad.exe" & το fName, 1, True
Σετ fso = Τίποτα
set shell = Τίποτα