COM Server kann per VBScript nicht benützt werden

[schwa226]

Hi,

ich habe ein kleines Testprogramm geschrieben, dass z.B. die Methode:

Delphi-Quellcode:

function TTest1.Add(zahl1, zahl2: Integer): Integer;
begin

Result := zahl1 + zahl2;

end;

hat.

Nun möchte ich per VBScript diesen COM Server mit der Funktion Add benutzen. Jedoch klappt das überhaupt nicht!

VBScript:

Code:

Option Explicit

Dim ComObj
Dim Ergebnis


Err.Clear: Set ComObj= GetObject(, "Project1.Test1")


If Err.Number = 424 Or Err.Number = 429 Then

Set ComObj = CreateObject("Project1.Test1")

End If

Ergebnis = ComObj.Add(4,4)

Weis nicht mehr weiter warum das nicht funktioniert!

Kann da jemand helfen!?