DISCLAIMER
This is a small example to show how a database object can be created from a mimic script in ClearSCADA. The script below creates a instance of a template and names the newly created instance based on the user's input.
Theis sample program is intended to demonstrate one or more programming functions or methods and is presented as programming example only. Schneider Electric assumes no liability for the use or application of this example program or any portion thereof.
This is a small example to show how a database object can be created from a mimic script in ClearSCADA. The script below creates a instance of a template and names the newly created instance based on the user's input.
Sub CreateInstance
sInstanceName = InputBox("Enter instance name")
If Len(sInstanceName) > 0 Then
'Specify ClearSCADA Server object.
Set oServer = CreateObject ("Serck.ScxV6Server")
' Provide connection information to connect to the ClearSCADA Database. The SystemName should be the same as in the Configure Connections utility.
oServer.Connect "SystemName", "UserName", "UserPassword"
' Get references to the Group to create the instance in.
Set oGroup = oServer.FindObject (Server.ThisObject.Parent.FullName)
' Create the instance by passing the class information.
Set oNewUser = oGroup.Create("CTemplateInstance")
' Name the instance.
oNewUser.Rename(sInstanceName)
Server.SetOPCValue oNewUser.FullName + ".TemplateId", 9
oServer.Disconnect()
End If
End Sub Released for:Schneider Electric Australia
DISCLAIMER
This is a small example to show how a database object can be created from a mimic script in ClearSCADA. The script below creates a instance of a template and names the newly created instance based on the user's input.
Theis sample program is intended to demonstrate one or more programming functions or methods and is presented as programming example only. Schneider Electric assumes no liability for the use or application of this example program or any portion thereof.
This is a small example to show how a database object can be created from a mimic script in ClearSCADA. The script below creates a instance of a template and names the newly created instance based on the user's input.
Sub CreateInstance
sInstanceName = InputBox("Enter instance name")
If Len(sInstanceName) > 0 Then
'Specify ClearSCADA Server object.
Set oServer = CreateObject ("Serck.ScxV6Server")
' Provide connection information to connect to the ClearSCADA Database. The SystemName should be the same as in the Configure Connections utility.
oServer.Connect "SystemName", "UserName", "UserPassword"
' Get references to the Group to create the instance in.
Set oGroup = oServer.FindObject (Server.ThisObject.Parent.FullName)
' Create the instance by passing the class information.
Set oNewUser = oGroup.Create("CTemplateInstance")
' Name the instance.
oNewUser.Rename(sInstanceName)
Server.SetOPCValue oNewUser.FullName + ".TemplateId", 9
oServer.Disconnect()
End If
End Sub
Released for:Schneider Electric Australia
