VBScript
set sessionObj = GetSession ' Iterate through the fields and output ' the field name, type, and value fieldNameList = GetFieldNames for each fieldName in fieldNameList set fieldInfoObj = GetFieldValue(fieldName) fieldType = fieldInfoObj.GetType fieldValue = fieldInfoObj.GetValue sessionObj.OutputDebugString "Field name: " & fieldName & _ ", type=" & fieldType & ", value=" & fieldValue Next
Perl
# get session object $sessionobj = $entity->GetSession(); # get a reference to an array of strings $fieldNameList = $entity->GetFieldNames(); foreach $fieldname (@$fieldNameList) { $fieldinfoobj = $entity->GetFieldValue($fieldname); $fieldtype = $fieldinfoobj->GetType(); $fieldvalue = $fieldinfoobj->GetValue(); $sessionobj->OutputDebugString( "Field name: ".$fieldname.", type=".$fieldtype.", value=".$fieldvalue); }