'VBScript example

' Get a LinktabRuleCollection from the Linktab object

	set l_linktab = xsiutils.Linktab

	if l_linktab.Filename(szFileName) = "True" then

		set l_rulesColl =	l_linktab.Rules

		' Display each rule in the collection

		For each l_line in l_rulesColl 

			LogMessage l_line 

		Next 

		' Display the rules count

		LogMessage l_rulesColl.Count

		' Display the rules using Item property as the default property

		For i=0 to l_rulesColl.Count-1

			LogMessage  l_rulesColl(i)

		Next

		' Display the rules using Item property as the default property

		For i=0 to l_rulesColl.count-1

			LogMessage  l_rulesColl.Item(i)

		Next

		' Display a subset of rules

		set l_SubRules = l_rulesColl.Filter(siRuleKind_NT2Unix)

		' Display the sub (if any)

		If l_SubRules.Count > 0 Then

			For i=0 to l_SubRules.Count-1

				LogMessage  l_SubRules(i)

			Next

		End If

	else

		LogMessage "Linktab file not set"

	End if