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

[keiner]

Dim bli, bla
 bli = 0

For Each objDSKP In objDSKPSet

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

hier ist der fehler!
bla bekommt immer den wert bli, also 0, + 1 zugewiesen, also 1, da sich bli nie ändert in der schleife ändert sich bla auch nicht! also diese zeile einfach durch
bli = bli + 1 ersetzen!
( oder Bla = Bla + 1) je nachdem was du willst!

cu

Next

textstream.writeline bla

[Marco Eder]

Salü

Dass mir das selber nicht aufgefallen ist?!? klingt sehr logisch :-)
Vielen Dank

Gruss Marco