See lihtne VBScript loetleb kõik teie arvutis saadaolevad süsteemitaastepunktid koos kirjelduse ja loomisega. kellaaeg ja järjekorranumber.
Skripti käivitamiseks kopeerige järgmised read Notepadi dokumenti ja salvestage failina. .VBS laiendiga (kasutage jutumärke) ja topeltklõpsake faili.
' Prindib süsteemitaaste loendi. osutab tekstifailile
2005 Ramesh Srinivasan – https://www.winhelponline.com/xp
Viimati värskendatud: 20. august 2005
' Vormindab kuupäeva/kellaaja õigesti
'
Valik Selgesõnaline
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Sellest arvutist leitud süsteemitaastepunktide loend"
Set shell = CreateObject("Wscript. kest")
Määra fso = Wscript. CreateObject("Skriptimine. FilesystemObject")
fName = Shell. SpecialFolders ("Töölaud")
fName = fName & "\ListSR.txt"
komplekt b = fso. CreateTextFile (fName, true)
b. Kirjutage fLine
b.writeline string (52"-")
b.kirjuta tühjad read 1
strComputer="."
Set dtmInstallDate = CreateObject( _
"WbemScripting. SWbemDateTime")
Määra objWMI = GetObject(_
"winmgmts:\\" & strComputer & "\root\cimv2")
Määra objOS = objWMI.ExecQuery(_
"Valige * Win32_OperatingSystem'ist")
Määra objWMI = getobject(_
"winmgmts:\\" & strComputer & "\root\default"). InstancesOf ("süsteemitaaste")
Iga clsPoint jaoks objWMI-s
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.kirjuta tühjad read 1
Edasi
funktsioon getmytime (wmitime)
dtmInstallDate. Väärtus = wmitime
getmytime = dtmInstallDate. GetVarDate
lõppfunktsioon
b.sulgeda
Kest. Käivitage "notepad.exe" & fName, 1,True
Määra fso = mitte midagi
set shell = mitte midagi