I am trying to run a vb exe on win98 client which is accessing a com+ components through MSI. The com+ component is installed on win2000 server and the msi is prepared by exporting the Application Proxy. I have also installed DCOM98 and MDAC 2.7 on the win98 machine. While accessing the exe it throws the error 429 "ActiveX cannot create Object". The error is thrown while the exe is trying to access the ObjectContext used in the dll.
The following is the sample code used by the ActiveX dll.
/**********************************************************/
Public Function General_Test_Method() As String
On Error GoTo errhandler
Dim ctxObject As ObjectContext
Set ctxObject = GetObjectContext()
General_Test_Method = "String from General_Test_Method"
ctxObject.SetComplete
Exit Function
errhandler:
ctxObject.SetAbort
Err.Raise vbObjectError, "MTSTest.clsTest.General_Test_Method", _
Err.Description
Exit Function
End Function
/**********************************************************/
The following is the vb application code used to access this method
/**********************************************************/
Private Sub Command1_Click()
On Error GoTo ErrorHandler
Dim obj As Object
Set obj = CreateObject("ComPlusTest.clsTest"
MsgBox obj.General_Test_Method
Set obj = Nothing
Exit Sub
ErrorHandler:
Set obj = Nothing
MsgBox Err.Description & ". The code failed at line : " & Erl, vbCritical
End Sub
/**********************************************************/
The above codes are copied from the Microsoft site and the instructions are strictly followed. Still the same error is occuring. The url for the above code is
Please Help me to find the solution of this problem.
The following is the sample code used by the ActiveX dll.
/**********************************************************/
Public Function General_Test_Method() As String
On Error GoTo errhandler
Dim ctxObject As ObjectContext
Set ctxObject = GetObjectContext()
General_Test_Method = "String from General_Test_Method"
ctxObject.SetComplete
Exit Function
errhandler:
ctxObject.SetAbort
Err.Raise vbObjectError, "MTSTest.clsTest.General_Test_Method", _
Err.Description
Exit Function
End Function
/**********************************************************/
The following is the vb application code used to access this method
/**********************************************************/
Private Sub Command1_Click()
On Error GoTo ErrorHandler
Dim obj As Object
Set obj = CreateObject("ComPlusTest.clsTest"
MsgBox obj.General_Test_Method
Set obj = Nothing
Exit Sub
ErrorHandler:
Set obj = Nothing
MsgBox Err.Description & ". The code failed at line : " & Erl, vbCritical
End Sub
/**********************************************************/
The above codes are copied from the Microsoft site and the instructions are strictly followed. Still the same error is occuring. The url for the above code is
Please Help me to find the solution of this problem.