[C++][VBS] WMI - sprawdzanie partycji na dysku twardym

strComputer = "."
intLiczba = 0

Set oWMI = GetObject( "winmgmts:\\" & strComputer & "\root\CIMV2" )

Set colDisk = oWMI.ExecQuery( _
"SELECT * FROM Win32_DiskDrive" )

Set colVolume = oWMI.ExecQuery( _
"SELECT * FROM Win32_Volume" )

For Each oVolume in colVolume
WScript.Echo oVolume.DriveLetter & "      " & oVolume.DeviceID
Next

WScript.Echo
WScript.Echo

For Each oDisk in colDisk
Dim str
str = oDisk.SerialNumber

Set objRegEx = New RegExp
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = " "
str = objRegEx.Replace( str, "" )

intLiczba = intLiczba + 1
WScript.Echo "---------------- Dysk Numer : " & intLiczba & " ----------------"
WScript.Echo oDisk.Caption
WScript.Echo str
WScript.Echo "Liczba partycji : " & oDisk.Partitions
Next