Chapter 3 Getting Started with Objects Manipulation Using Scripts

Manipulating Objects Extended Properties Using Scripts

You can dynamically get and set objects extended properties like attributes and collections using scripts.

The syntax for identifying any object property is:

"<TargetCode>.<PropertyName>"

For example, to get the extended attribute MyAttribute from the importXXX object, use:

GetExtendedAttribute("importXXX.MyAttribute")

Note that if the script is inside a profile (for example, in a custom check script), you can use the %CurrentTargetCode% variable instead of a hard-coded TargetCode, in order to improve the portability of your script.

For example:

GetExtendedAttribute("%CurrentTargetCode%.MyAttribute")

In the following example we:

Modify extended attribute on the class
Modify extended collection on the class
Add the class in its own extended collection to be used as a standard collection

Example

If (not ExistingModel Is Nothing) and (not FoundClass Is Nothing) Then
   ' Modify extended attribute on the class
   Dim ExaName 
   ExaName = "importXXX.MyAttribute"  ' attribute name prefixed by extended model definition code
   If FoundClass.HasExtendedAttribute(ExaName) Then
      output "Extended attribute can be accessed" 
      FoundClass.SetExtendedAttributeText ExaName, "1024"
      FoundClass.SetExtendedAttribute ExaName, 2048
      Dim valAsText, valAsInt
      valAsText = FoundClass.GetExtendedAttributeText(ExaName)
      valAsInt = FoundClass.GetExtendedAttribute(ExaName)
   End If
   ' Modify extended collection on the class
   Dim ExColName, ExCol
   ExColName = "importXXX.MyCollection"  ' collection name prefixed by extended model definition code
   Set ExCol = FoundClass.GetExtendedCollection(ExColName)
   If not ExCol is Nothing Then
      output "Extended collection can be accessed" 
      ' The extended collection can be used as a standard collection
      ' for example, we add the class in its own extended collection
      ExCol.Add FoundClass
      Set ExCol = Nothing
   End If
End If