获取硬盘中的分区数[VBS]

strComputer = "."
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Security)}!\\" & strComputer & "\root\cimv2")
Set colDiskDrives = objWMI.ExecQuery("Select * from Win32_LogicalDisk")
LocalDiskNum = 0
CDRomNum = 0
For Each Disk In colDiskDrives
        IF Disk.DriveType = 3 Then
                LocalDiskNum = LocalDiskNum + 1
        End IF
        IF Disk.DriveType = 5 Then
                CDRomNum = CDRomNum + 1
        End IF        
Next
Wscript.Echo "硬盘分区数: " & LocalDiskNum
Wscript.Echo "光驱数: " & CDRomNum