Denně protokolujte dostupné množství volného místa na disku do souboru
Úvod
Následující VBScript zaznamená volné místo na pevném disku (konsolidované) informace do souboru protokolu. Tento skript můžete nakonfigurovat tak, aby se spouštěl ze systému Windows. Spuštění nebo ještě lépe pomocí naplánované úlohy k jejímu každodennímu spouštění. The. informace budou uloženy v souboru s názvem FreeSpace.txt na ploše. Můžeš. pokud chcete, změňte odpovídajícím způsobem cestu.
Zde je skript
'FreeSpaceInfo.vbs. - 2. září 2005
'Autor: Ramesh Srinivasan
'Webová stránka: https://www.winhelponline.com/xp
'Přihlásí informace o volném místě na pevném disku do souboru.
„Lze spustit jako naplánovanou úlohu nebo umístit do složky Po spuštění.
Možnost Explicitní
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Set MyShell = CreateObject("Wscript. Shell")
Nastavit fso = Wscript. CreateObject("Skriptování. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
set fsHandle = fso. OpenTextFile (LogFileName, 8, True)
strComputer = "."
Nastavit objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Nastavte colItems = objWMIService. ExecQuery _
("Vyberte * z Win32_LogicalDisk, kde DriveType = 3")
Pro každý objekt objItem v colItems
'Načíst volné místo a převést z uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Volný prostor)
další
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormatNumber (iSpc, 1)
'Chcete-li zachytit datum a čas, použijte funkci "Nyní". místo "Datum"
fsHandle. Writeline Date & " -- " & iSpc & " GB volného místa"
fsHandle. Napište prázdné řádky 1
fsHandle.close
nastavit MyShell = Nic
set fso = nic
Zkopírujte výše uvedené řádky do poznámkového bloku a uložte soubor jako „FreeSpaceInfo.vbs“ (s. citáty). Tento skript pak můžete umístit do složky Po spuštění systému Windows nebo nakonfigurovat. skript, který se má denně spouštět pomocí Plánovače úloh.
Chcete-li zachytit informace o volném místě pro každou jednotku, spíše než a. konsolidovaný obrázek, použijte tento skript:
'FreeSpaceInfo2.vbs – 3. září 2005
'Autor: Ramesh Srinivasan
'Webová stránka: https://www.winhelponline.com/xp
'Zaznamenává informace o volném místě na pevném disku do souboru protokolu.
„Lze spustit jako naplánovanou úlohu nebo umístit do složky Po spuštění.
Možnost Explicitní
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Set MyShell = CreateObject("Wscript. Shell")
Nastavit fso = Wscript. CreateObject("Skriptování. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
set fsHandle = fso. OpenTextFile (LogFileName, 8, True)
fsHandle. Datum zápisu řádku
fsHandle. Napište prázdné řádky 1
strComputer = "."
Nastavit objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Nastavte colItems = objWMIService. ExecQuery _
("Vyberte * z Win32_LogicalDisk, kde DriveType = 3")
Pro každý objekt objItem v colItems
'Načíst volné místo a převést z uint64
iSpc = cDbl (objItem. Volný prostor)
fsHandle. Writeline objItem. ID zařízení & " - " _
& FormatiSpc (iSpc) & "GB zdarma"
další
Funkce FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
koncová funkce
fsHandle. Napište prázdné řádky 2
fsHandle.close
nastavit MyShell = Nic
set fso = nic