Щодня реєструйте доступний обсяг вільного місця на диску у файл

Вступ

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

Ось сценарій

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

Явний варіант
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Встановіть MyShell = CreateObject("Wscript. оболонка")
Встановіть fso = Wscript. CreateObject("Сценарії. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
встановити fsHandle = fso. OpenTextFile (logFileName, 8, True)

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

Для кожного objItem в colItems
'Отримати вільне місце та конвертувати з uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Вільний простір)
Далі

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

«Щоб зафіксувати дату та час, використовуйте функцію «Зараз». замість "Дата"
fsHandle. Writeline Date & " -- " & iSpc & " GB Вільне місце"
fsHandle. Напишіть пусті рядки 1
fsHandle.close
встановити MyShell = Нічого
встановити fso = Нічого

Скопіюйте наведені вище рядки в Блокнот і збережіть файл як "FreeSpaceInfo.vbs" (з. цитати). Потім ви можете розмістити цей сценарій до папки запуску Windows або налаштувати. сценарій для щоденного виконання за допомогою Планувальника завдань.

Щоб отримати інформацію про вільний простір для кожного диска, а не a. зведена цифра, скористайтеся цим сценарієм:

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

fsHandle. Напишіть дату
fsHandle. Напишіть пусті рядки 1
strComputer = "."
Встановіть objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Встановіть colItems = objWMIService. ExecQuery _
(«Виберіть * з Win32_LogicalDisk, де DriveType = 3»)

Для кожного objItem в colItems
'Отримати вільне місце та конвертувати з uint64
iSpc = cDbl (objItem. Вільний простір)
fsHandle. Writeline objItem. Ідентифікатор пристрою та " - " _
& FormatiSpc (iSpc) & "GB free"
Далі

Функція FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
кінцева функція

fsHandle. Напишіть пусті рядки 2
fsHandle.close
встановити MyShell = Нічого
встановити fso = Нічого