'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