VB6 WMI Daten löschen - Speicher läuft voll

[kein_guter_nic_mehr_frei (Gast)]

Hallo,

ich hole mir über die WMI ein paar Systemdaten die von Everest 
geschrieben werden. Da dieses Programm manchmal etwas 'schusselt' lösche 
ich die Daten vor dem Auslesen. Dabei läuft mein Speicher voll. Beim 
Takt von einer Sekunde kommen in 1,5min ca. 1MB zusammen.

Hier mein 'Konstrukt', aber nicht lachen, ich bin Anfänger.

Public Function getWert(ByVal Name As String) As Integer
    Dim objSensor As Object
    getWert = 0
    On Error GoTo ende
    Set objSensor = GetObject("winmgmts:\\.\Root\WMI").Get( _
      "EVEREST_SensorValues.ID='" & Name & "'")
    getWert = objSensor.Value
    objSensor.Delete_
ende:
End Function

Wenn ich das Löschen rausnehme ist alles fein. Leider stehen nach dem 
Beenden von Everest die Werte immer noch in der WMI. 'objSensor = 
Nothing' bringt auch nichts.

Wie kann ich mir denn in VB6 die Speichergrösse einer Variablen zur 
Laufzeit anzeigen lassen?

Bin für jeden Tip dankbar
schönen Sonntag noch
bernd

[Z8 (Gast)]

Hallo Bernd! :)

nimm mal "On Error GoTo ende" und sagmal was zur Fehlernummer,
wenn Du einen gültigen Namen verwendest!
Ich möchte wetten das die Zeile "objSensor.Delete_" einen Error erzeugt.

[Sven P. (Gast)]

kein_guter_nic_mehr_frei wrote:
> 'objSensor = Nothing' bringt auch nichts.
Probiers  mal mit 'SET objSensor = Nothing'. Den Sinn hinter 'Set' hab 
ich aber auch bis heute nicht gefunden.

[Z8 (Gast)]

... hat auch keinen! Nachdem die Sub verlassen wurde, ist das Objekt
    ungültig -> nicht mehr existent, da es lokal definiert wurde.