pusaran
Member
Hi all,
i need some help here,
i have 4 AB PLC + 3 PC on the line. All are connected to the same network.
Main PC has the RSlinx Gateway with license and another 2 Sub PC has the RSlinx Lite.
i was able to retrieve the data from PLC on the Main PC with VB.net and also have another VB.net application launched on Sub PC then connect to Main PC and collect date.
But after it works for few month, it just suddenly failed. The application on Main PC is still working, just the Sub PC is not working. It shows belows error. I try to check the DCOM setting and everything was as i set before.
FYI, all the PC and PLC are connected to the company domain, so is it possible that the IT guy did change something on the Authentication through the domain that cause the failure? Or can anyone can tell me where to check? such as the setting in RSlinx Gateway and RSlinx Lite or the security setting on Sub and Main PC.
Your help is appreciated. >.<
Below is the Coding i write on my application for connection.
10.103.1.230 and 10.103.6.179 is the IP for the PLC
the IP for Main PC is 10.103.6.180
//This 1 have the error of Access is Denied
Private Sub Server_Frontend_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
'Connect to Remote OPC Server
MyOpcServer = New OPCServer
'MyOpcServer.Connect("RSLinx Remote OPC Server", "191.168.0.208")
'MyOpcServer.Connect("RSLinx OPC Server", "191.168.2.255")
MyOpcServer.Connect("RSLinx OPC Server", "10.103.1.230")
'Add this group to the shared topic
Group1 = MyOpcServer.OPCGroups.Add("Server Frontend 1")
Group1.UpdateRate = 500
Group1.IsSubscribed = True
Group2 = MyOpcServer.OPCGroups.Add("Server Frontend 2")
Group2.UpdateRate = 500
Group2.IsSubscribed = True
Group3 = MyOpcServer.OPCGroups.Add("Server Frontend 3")
Group3.UpdateRate = 500
Group3.IsSubscribed = True
' Point to Remote OPC Server Topic
Group1.OPCItems.DefaultAccessPath = "SV_Frontend_kitting"
Group2.OPCItems.DefaultAccessPath = "SV_Frontend_kitting"
Group3.OPCItems.DefaultAccessPath = "SV_Frontend_kitting"
ItemR1 = Group1.OPCItems
ItemR1.DefaultIsActive = True
ItemR2 = Group2.OPCItems
ItemR2.DefaultIsActive = True
ItemR3 = Group3.OPCItems
ItemR3.DefaultIsActive = True
//This gets Class is not licensed Error
Private Sub FormDesktopBackend_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
'Connect to Remote OPC Server
MyOpcServer = New OPCServer
'MyOpcServer.Connect("RSLinx Remote OPC Server", "191.168.0.208")
'MyOpcServer.Connect("RSLinx OPC Server", "191.168.2.255")
MyOpcServer.Connect("RSLinx OPC Server", "10.103.6.179")
'Add this group to the shared topic
Group1 = MyOpcServer.OPCGroups.Add("Desktop Backend 1")
Group1.UpdateRate = 500
Group1.IsSubscribed = True
Group2 = MyOpcServer.OPCGroups.Add("Desktop Backend 2")
Group2.UpdateRate = 500
Group2.IsSubscribed = True
Group3 = MyOpcServer.OPCGroups.Add("Desktop Backend 3")
Group3.UpdateRate = 500
Group3.IsSubscribed = True
' Point to Remote OPC Server Topic
Group1.OPCItems.DefaultAccessPath = "Desktop_BACKEND"
Group2.OPCItems.DefaultAccessPath = "Desktop_BACKEND"
Group3.OPCItems.DefaultAccessPath = "Desktop_BACKEND"
ItemR1 = Group1.OPCItems
ItemR1.DefaultIsActive = True
ItemR2 = Group2.OPCItems
ItemR2.DefaultIsActive = True
ItemR3 = Group3.OPCItems
ItemR3.DefaultIsActive = True
i need some help here,
i have 4 AB PLC + 3 PC on the line. All are connected to the same network.
Main PC has the RSlinx Gateway with license and another 2 Sub PC has the RSlinx Lite.
i was able to retrieve the data from PLC on the Main PC with VB.net and also have another VB.net application launched on Sub PC then connect to Main PC and collect date.
But after it works for few month, it just suddenly failed. The application on Main PC is still working, just the Sub PC is not working. It shows belows error. I try to check the DCOM setting and everything was as i set before.
FYI, all the PC and PLC are connected to the company domain, so is it possible that the IT guy did change something on the Authentication through the domain that cause the failure? Or can anyone can tell me where to check? such as the setting in RSlinx Gateway and RSlinx Lite or the security setting on Sub and Main PC.
Your help is appreciated. >.<
Below is the Coding i write on my application for connection.
10.103.1.230 and 10.103.6.179 is the IP for the PLC
the IP for Main PC is 10.103.6.180
//This 1 have the error of Access is Denied
Private Sub Server_Frontend_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
'Connect to Remote OPC Server
MyOpcServer = New OPCServer
'MyOpcServer.Connect("RSLinx Remote OPC Server", "191.168.0.208")
'MyOpcServer.Connect("RSLinx OPC Server", "191.168.2.255")
MyOpcServer.Connect("RSLinx OPC Server", "10.103.1.230")
'Add this group to the shared topic
Group1 = MyOpcServer.OPCGroups.Add("Server Frontend 1")
Group1.UpdateRate = 500
Group1.IsSubscribed = True
Group2 = MyOpcServer.OPCGroups.Add("Server Frontend 2")
Group2.UpdateRate = 500
Group2.IsSubscribed = True
Group3 = MyOpcServer.OPCGroups.Add("Server Frontend 3")
Group3.UpdateRate = 500
Group3.IsSubscribed = True
' Point to Remote OPC Server Topic
Group1.OPCItems.DefaultAccessPath = "SV_Frontend_kitting"
Group2.OPCItems.DefaultAccessPath = "SV_Frontend_kitting"
Group3.OPCItems.DefaultAccessPath = "SV_Frontend_kitting"
ItemR1 = Group1.OPCItems
ItemR1.DefaultIsActive = True
ItemR2 = Group2.OPCItems
ItemR2.DefaultIsActive = True
ItemR3 = Group3.OPCItems
ItemR3.DefaultIsActive = True
//This gets Class is not licensed Error
Private Sub FormDesktopBackend_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
'Connect to Remote OPC Server
MyOpcServer = New OPCServer
'MyOpcServer.Connect("RSLinx Remote OPC Server", "191.168.0.208")
'MyOpcServer.Connect("RSLinx OPC Server", "191.168.2.255")
MyOpcServer.Connect("RSLinx OPC Server", "10.103.6.179")
'Add this group to the shared topic
Group1 = MyOpcServer.OPCGroups.Add("Desktop Backend 1")
Group1.UpdateRate = 500
Group1.IsSubscribed = True
Group2 = MyOpcServer.OPCGroups.Add("Desktop Backend 2")
Group2.UpdateRate = 500
Group2.IsSubscribed = True
Group3 = MyOpcServer.OPCGroups.Add("Desktop Backend 3")
Group3.UpdateRate = 500
Group3.IsSubscribed = True
' Point to Remote OPC Server Topic
Group1.OPCItems.DefaultAccessPath = "Desktop_BACKEND"
Group2.OPCItems.DefaultAccessPath = "Desktop_BACKEND"
Group3.OPCItems.DefaultAccessPath = "Desktop_BACKEND"
ItemR1 = Group1.OPCItems
ItemR1.DefaultIsActive = True
ItemR2 = Group2.OPCItems
ItemR2.DefaultIsActive = True
ItemR3 = Group3.OPCItems
ItemR3.DefaultIsActive = True