Schleife in VBS

[Marco Eder]

Hallo

Wieder mal ein vbs Problem... Es geht eigentlich nur um eine Schlaufe, die zählen soll, wieviele Partitionen vorhanden sind. Eigentlich wäre das ja keine Sache, aber irgendwie will es nicht funktionieren. Hier mal der Code:

'PartitionInforamtionen
    strWBEMClass = "Win32_DiskPartition"

Set objDSKPSet = objService.InstancesOf(strWBEMClass)
        If blnErrorOccurred("Could not obtain " & strWBEMClass & _
            " instance.") Then
        Exit Sub
    End If

If objDSKPSet.Count = 0 Then
        textstream.writeline "Die Partitions Informationen sind nicht verfügbar"
        Exit Sub
    End If

Dim bli, bla
 bli = 0

For Each objDSKP In objDSKPSet

'----
     textstream.writeline objDSKP.Name
        textstream.writeline ""
     '----
     Bla = bli + 1

Next

textstream.writeline bla

Die Namen werden angezeigt, aber die Anzahl der Partitionen stimmt nicht... Kann mir jemand helfen?

Danke und Gruss
Marco