Festplattenkapazität mittels Script auslesen
Hallo zusammen,
hat jemand eine Idee wie man über ein Script folgende Informationen von den Partitionen einer HDD in eine txt-File schreiben kann:
Partition C:
100GB Insgesamt
24GB Frei
Partition D:
60GB Insgesamt
30GB Frei
Würde notfalls auch reichen wenn nur Frei in der Datei erscheint.
Muss aber über Script gehen, weil die File täglich erstellt werden muss.
Danke im Voraus
Peter
hat jemand eine Idee wie man über ein Script folgende Informationen von den Partitionen einer HDD in eine txt-File schreiben kann:
Partition C:
100GB Insgesamt
24GB Frei
Partition D:
60GB Insgesamt
30GB Frei
Würde notfalls auch reichen wenn nur Frei in der Datei erscheint.
Muss aber über Script gehen, weil die File täglich erstellt werden muss.
Danke im Voraus
Peter
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 23845
Url: https://administrator.de/contentid/23845
Ausgedruckt am: 22.11.2024 um 10:11 Uhr
2 Kommentare
Neuester Kommentar
hi schaumal könnte dir weiter helfen:
ziegt dir information über den mom. stand deiner platte an.
Set objfs = CreateObject("Scripting.FileSystemObject")
Set Drive = objfs.GetDrive("D:\")
FreierSpeicherInsgesammt = Drive.FreeSpace
DateiSystem = Drive.FileSystem
Speicherkapazitaet = Drive.TotalSize
info = "Auf D:\ frei: " & FormatNumber(FreierSpeicherInsgesammt/1024^2,2) & " MB" & vbcrlf
info = info & "Dateisystem von D:\ ist: " & DateiSystem & vbcrlf
info = info & "Speicherkapazität von D:\: " & FormatNumber(Speicherkapazitaet/1024^2,2)
msgbox info, vbinformation, "Demirel Backup"
End if
hatte ich mal geschrieben für ein kopiervorgang.
kollegiale grüße
ziegt dir information über den mom. stand deiner platte an.
Set objfs = CreateObject("Scripting.FileSystemObject")
Set Drive = objfs.GetDrive("D:\")
FreierSpeicherInsgesammt = Drive.FreeSpace
DateiSystem = Drive.FileSystem
Speicherkapazitaet = Drive.TotalSize
info = "Auf D:\ frei: " & FormatNumber(FreierSpeicherInsgesammt/1024^2,2) & " MB" & vbcrlf
info = info & "Dateisystem von D:\ ist: " & DateiSystem & vbcrlf
info = info & "Speicherkapazität von D:\: " & FormatNumber(Speicherkapazitaet/1024^2,2)
msgbox info, vbinformation, "Demirel Backup"
End if
hatte ich mal geschrieben für ein kopiervorgang.
kollegiale grüße