Овај једноставан ВБСцрипт наводи све тачке за враћање система доступне на вашем рачунару, са описом, креирањем. време и редни број.
Да бисте покренули скрипту, копирајте следеће редове у документ Нотепад и сачувајте их као датотеку. са екстензијом .ВБС (користите двоструке наводнике) и двапут кликните на датотеку.
' Штампа листу за враћање система. указује на текстуалну датотеку
' 2005 Рамесх Сринивасан - https://www.winhelponline.com/xp
' Последњи пут ажурирано: 20. августа 2005
' Правилно форматира датум/време
'
Опција Експлицитна
Дим фсо, б, објВМИ, цлсПоинт, стрЦомпутер, схелл
Дим фЛине, дтмИнсталлДате, објОС, фНаме
фЛине = "Листа тачака за враћање система пронађених на овом рачунару"
Сет схелл = ЦреатеОбјецт("Всцрипт. Шкољка")
Поставите фсо = Всцрипт. ЦреатеОбјецт("Скриптирање. ФилесистемОбјецт")
фНаме = Схелл. СпециалФолдерс("Десктоп")
фНаме = фНаме & "\ЛистСР.ткт"
скуп б = фсо. ЦреатеТектФиле (фНаме, труе)
б. Врителине фЛине
б.врителине стринг (52,"-")
б.вритебланклинес 1
стрЦомпутер="."
Подесите дтмИнсталлДате = ЦреатеОбјецт( _
„ВбемСцриптинг. СВбемДатеТиме")
Поставите објВМИ = ГетОбјецт( _
"винмгмтс:\\" & стрЦомпутер & "\роот\цимв2")
Подесите објОС = објВМИ.ЕкецКуери( _
„Изабери * из Вин32_ОператингСистем“)
Поставите објВМИ = гетобјецт( _
"винмгмтс:\\" & стрЦомпутер & "\роот\дефаулт").ИнстанцесОф ("опоравак система")
За сваку цлсПоинт у објВМИ
б.врителине "Цреатион Тиме= " & гетмитиме (цлсПоинт.цреатионтиме)
б.врителине "Десцриптион= " & цлсПоинт.десцриптион
б.врителине "Секуенце Нумбер= " & цлсПоинт.секуенценумбер
б.вритебланклинес 1
Следећи
функција гетмитиме (вмитиме)
дтмИнсталлДате. Вредност = вмитиме
гетмитиме = дтмИнсталлДате. ГетВарДате
крајња функција
б.цлосе
Шкољка. Покрените "нотепад.еке" & фНаме, 1, Тачно
Поставите фсо = Ништа
сет схелл = Ништа