CimDeviceList.Save (method)

Saves the device
Syntax: object.Save device, bDynamic
device As CimDevice - Device object to be saved.
bDynamic As BOOL - Save dynamically.
Description: CimDeviceList.Save saves a CimDevice to the project.


Dim project As CimProject
Set project = CreateObject("CimProject")
project.OpenLocalProject "d:\classes\classes.gef"
Dim dl As CimDeviceList
Dim d As cimDevice
Set dl = project.Devices
Set d = dl.New("PLC1", "MASTER_TCPIP1")
d.ResourceID = "$SYSTEM"
d.Model = "GE Fanuc Series 90-70"
d.ProtocolObject.IPAddress = ""
dl.Save d, False