COM Server kann per VBScript nicht benützt werden

[schwa226]

Habe nun noch folgendes Problem:

Wenn das Script aufrufe:

Code:

Dim Obj
Dim Ergebnis

If IsRunning Then

   Set Obj = CreateObject("Project1.Test2")
   
   Ergebnis = Obj.Add(3, 4)
            
End If

Function IsRunning
   
   On Error Resume Next

    Err.Clear: Set ComObj = GetObject(, "Project1.Test2")
    
   
    If Err.Number = 424 Or Err.Number = 429 Then
        IsRunning= False
    Else
        IsRunning=True
    End If
   

End Function

Dann funktioniert es genau ein mal! Beim zweiten mal Ist die Err.Number nicht mehr 0 und das Script wird beendet.
Stoppe ich nun meine Project1.exe und starte sie wieder neu geht es wieder ein mal.

Habe ich da in der COM Definition noch was falsch das das Script nur ein mal ein Object zuweisen kann?