Ez az egyszerű VBScript felsorolja a számítógépén elérhető összes rendszer-visszaállítási pontot a Leírás, Létrehozás elemekkel. időt és a sorozatszámot.
A szkript futtatásához másolja a következő sorokat egy Jegyzettömb dokumentumba, és mentse el fájlként. .VBS kiterjesztéssel (használjon dupla idézőjeleket), és kattintson duplán a fájlra.
' Kinyomtatja a Rendszer-visszaállítás listáját. szöveges fájlra mutat
2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
Utolsó frissítés: 2005. augusztus 20
' Helyesen formázza a dátumot/időt
'
Explicit opció
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "A számítógépen talált rendszer-visszaállítási pontok listája"
Set shell = CreateObject("Wscript. Héj")
Állítsa be: fso = Wscript. CreateObject("Scripting. FilesystemObject")
fName = Shell. SpecialFolders ("Asztali")
fName = fName & "\ListSR.txt"
halmaz b = fso. CreateTextFile (fName, true)
b. Writeline fLine
b.writeline string (52"-")
b.írjon üres sorokat 1
strComputer="."
Set dtmInstallDate = CreateObject(_
"WbemScripting. SWbemDateTime")
Set objWMI = GetObject(_
"winmgmts:\\" & strComputer & "\root\cimv2")
Set objOS = objWMI.ExecQuery(_
"Select * from Win32_OperatingSystem")
Set objWMI = getobject(_
"winmgmts:\\" & strComputer & "\root\default"). InstancesOf ("rendszer-visszaállítás")
Minden clsPointhoz az objWMI-ben
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.írjon üres sorokat 1
Következő
függvény getmytime (wmitime)
dtmInstallDate. Érték = wmitime
getmytime = dtmInstallDate. GetVarDate
végfunkció
b.bezár
Héj. Futtassa a "notepad.exe" & fName, 1, True parancsot
Set fso = Semmi
set shell = Semmi