Ежедневно записывать в файл доступный объем свободного дискового пространства.

Введение

Следующий сценарий VBScript регистрирует свободное место на жестком диске (консолидировано). информацию в файл журнала. Вы можете настроить этот сценарий для запуска из Windows. Запуск или, что еще лучше, с помощью запланированного задания, чтобы запускать его на ежедневной основе. Файл. информация будет храниться в файле с именем FreeSpace.txt на рабочем столе. Ты сможешь. измените путь соответствующим образом, если хотите.

Вот сценарий

'FreeSpaceInfo.vbs. - 2 сентября 2005 г.
Автор: Рамеш Сринивасан
'Веб-сайт: https://www.winhelponline.com/xp
'Записывает информацию о свободном пространстве на жестком диске в файл.
'Может быть запущен как запланированная задача или помещен в папку автозагрузки.

LogFileName = MyShell. SpecialFolders ("Рабочий стол") и "\ FreeSpace.txt"
установите fsHandle = fso. OpenTextFile (ИмяФайла Журнала, 8, Истина)

strComputer = "."
Установите objWMIService = GetObject _
("winmgmts: \\" & strComputer & "\ root \ cimv2")
Установите colItems = objWMIService. ExecQuery _
("Выберите * из Win32_LogicalDisk, где DriveType = 3")

Для каждого объекта в colItems
'Получить свободное место и конвертировать из uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Свободное место)
Следующий

iSpc = iSpc / 1024
iSpc = iSpc / 1024
iSpc = iSpc / 1024
iSpc = FormatNumber (iSpc, 1)

'Чтобы зафиксировать дату и время, используйте функцию «Сейчас». вместо "Дата"
fsHandle. Writeline Date & "-" & iSpc & "ГБ свободного места"
fsHandle. Writeblanklines 1
fsHandle.close
установить MyShell = Nothing
установить fso = ничего

Скопируйте приведенные выше строки в Блокнот и сохраните файл как «FreeSpaceInfo.vbs» (с расширением. цитаты). Затем вы можете поместить этот сценарий в папку автозагрузки Windows или настроить. сценарий для ежедневного запуска с помощью планировщика заданий.

Чтобы записать информацию о свободном пространстве для каждого диска, а не для файла. сводную цифру, используйте этот скрипт:

FreeSpaceInfo2.vbs - 3 сентября 2005 г.
Автор: Рамеш Сринивасан
'Веб-сайт: https://www.winhelponline.com/xp
'Записывает информацию о свободном пространстве на жестком диске в файл журнала.
'Может быть запущен как запланированная задача или помещен в папку автозагрузки.

Вариант Явный
Тусклый iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Установите MyShell = CreateObject ("Wscript. Оболочка")
Установите fso = Wscript. CreateObject ("Скриптинг. FilesystemObject ")
LogFileName = MyShell. SpecialFolders ("Рабочий стол") и "\ FreeSpace.txt"
установите fsHandle = fso. OpenTextFile (ИмяФайла Журнала, 8, Истина)

fsHandle. Writeline Дата
fsHandle. Writeblanklines 1
strComputer = "."
Установите objWMIService = GetObject _
("winmgmts: \\" & strComputer & "\ root \ cimv2")
Установите colItems = objWMIService. ExecQuery _
("Выберите * из Win32_LogicalDisk, где DriveType = 3")

Для каждого объекта в colItems
'Получить свободное место и конвертировать из uint64
iSpc = cDbl (объект. Свободное место)
fsHandle. Writeline objItem. Идентификатор устройства & " - " _
& FormatiSpc (iSpc) & "ГБ бесплатно"
Следующий

Функция FormatiSpc (intSpace)
intSpace = intSpace / 1024
intSpace = intSpace / 1024
intSpace = intSpace / 1024
intSpace = FormatNumber (intSpace, 1)
FormatiSpc = intSpace
конечная функция

fsHandle. Writeblanklines 2
fsHandle.close
установить MyShell = Nothing
установить fso = ничего