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
Please also mark the comments that contributed to the solution of the article
Content-Key: 23845
Url: https://administrator.de/contentid/23845
Printed on: April 18, 2024 at 09:04 o'clock
2 Comments
Latest comment
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