Logige iga päev faili saadaolev vaba kettaruumi maht
Sissejuhatus
Järgmine VBScript logib vaba kõvakettaruumi (konsolideeritud) teave logifaili. Saate konfigureerida selle skripti käitama Windowsist. Käivitamine või veelgi parem, kasutades ajastatud ülesannet, et seda igapäevaselt käitada. The. teave salvestatakse töölaual faili nimega FreeSpace.txt. Sa saad. soovi korral muutke rada vastavalt.
Siin on skript
"FreeSpaceInfo.vbs. - 2. september 2005
"Autor: Ramesh Srinivasan
'Veebisait: https://www.winhelponline.com/xp
'Logib vaba kõvakettaruumi teabe faili.
Saab käivitada ajastatud ülesandena või paigutada käivituskausta.
Valik Selgesõnaline
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Set MyShell = CreateObject("Wscript. kest")
Määra fso = Wscript. CreateObject("Skriptimine. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Töölaud") ja "\FreeSpace.txt"
määrake fsHandle = fso. OpenTextFile (logifailinimi, 8, tõene)
strComputer = "."
Määra objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Määra colItems = objWMIService. ExecQuery _
("Valige * alates Win32_LogicalDisk, kus DriveType = 3")
Iga objekti jaoks colItems
'Tooge vaba ruum ja teisendage uint64-st
iSpc = cDbl (iSpc) + cDbl (objItem. Vaba ruum)
Edasi
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormatNumber (iSpc, 1)
'Kuupäeva ja kellaaja jäädvustamiseks kasutage funktsiooni "Nüüd". "Kuupäeva" asemel
fsHandle. Kirjutamise kuupäev & " -- " & iSpc & " GB vaba ruumi"
fsHandle. Kirjutage tühjad read 1
fsHandle.close
set MyShell = Mitte midagi
set fso = Mitte midagi
Kopeerige ülaltoodud read Notepadi ja salvestage fail nimega "FreeSpaceInfo.vbs" (koos. tsitaat). Seejärel võite selle skripti asetada Windowsi käivituskausta või konfigureerida. skript, mida igapäevaselt Task Scheduleri abil käivitada.
Iga draivi vaba ruumi teabe jäädvustamiseks, mitte a. konsolideeritud joonisel, kasutage seda skripti:
'FreeSpaceInfo2.vbs – 3. september 2005
"Autor: Ramesh Srinivasan
'Veebisait: https://www.winhelponline.com/xp
'Logib vaba kõvakettaruumi teabe logifaili.
Saab käivitada ajastatud ülesandena või paigutada käivituskausta.
Valik Selgesõnaline
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Set MyShell = CreateObject("Wscript. kest")
Määra fso = Wscript. CreateObject("Skriptimine. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Töölaud") ja "\FreeSpace.txt"
määrake fsHandle = fso. OpenTextFile (logifailinimi, 8, tõene)
fsHandle. Kirjutage kuupäev
fsHandle. Kirjutage tühjad read 1
strComputer = "."
Määra objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Määra colItems = objWMIService. ExecQuery _
("Valige * alates Win32_LogicalDisk, kus DriveType = 3")
Iga objekti jaoks colItems
'Tooge vaba ruum ja teisendage uint64-st
iSpc = cDbl (objItem. Vaba ruum)
fsHandle. Kirjutage objItem. Seadme ID & " - " _
& FormatiSpc (iSpc) & " GB tasuta"
Edasi
Funktsioon FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
lõppfunktsioon
fsHandle. Kirjutage tühjad read 2
fsHandle.close
set MyShell = Mitte midagi
set fso = Mitte midagi