TN Appsvr180 How to identify attributes within an object that do not have good quality within a script?

Description

This is a sample script that will allow you to find all items that do not have good quality and write them to an array.

• Author: Joseph Hefner
• Published: 12/17/2015
• Applies to: Application Server 3.1 and later

Details

You can use the script below to capture items in a ddesuitelink object and write them to an array called NotGoodQuality.

Dim attr as String;
dim x as indirect;
dim I as integer;
I= 0;
For Each attr In Me._Attributes[]

x.BindTo("Me." + attr + ".quality");
If x <> "192" then
I= I +1;
Me.NotGoodQuality[I] = attr;
endif;
Next;