Hallo!
Ich habe folgendes Skript, welches aus dem Rechner die Freien Megabytes pro Festplatte ausliest und in eine CSV abspeichert:
DestFile = workdir & „disk-space-“ & Day(CurrentDate) & „-“ & Month(CurrentDate) & „-“ & Year(CurrentDate) & „.csv“
Const ForAppending = 8
Const ForWriting = 2
Dim fso, LF
Set fso = CreateObject(„Scripting.FileSystemObject“)
Set DF = fso.OpenTextFile(DestFile, ForWriting, True)
DF.WriteLine(„Drive_Name;Free_Space“)
'On Error Resume Next
strComputer = „w01edv55“
Set objWMIService = GetObject(„winmgmts:“ _
& „{impersonationLevel=impersonate}!\“ & strComputer & „\root\cimv2“)
Set colDiskDrives = objWMIService.ExecQuery _
("Select * from Win32_PerfFormattedData_PerfDisk_LogicalDisk Where " _
& „Name ‚_Total‘“)
For Each objDiskDrive in colDiskDrives
DF.WriteLine objDiskDrive.Name & „;“ & objDiskDrive.FreeMegabytes
Next
Nun hätte ich noch gerne den Ausdruck objDiskDrive.Size, welcher mir die Gesamtgröße der Platte ausgibt. Problem an der Sache ist, daß dies nicht in Win32_PerfFormattedData_PerfDisk_LogicalDisk existiert, sondern in Win32_DiskDrive. Also müsste ich das so in etwa machen:
Set colDiskDrives2 = objWMIService.ExecQuery _
(„Select * from Win32_DiskDrive“)
Problem ist nur, wie kriege ich das nun in meine CSV? Ich kanns ja nicht in meine FOR-Schleife mit rein nehmen, oder?
Wäre nett wenn Ihr mir mal auf die Sprünge helfen könntet…
MFG
Der Eisenmann