Log den tilgængelige mængde ledig diskplads til en fil på daglig basis

Introduktion

Følgende VBScript vil logge den ledige harddiskplads (konsolideret) oplysninger til en logfil. Du kan konfigurere dette script til at køre fra Windows. Opstart eller endnu bedre, ved hjælp af Planlagt opgave, til at køre det på daglig basis. Det. oplysninger vil blive gemt i en fil med navnet FreeSpace.txt på skrivebordet. Du kan. ændre stien i overensstemmelse hermed, hvis du ønsker det.

Her er scriptet

'FreeSpaceInfo.vbs. - 2. september 2005
'Forfatter: Ramesh Srinivasan
'Internet side: https://www.winhelponline.com/xp
'Logger oplysninger om ledig harddiskplads til en fil.
'Kan køres som en planlagt opgave eller placeres i mappen Startup.

Mulighed Eksplicit
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Indstil MyShell = CreateObject("Wscript. Skal")
Indstil fso = Wscript. CreateObject("Scripting. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
sæt fsHandle = fso. OpenTextFile (LogFileName, 8,True)

strComputer = "."
Indstil objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Indstil colItems = objWMIService. ExecQuery _
("Vælg * Fra Win32_LogicalDisk, hvor DriveType = 3")

For hver genstand i kolli
'Hent ledig plads og konverter fra uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Fri plads)
Næste

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

'For at fange dato og klokkeslæt skal du bruge "Nu"-funktionen. i stedet for "dato"
fsHandtag. Writeline Date & " -- " & iSpc & " GB ledig plads"
fsHandtag. Skriv tomme linjer 1
fsHandle.close
sæt MyShell = Ingenting
sæt fso = Intet

Kopier ovenstående linjer til Notesblok, og gem filen som "FreeSpaceInfo.vbs" (med. citater). Du kan derefter placere dette script i Windows Startup-mappe eller konfigurere. scriptet til at køre ved hjælp af Task Scheduler på daglig basis.

For at fange oplysninger om ledig plads for hvert drev i stedet for en. konsolideret figur, brug dette script:

'FreeSpaceInfo2.vbs - 3. september 2005
'Forfatter: Ramesh Srinivasan
'Internet side: https://www.winhelponline.com/xp
'Logger oplysninger om ledig harddiskplads til en logfil.
'Kan køres som en planlagt opgave eller placeres i mappen Startup.

fsHandtag. Skrivelinjedato
fsHandtag. Skriv tomme linjer 1
strComputer = "."
Indstil objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Indstil colItems = objWMIService. ExecQuery _
("Vælg * Fra Win32_LogicalDisk, hvor DriveType = 3")

For hver genstand i kolli
'Hent ledig plads og konverter fra uint64
iSpc = cDbl (objItem. Fri plads)
fsHandtag. Skrivelinjeobjekt. Enheds-id og " - " _
& FormatiSpc (iSpc) & "GB gratis"
Næste

Funktion FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
afslutte funktion

fsHandtag. Skriv tomme linjer 2
fsHandle.close
sæt MyShell = Ingenting
sæt fso = Intet