Регистрирайте наличното свободно дисково пространство във файл всеки ден
Въведение
Следният 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. Напишете дата & " -- " & iSpc & " GB Свободно пространство"
fsHandle. Пишете празни редове 1
fsHandle.close
задайте MyShell = Нищо
задайте fso = нищо
Копирайте горните редове в Notepad и запазете файла като "FreeSpaceInfo.vbs" (с. цитати). След това можете да поставите този скрипт в папката за стартиране на Windows или да конфигурирате. скриптът да се изпълнява с помощта на Task Scheduler на дневна база.
За улавяне на информацията за свободното пространство за всяко устройство, а не a. консолидирана цифра, използвайте този скрипт:
„FreeSpaceInfo2.vbs – 3 септември 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)
fsHandle. Напишете дата на линията
fsHandle. Пишете празни редове 1
strComputer = "."
Задайте objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Задайте colItems = objWMIService. ExecQuery _
("Изберете * от Win32_LogicalDisk, където DriveType = 3")
За всеки objItem в colItems
„Вземете свободно място и конвертирайте от uint64
iSpc = cDbl (objItem. Свободно пространство)
fsHandle. Напишете objItem. DeviceID & " - " _
& 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 = нищо