Hi everybody

I am using VB6 enterprise sp3.
I have 2 servers with NT4 SP4.  I have the same MTS components installed on
both, with the same component names and class ids.
I would like to be able to call components on server2 in case server1 is
down. How can I do that programmatically from VB6?

I am not really looking for Load balancing technique. I am trying not to
stop the client from working.

Thanks

Khodr

What machine is used is in the registry.  Use OLEView to find where in the
registry under the APPID section;

HKEY_CLASSES_ROOT\AppID\{CLS-ID}\RemoteServerName = "MTS Server name"

Get the APPID from the object name then this key from the APPID.  Change the
remoreservername to point to a different MTS machine then re-create the
object

VB6 added a 2nd parm to CreateObject

CreateObject(sProgID,[Server])

So you could Ping the server prior to the createobject to determine which
server to use...

This will ignore whatever is entered in the registry (actually)

Later