Свакодневно евидентирајте доступну количину слободног простора на диску у датотеку

Увод

Следећи ВБСцрипт ће евидентирати слободан простор на хард диску (консолидовани) информације у датотеку евиденције. Можете да конфигуришете ову скрипту да се покреће из Виндовс-а. Покретање или још боље, коришћење заказаног задатка, да га покрећете на дневној бази. Тхе. информације ће бити ускладиштене у датотеци под називом ФрееСпаце.ткт на радној површини. Можете. промените путању у складу са тим ако желите.

Ево скрипте

'ФрееСпацеИнфо.вбс. - 02.09.2005
'Аутор: Рамесх Сринивасан
'Веб сајт: https://www.winhelponline.com/xp
„Записује информације о слободном простору на чврстом диску у датотеку.
„Може се покренути као заказани задатак или поставити у фолдер за покретање.

Опција Експлицитна
Дим иСпц, стрЦомпутер, објВМИСервице
Дим фсо, фсХандле, МиСхелл, ЛогФилеНаме, цолИтемс, објИтем
Поставите МиСхелл = ЦреатеОбјецт("Всцрипт. Шкољка")
Поставите фсо = Всцрипт. ЦреатеОбјецт("Скриптирање. ФилесистемОбјецт")
ЛогФилеНаме= МиСхелл. СпециалФолдерс("Десктоп") & "\ФрееСпаце.ткт"

постави фсХандле = фсо. ОпенТектФиле (ЛогФилеНаме, 8, Тачно)

стрЦомпутер = "."
Поставите објВМИСервице = ГетОбјецт _
( "винмгмтс:\\" & стрЦомпутер & "\роот\цимв2")
Поставите цолИтемс = објВМИСервице. ЕкецКуери _
(„Изабери * са Вин32_ЛогицалДиск где је ДривеТипе = 3“)

За сваки предмет у цолИтем
„Преузмите слободан простор и конвертујте из уинт64
иСпц = цДбл (иСпц) + цДбл (објИтем. Слободан простор)
Следећи

иСпц= иСпц/1024
иСпц= иСпц/1024
иСпц= иСпц/1024
иСпц= ФорматБрој (иСпц, 1)

„Да бисте снимили датум и време, користите функцију „Сада“. уместо "Датум"
фсХандле. Напишите датум & " -- " & иСпц & " ГБ Слободни простор"
фсХандле. Писање празних линија 1
фсХандле.цлосе
сет МиСхелл = Ништа
сет фсо = Ништа

Копирајте горње редове у Нотепад и сачувајте датотеку као „ФрееСпацеИнфо.вбс“ (са. цитати). Затим можете поставити ову скрипту у Виндовс стартуп фолдер или конфигурисати. скрипту која се покреће помоћу Планера задатака на дневној бази.

Да бисте ухватили информације о слободном простору за сваки диск, а не а. консолидовани број, користите ову скрипту:

'ФрееСпацеИнфо2.вбс - 3. септембар 2005
'Аутор: Рамесх Сринивасан
'Веб сајт: https://www.winhelponline.com/xp
„Записује информације о слободном простору на чврстом диску у датотеку евиденције.
„Може се покренути као заказани задатак или поставити у фолдер за покретање.

фсХандле. Врителине Дате
фсХандле. Писање празних линија 1
стрЦомпутер = "."
Поставите објВМИСервице = ГетОбјецт _
( "винмгмтс:\\" & стрЦомпутер & "\роот\цимв2")
Поставите цолИтемс = објВМИСервице. ЕкецКуери _
(„Изабери * са Вин32_ЛогицалДиск где је ДривеТипе = 3“)

За сваки предмет у цолИтем
„Преузмите слободан простор и конвертујте из уинт64
иСпц = цДбл (објИтем. Слободан простор)
фсХандле. Врителине објИтем. ИД уређаја & " - " _
& ФорматиСпц (иСпц) & " ГБ бесплатно"
Следећи

Функција ФорматиСпц (интСпаце)
интСпаце = интСпаце/1024
интСпаце = интСпаце/1024
интСпаце = интСпаце/1024
интСпаце= ФорматНумбер (интСпаце, 1)
ФорматиСпц = интСпаце
крајња функција

фсХандле. Врите бланклинес 2
фсХандле.цлосе
сет МиСхелл = Ништа
сет фсо = Ништа