Runtime Error '432'

[eeeks]

Hey PPL,

Facing a weird problem

I am using

Set objMetabases = GetObject("IIS://" & ServerName & "/W3SVC")

where ServerName is the name of my IIS server on the network.
but this returns error:

'432' File name or class name not found during Automation operation

Cant understand whats going wrong !

Can anybody help!

Thanks in advance

Eeeks.

[Simon Caiger]

eeeks,
I have the same problem.
Did you ever resolve this one?

[alex_read]

Okay, stupid question to start with, have you set the reference to the "Active DS Type Library" under the project menu? Also, what have you declared the variable objMetabases as ?

[Simon Caiger]

I stumbled into the RTE 432 problem whilst trying to solve a problem with sharing data between multiple apps using an ActiveX.exe.

I posted for help and it was suggested that I should use GetObject to get a running instance of my class. Then I get the '432' problem.

I have now gone back to my original code (and got rid of the RTE) which I have cut down to bare bones to debug this :

ActiveX.exe with class module called clsCWLaser:

Private mbLaserOnStatus(99) As Boolean

'Laser on status
Public Property Get bLaserOnStatus(iLaserNumber As Integer) As Boolean

bLaserOnStatus = mbLaserOnStatus(iLaserNumber)

End Property

Public Property Let bLaserOnStatus(iLaserNumber As Integer, bNewValue As Boolean)

mbLaserOnStatus(iLaserNumber) = bNewValue

End Property


Test App:

'APPLICATION 1
Option Explicit

Private Test As clsCWLaser
Private iLaserNumber As Integer

Private Sub cmdStart_Click()

Test.bLaserOnStatus(iLaserNumber) = True

End Sub

Private Sub cmdStop_Click()

Test.bLaserOnStatus(iLaserNumber) = False

End Sub

Private Sub Form_Load()

Dim iCount As Integer

Set Test = New clsCWLaser

iLaserNumber = 1

End Sub

Private Sub Form_Unload(Cancel As Integer)

Set Test = Nothing

End Sub

Private Sub Timer1_Timer() 'Get data from COM component and update the display

If Test.bLaserOnStatus(iLaserNumber) = True Then
labLaserStatus.Caption = "On"
Else
labLaserStatus.Caption = "Off"
End If

End Sub


I want to run more than one instance of the application but each instance should see the same data. i.e. bLaserOnStatus should be the same value viewed from any of the apps.

I am new to COM\ActiveX (as you can probably guess).
I've tried playing around with the threading and instancing settings but that doesn't seem to do it.

Any help would be appreciated.