Log dagelijks de beschikbare hoeveelheid vrije schijfruimte in een bestand
Invoering
Het volgende VBScript registreert de vrije ruimte op de harde schijf (geconsolideerd) informatie naar een logbestand. U kunt dit script configureren om vanuit Windows te worden uitgevoerd. Opstarten of nog beter, met Scheduled Task, om het dagelijks uit te voeren. De. informatie wordt opgeslagen in een bestand met de naam FreeSpace.txt op het bureaublad. Jij kan. verander het pad dienovereenkomstig als u dat wilt.
Hier is het script
'FreeSpaceInfo.vbs. - 2 september 2005
'Auteur: Ramesh Srinivasan
'Website: https://www.winhelponline.com/xp
'Logt de vrije ruimte op de harde schijf in een bestand.
'Kan worden uitgevoerd als een geplande taak of in de opstartmap worden geplaatst.
Optie expliciet
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Stel MyShell = CreateObject("Wscript. Schelp")
Stel fso = Wscript in. CreateObject("Scripting. BestandssysteemObject")
LogFileName= Mijn shell. SpecialFolders("Desktop") & "\FreeSpace.txt"
stel fsHandle = fso in. OpenTextFile (LogFileName, 8, True)
strComputer = "."
Stel objWMIService = GetObject _ in
( "winmgmts:\\" & strComputer & "\root\cimv2")
Stel colItems = objWMIService in. ExecQuery _
("Selecteer * Van Win32_LogicalDisk Where DriveType = 3")
Voor elk object in colItems
'Haal vrije ruimte op en converteer van uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Vrije ruimte)
Volgende
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormaatNummer (iSpc, 1)
'Gebruik de functie 'Nu' om de datum en tijd vast te leggen. in plaats van "Datum"
fsHandvat. Schrijfregel Datum & " -- " & iSpc & " GB Vrije ruimte"
fsHandvat. Schrijf blanke regels 1
fsHandle.close
stel MyShell = Niets in
stel fso = Niets in
Kopieer de bovenstaande regels naar Kladblok en sla het bestand op als "FreeSpaceInfo.vbs" (met. citaten). U kunt dit script vervolgens in de opstartmap van Windows plaatsen of configureren. het script dat dagelijks moet worden uitgevoerd met Taakplanner.
Om de vrije ruimte-informatie voor elke schijf vast te leggen, in plaats van a. geconsolideerde figuur, gebruik dit script:
'FreeSpaceInfo2.vbs - 3 september 2005'
'Auteur: Ramesh Srinivasan
'Website: https://www.winhelponline.com/xp
'Slaat de informatie over de vrije ruimte op de harde schijf op in een logbestand.
'Kan worden uitgevoerd als een geplande taak of in de opstartmap worden geplaatst.
Optie expliciet
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Stel MyShell = CreateObject("Wscript. Schelp")
Stel fso = Wscript in. CreateObject("Scripting. BestandssysteemObject")
LogFileName= Mijn shell. SpecialFolders("Desktop") & "\FreeSpace.txt"
stel fsHandle = fso in. OpenTextFile (LogFileName, 8, True)
fsHandvat. Schrijfregel Datum
fsHandvat. Schrijf blanke regels 1
strComputer = "."
Stel objWMIService = GetObject _ in
( "winmgmts:\\" & strComputer & "\root\cimv2")
Stel colItems = objWMIService in. ExecQuery _
("Selecteer * Van Win32_LogicalDisk Where DriveType = 3")
Voor elk object in colItems
'Haal vrije ruimte op en converteer van uint64
iSpc = cDbl (objItem. Vrije ruimte)
fsHandvat. Schrijflijn object. Apparaat ID & " - " _
& FormatiSpc (iSpc) & "GB gratis"
Volgende
Functie FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
einde functie
fsHandvat. Schrijf blanke regels 2
fsHandle.close
stel MyShell = Niets in
stel fso = Niets in