Protokollieren Sie täglich den verfügbaren freien Speicherplatz in einer Datei
Einführung
Das folgende VBScript protokolliert den freien Festplattenspeicher (konsolidiert) Informationen in eine Protokolldatei. Sie können dieses Skript so konfigurieren, dass es von Windows ausgeführt wird. Starten oder noch besser, mit Geplanter Task, um ihn täglich auszuführen. Der. Informationen werden in einer Datei namens FreeSpace.txt auf dem Desktop gespeichert. Sie können. Ändern Sie den Pfad entsprechend, wenn Sie möchten.
Hier ist das Skript
'FreeSpaceInfo.vbs. - 2. September 2005
'Autor: Ramesh Srinivasan
'Webseite: https://www.winhelponline.com/xp
'Protokolliert die Informationen zum freien Festplattenspeicher in einer Datei.
'Kann als geplante Aufgabe ausgeführt oder im Autostart-Ordner abgelegt werden.
Option explizit
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Set MyShell = CreateObject("Wscript. Hülse")
Setze fso = Wscript. CreateObject("Scripting. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
setze fsHandle = fso. OpenTextFile (LogFileName, 8,True)
strComputer = "."
Set objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Setze colItems = objWMIService. AusführenAbfrage _
("Select * From Win32_LogicalDisk Wo DriveType = 3")
Für jedes objItem in colItems
'Freien Speicherplatz abrufen und von uint64 konvertieren
iSpc = cDbl (iSpc) + cDbl (objItem. Freiraum)
Nächste
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormatNumber (iSpc, 1)
'Um Datum und Uhrzeit zu erfassen, verwenden Sie die Funktion "Jetzt". statt "Datum"
fsHandle. Writeline-Datum & " -- " & iSpc & " GB freier Speicherplatz"
fsHandle. Leerzeilen schreiben 1
fsHandle.close
setze MyShell = Nichts
set fso = Nichts
Kopieren Sie die obigen Zeilen in Notepad und speichern Sie die Datei als "FreeSpaceInfo.vbs" (mit. Zitate). Sie können dieses Skript dann im Windows-Startordner ablegen oder konfigurieren. das Skript, das täglich mit dem Taskplaner ausgeführt werden soll.
Um die Informationen zum freien Speicherplatz für jedes Laufwerk zu erfassen, anstatt a. konsolidierte Abbildung verwenden Sie dieses Skript:
'FreeSpaceInfo2.vbs - 3. September 2005
'Autor: Ramesh Srinivasan
'Webseite: https://www.winhelponline.com/xp
'Protokolliert die Informationen zum freien Festplattenspeicher in einer Protokolldatei.
'Kann als geplante Aufgabe ausgeführt oder im Autostart-Ordner abgelegt werden.
Option explizit
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Set MyShell = CreateObject("Wscript. Hülse")
Setze fso = Wscript. CreateObject("Scripting. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
setze fsHandle = fso. OpenTextFile (LogFileName, 8,True)
fsHandle. Writeline-Datum
fsHandle. Leerzeilen schreiben 1
strComputer = "."
Set objWMIService = GetObject _
( "winmgmts:\\" & strComputer & "\root\cimv2")
Setze colItems = objWMIService. AusführenAbfrage _
("Select * From Win32_LogicalDisk Wo DriveType = 3")
Für jedes objItem in colItems
'Freien Speicherplatz abrufen und von uint64 konvertieren
iSpc = cDbl (objItem. Freiraum)
fsHandle. Writeline-Objekt. Geräte ID & " - " _
& FormatiSpc (iSpc) & "GB frei"
Nächste
Funktion FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
Endfunktion
fsHandle. Leerzeilen schreiben 2
fsHandle.close
setze MyShell = Nichts
set fso = Nichts