[Resolvido]Encontrar determinada classe

Bom dia a todos.

Galera, utilizo um código para criar um objeto e verifica sempre se determinado sistema está aberto, parte do código está abaixo:


Function HConectado()

DoCmd.Hourglass True

Set Sistema = CreateObject("EXTRA.System")

Set Sess = Sistema.ActiveSession

Set MyScreen = Sess.Screen

Err.Clear

If MyScreen.OIA.ConnectionStatus = 1 Then

HConectado = True

End If

DoCmd.Hourglass False

End Function


Para o sistema em questão a estância criada é Set Sistema = CreateObject("EXTRA.System") gostaria de fazer o mesmo para outro sistema mas a dúvida é de como é que faço para descobrir o nome da estância do outro sistema?

Obrigado

Uma pergunta:

Isso é Ms Access ?

Realmente não está legal mas esta função é parte de um rotina antiga que utilizamos para acessar outro sistema chamado Mainframe que provavelmente vc conhece, mas a pergunta é a seguinte JP.

No código eu crio e faço uma referencia ao sistema Mainframe "Set Sistema = CreateObject("Extra.System")", eu sei que para fazer isso utilizo o Extra.System, para fazer com o exel eu utilizo o Excel.Application, Word.Application e assim por diante, como faço para descobrir este nome para outro sistema que não seja do Office como o Mainframe?

Deve existir uma lista do Common Objects, que eu não tenho.

Dê uma pesquisada, sobre isso.

Por exemplo:
http://www.guidespot.com/guides/common_objects

JP, muito legal o site, agradeço, porém não tem como saber o CreateObject do sistema Mochasoft.

Pensei que estes nomes são padrões mas pelo o que ví não, vou dar como resolvido.

Muito obrigado pela força.