Denne zaznamenávajte dostupné množstvo voľného miesta na disku do súboru

Úvod

Nasledujúci VBScript zaznamená voľné miesto na pevnom disku (konsolidované) informácie do súboru denníka. Tento skript môžete nakonfigurovať na spustenie zo systému Windows. Spustenie alebo ešte lepšie pomocou naplánovanej úlohy na každodenné spustenie. The. informácie budú uložené v súbore s názvom FreeSpace.txt na ploche. Môžeš. ak chcete, zmeňte podľa toho cestu.

Tu je Skript

'FreeSpaceInfo.vbs. - 2. septembra 2005
'Autor: Ramesh Srinivasan
'Webová stránka: https://www.winhelponline.com/xp
'Zaznamená informácie o voľnom mieste na pevnom disku do súboru.
„Môže sa spustiť ako naplánovaná úloha alebo umiestniť do priečinka Po spustení.

Možnosť Explicitná
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Set MyShell = CreateObject("Wscript. Shell")
Nastavte fso = Wscript. CreateObject("Skriptovanie. Filesystem Object")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
nastaviť fsHandle = fso. OpenTextFile (LogFileName, 8, True)

strComputer = "."
Nastaviť objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Nastavte colItems = objWMIService. ExecQuery _
("Vyberte * z Win32_LogicalDisk, kde DriveType = 3")

Pre každú položku objItem v colItems
'Načítať voľné miesto a previesť z uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Voľné miesto)
Ďalšie

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

„Ak chcete zachytiť dátum a čas, použite funkciu „Teraz“. namiesto "dátum"
fsHandle. Writeline Date & " -- " & iSpc & " GB voľného miesta"
fsHandle. Napíšte prázdne riadky 1
fsHandle.close
nastaviť MyShell = Nič
set fso = Nič

Skopírujte vyššie uvedené riadky do programu Poznámkový blok a uložte súbor ako „FreeSpaceInfo.vbs“ (s. citácie). Potom môžete tento skript umiestniť do priečinka Po spustení systému Windows alebo ho nakonfigurovať. skript, ktorý sa má spúšťať pomocou Plánovača úloh na dennej báze.

Na zachytenie informácií o voľnom mieste pre každú jednotku namiesto a. konsolidovaný údaj, použite tento skript:

'FreeSpaceInfo2.vbs - 3. septembra 2005
'Autor: Ramesh Srinivasan
'Webová stránka: https://www.winhelponline.com/xp
'Zaznamená informácie o voľnom mieste na pevnom disku do súboru denníka.
„Môže sa spustiť ako naplánovaná úloha alebo umiestniť do priečinka Po spustení.

fsHandle. Dátum zapísania riadku
fsHandle. Napíšte prázdne riadky 1
strComputer = "."
Nastaviť objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Nastavte colItems = objWMIService. ExecQuery _
("Vyberte * z Win32_LogicalDisk, kde DriveType = 3")

Pre každú položku objItem v colItems
'Načítať voľné miesto a previesť z uint64
iSpc = cDbl (objItem. Voľné miesto)
fsHandle. Writeline objItem. DeviceID & " - " _
& FormatSpc (iSpc) & "GB zadarmo"
Ďalšie

Funkcia FormatSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatSpc = intSpace
koncová funkcia

fsHandle. Napíšte prázdne riadky 2
fsHandle.close
nastaviť MyShell = Nič
set fso = Nič