Ovaj jednostavan VBScript navodi sve točke za vraćanje sustava dostupne na vašem računalu, s opisom, stvaranjem. vrijeme i redni broj.
Da biste pokrenuli skriptu, kopirajte sljedeće retke u dokument Notepad i spremite ih kao datoteku. s ekstenzijom .VBS (koristite dvostruke navodnike) i dvaput kliknite datoteku.
' Ispisuje popis za vraćanje sustava. pokazuje na tekstualnu datoteku
' 2005. Ramesh Srinivasan - https://www.winhelponline.com/xp
' Posljednje ažuriranje: 20. kolovoza 2005
' Ispravno formatira datum/vrijeme
'
Opcija Eksplicitna
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Popis točaka za vraćanje sustava pronađenih na ovom računalu"
Postavi ljusku = CreateObject("Wscript. Ljuska")
Postavite fso = Wscript. CreateObject("Skriptiranje. FilesystemObject")
fNaziv = Shell. Posebne mape ("Desktop")
fName = fName & "\ListSR.txt"
skup b = fso. CreateTextFile (fName, true)
b. Napišite liniju fLine
b.writeline string (52,"-")
b.writeblanklines 1
strComputer="."
Postavi dtmInstallDate = CreateObject( _
"WbemScripting. SWbemDateTime")
Postavi objWMI = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Postavi objOS = objWMI.ExecQuery( _
"Odaberi * iz Win32_OperatingSystem")
Postavi objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("vraćanje sustava")
Za svaku clsPoint u objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.writeblanklines 1
Sljedeći
funkcija getmytime (wmitime)
dtmInstallDate. Vrijednost = wmitime
getmytime = dtmInstallDate. GetVarDate
krajnja funkcija
b. zatvoriti
Ljuska. Pokrenite "notepad.exe" & fName, 1, True
Postavite fso = Ništa
set shell = Ništa