DISCLAIMER

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 USA