Šajā vienkāršajā VBScript ir uzskaitīti visi datorā pieejamie sistēmas atjaunošanas punkti ar aprakstu, izveidi. laiku un kārtas numuru.
Lai palaistu skriptu, kopējiet šīs rindas Notepad dokumentā un saglabājiet kā failu. ar paplašinājumu .VBS (izmantojiet pēdiņas) un veiciet dubultklikšķi uz faila.
Izdrukā sistēmas atjaunošanas sarakstu. norāda uz teksta failu
2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
Pēdējo reizi atjaunināts: 2005. gada 20. augustā
' Pareizi formatē datumu/laiku
'
Izteikta opcija
Dim fso, b, objWMI, clsPoint, strComputer, apvalks
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Šajā datorā atrasto sistēmas atjaunošanas punktu saraksts"
Set shell = CreateObject ("Wscript. Apvalks")
Iestatiet fso = Wscript. CreateObject ("Skriptēšana. FilesystemObject")
fName = Shell. Īpašās mapes ("Darbvirsma")
fName = fName & "\ListSR.txt"
kopa b = fso. CreateTextFile (fName, true)
b. Writeline fLine
b.writeline virkne (52"-")
b.rakstīt tukšas rindiņas 1
strComputer="."
Iestatīt dtmInstallDate = CreateObject(_
"WbemScripting. SWbemDateTime")
Iestatīt objWMI = GetObject(_
"winmgmts:\\" & strComputer & "\root\cimv2")
Iestatīt objOS = objWMI.ExecQuery(_
"Izvēlieties * no Win32_OperatingSystem")
Iestatīt objWMI = getobject(_
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("sistēmas atjaunošana")
Katram clsPoint In objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.rakstīt tukšas rindiņas 1
Nākamais
funkcija getmytime (wmitime)
dtmInstallDate. Vērtība = wmitime
getmytime = dtmInstallDate. GetVarDate
beigu funkcija
b.aizvērt
Apvalks. Palaidiet "notepad.exe" & fName, 1, True
Iestatīt fso = nekas
set shell = nekas