Tämä yksinkertainen VBScript luettelee kaikki tietokoneellasi käytettävissä olevat järjestelmän palautuspisteet Kuvaus, Luominen. aika ja järjestysnumero.
Suorita komentosarja kopioimalla seuraavat rivit Muistio-asiakirjaan ja tallentamalla tiedostona. .VBS-tunnisteella (käytä lainausmerkkejä) ja kaksoisnapsauta tiedostoa.
' Tulostaa järjestelmän palautusluettelon. osoittaa tekstitiedostoon
2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
Viimeksi päivitetty: 20. elokuuta 2005
' Muotoilee päivämäärän/ajan oikein
'
Vaihtoehto Explicit
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Luettelo tästä tietokoneesta löytyneistä järjestelmän palautuspisteistä"
Set shell = CreateObject("Wscript. Kuori")
Aseta fso = Wscript. CreateObject("Komentosarja. FilesystemObject")
fName = Shell. SpecialFolders ("Työpöytä")
fName = fName & "\ListSR.txt"
aseta b = fso. CreateTextFile (fName, true)
b. Kirjoita fLine
b.writeline-merkkijono (52"-")
b.kirjoita tyhjiä rivejä 1
strComputer="."
Aseta dtmInstallDate = CreateObject(_
"WbemScripting. SWbemDateTime")
Aseta objWMI = GetObject(_
"winmgmts:\\" & strComputer & "\root\cimv2")
Aseta objOS = objWMI.ExecQuery(_
"Valitse * Win32_OperatingSystemistä")
Aseta objWMI = getobject(_
"winmgmts:\\" & strComputer & "\root\default"). InstancesOf ("järjestelmän palautus")
Jokaiselle clsPoint In objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.kirjoita tyhjiä rivejä 1
Seuraava
funktio getmytime (wmitime)
dtmInstallDate. Arvo = wmitime
getmytime = dtmInstallDate. GetVarDate
lopputoiminto
b.sulje
Kuori. Suorita "notepad.exe" & fName, 1,True
Aseta fso = Ei mitään
set shell = ei mitään