Ciao a tutti.
Ho necessità di utilizzare oggetti COM su macchine remote per creare un sistema di simulazione distribuito su rete LAN (quindi tutti i pc sui quali devo avviare l'applicazione sono sotto il mio controllo).
Vorrei sfruttare la CreateObject su server remoto in questo modo:
Module Module1
Dim sim As Object
Sub Main()
sim = CreateObject("Studio.StateMachineController", "\\nome Server")
If Not sim Is Nothing Then
sim.CloseInstanceDiagrams()
sim.EnableAnimation()
sim.EnableEventQueuing()
sim.EnableNotificationQueuing()
sim.ResetDiagrams()
sim.SetForegroundWindow()
sim.EnableOpenDiagrams()
End If
End Sub
End Module
Dove "\\nome server" è il nome della macchina dove risiede l'applicazione.
Se elimino il parametro del server l'applicazione viene avviata correttamente in locale.
Lo stesso avviene se indico come server il nome della mia macchina o l'ind. IP locale quindi in questo modo:
sim = CreateObject("Studio.StateMachineController", "\\DJP2684J")
sim = CreateObject("Studio.StateMachineController", "192.168.0.5")
Ma se cerco di avviare su un server remoto ottengo l'eccezione :
"Impossibile creare il componente ActiveX."
Leggendo in giro sono arrivato alla conclusione che il servizio non è ben registrato sulle macchine per un accesso remoto.
Che fare?

Rispondi quotando