发布日期： 2004年11月05日
从已发布的 Web 服务器上发送回外部客户端的 Web 页可能会有包含内部主机名的链接。 由于外部客户端不能解析这些受保护主机的名称，因此这些链接会被阻断。同时，将内部主机名发送给外部客户端也会使这些名称暴露在潜在黑客的威胁下。为了解决这些问题，Microsoft® Internet Security and Acceleration (ISA) Server 中提供了一个 Web 过滤器，称为链接转换过滤器。在启用此 Web 过滤器时，如果所指定的规则可以进行转换的内容类型组中包含响应的内容类型标头中指定的消息正文类型，此 Web 过滤器就会针对相应的 Web 发布规则根据一组默认规则或用户定义的词典（用于将包含内部主机名的字符串映射为包含可解析主机名的字符串）进行链接转换。 默认情况下，链接转换仅应用于“HTML 文档”内容类型组中包含的内容类型，尽管也可以指定其他内容类型组。对于所有 Web 发布规则来说都是这样。请注意，ISA Server 仅对 HTML 文档中指定为 UCS Transformation Format 8 (UTF-8) 格式的字符串进行链接转换。
本页内容
 | 启用和禁用链接转换 |
| Script Listing: LinkTranslation_Enable.vbs |
| 管理可转换内容类型组 |
| Script Listing: LinkTranslation_EditContentTypes.vbs |
| 管理链接转换词典 |
| Script Listing: Link Translation_EditDictionary.vbs |
启用和禁用链接转换
LinkTranslation_Enable.vbs（将在下面列出）中的 Microsoft Visual Basic® Scripting Edition (VBScript) 代码会检索用户指定的 Web 发布规则的配置。然后，根据用户所指定的操作，此脚本会通过设置供应商参数组规则集中链接转换的供应商参数组中的
Enabled 参数来指定启用或禁用规则的链接转换，或是根据
Enabled 参数来指出是否启用规则的链接转换。
命令行语法：
Cscript LinkTranslation_Enable.vbs
Action RuleName
Action 指定下列操作之一：
| • | 启用。启用指定 Web 发布规则的链接转换。
|
| • | 禁用。 禁用指定 Web 发布规则的链接转换。
|
| • | 状态。 获取指定 Web 发布规则的链接转换状态。
|
RuleName 指定 Web 发布规则。
启用指定 Web 发布规则的链接转换
1.
| 为 Web 发布规则 ({C202D356-5E93-4813-B737-B6f3E02C246C}) 的链接转换供应商参数组的全局唯一标识符 (GUID) 定义一个常量。
|
2.
| 声明一个 FPCPolicyRule 对象，一个 FPCVendorParametersSets 集合和一个 FPCVendorParametersSet 对象。
|
3.
| 通过以下步骤，调用一个子过程来检索向其传递名称的 Web 发布规则：
1.
| 创建 FPC COM 对象的一个实例，使用此实例可以访问其他 ISA Server 管理 COM 对象。
| 2.
| 声明 FPCPolicyRules 集合，获取指向现有策略规则集合的引用。
| 3.
| 获取一个指向指定策略规则的引用，并使用 Type属性检查它是否为一个 Web 发布规则。如果该规则不是一个 Web 发布规则，则通知用户，并跳过此过程的其余步骤。
|
|
4.
| 获取一个指向规则的 FPCVendorParametersSets 集合的引用。
|
5.
| 获取一个指向现有链接转换 FPCVendorParametersSet 对象的引用，或是创建此对象（如果它不存在）。
|
6.
| 使用链接转换供应商参数组对象的 Value 属性将 Enabled 的参数值设置为 True，并调用 FPCVendorParametersSets 集合的 Save 来保存所作的更改。
|
禁用指定 Web 发布规则的链接转换
1.
| 执行启用链接转换过程的步骤 1 到步骤 5。
|
2.
| 使用链接转换供应商参数组对象的 Value 属性将 Enabled 的参数值设置为 False，并调用 FPCVendorParametersSets 集合中的 Save 来保存所作的更改。
|
获取指定 Web 发布规则的链接转换状态
1.
| 执行启用链接转换过程的步骤 1 到步骤 4。
|
2.
| 尝试获取指向现有链接转换 FPCVendorParametersSet 对象的引用。
|
3.
| 如果链接转换参数组存在，则检索 Enabled 参数的值，并根据所检索到的值显示一条消息，指出是否启用了链接转换。如果链接转换参数组不存在，则显示一条消息，指出禁用了链接转换。
|
Script Listing: LinkTranslation_Enable.vbs'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Copyright (c) Microsoft Corporation. All rights reserved. ' THIS CODE IS MADE AVAILABLE AS IS, WITHOUT WARRANTY OF ANY KIND. THE ENTIRE ' RISK OF THE USE OR THE RESULTS FROM THE USE OF THIS CODE REMAINS WITH THE ' USER. USE AND REDISTRIBUTION OF THIS CODE, WITH OR WITHOUT MODIFICATION, IS ' HEREBY PERMITTED. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' This script retrieves the configuration of the Web publishing rule specified ' by the user. Then, depending on the action specified by the user, the script ' enables or disables link translation for the rule by setting the ' TranslateLinks property of the Web publishing rule to True or False, or ' indicates whether link translation is enabled for the rule on the basis of ' the value of the TranslateLinks property. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Option Explicit ' ' Define a constant for the expected error. ' const Error_FileNotFound = &H80070002 Main WScript.Arguments Sub Main(args) Dim ruleName Dim action If(2 <> args.Count) Then Usage() End If action = LCase(args(0)) ruleName = args(1) Select Case action Case "enable": EnableLinkTranslation ruleName, True Case "disable": EnableLinkTranslation ruleName, False Case "status": GetLinkTranslationStatus ruleName Case Else Usage() End Select End Sub ' ' Enable/disable link translation for the specified Web publishing rule. ' Sub EnableLinkTranslation(ruleName, fEnableLT) Dim wpRule ' An FPCPolicyRule object Dim Status ' A string If(fEnableLT) Then Status = "enabled" Else Status = "disabled" End If Set wpRule = GetWebPublishingRule(ruleName) If (wpRule.WebPublishingProperties.TranslateLinks <> fEnableLT) Then wpRule.WebPublishingProperties.TranslateLinks = fEnableLT wpRule.Save WScript.Echo "Link translation has been " & Status & "." Else WScript.Echo "Link translation is already " & Status & "." End If End Sub ' ' Display the status of link translation for the specified Web Publishing rule. ' Sub GetLinkTranslationStatus(ruleName) Dim wpRule ' An FPCPolicyRule object Dim Status ' A string Set wpRule = GetWebPublishingRule(ruleName) If(wpRule.WebPublishingProperties.TranslateLinks = True) Then Status = "enabled" Else Status = "disabled" End If WScript.Echo "Link translation is " & Status _ & " for the Web publishing rule " & wpRule.Name & "." End Sub ' ' Get a Web publishing rule by name. ' Function GetWebPublishingRule(ruleName) Dim root ' The FPCLib.FPC root object Dim rules ' An FPCPolicyRules collection Dim errorCode, errorDescript Set root = WScript.CreateObject("FPC.Root") Set rules = root.GetContainingArray.ArrayPolicy.PolicyRules On Error Resume Next Set GetWebPublishingRule = rules.Item(ruleName) Select Case err.Number Case Error_FileNotFound: WScript.Echo "The Web publishing rule " & ruleName _ & " does not exist." WScript.quit Case 0: ' OK Case Else err.Raise err.Number,, err.Description End Select On error goto 0 If wpRule.Type <> fpcPolicyRuleWebPublishing Then WScript.Echo "The policy rule " & ruleName _ & " is not a Web publishing rule." WScript.Quit End If End Function Sub Usage() WScript.Echo "Usage:" & VbCrLf _ & " " & WScript.ScriptName & " Action RuleName" & VbCrLf _ & "" & VbCrLf _ & " Action:" & VbCrLf _ & " Enable - Enable link translation for the specified rule." _ & VbCrLf _ & " Disable - Enable link translation for the specified rule." _ & VbCrLf _ & " Status - Get the link translation status " _ & "for the specified rule." & VbCrLf WScript.Quit End Sub
管理可转换内容类型组启用链接转换时，ISA Server 会检查响应的内容类型标头，以确定是否要将链接转换应用于消息正文。包含内容类型标头所对应字符串列表的内容类型组的名称可以在与链接转换过滤器关联的特定参数组中指定。默认情况下，指定可转换内容类型时可以使用以下内容类型组：
| • | 应用程序
|
| • | 应用程序数据文件
|
| • | 音频
|
| • | 压缩文件
|
| • | 文档
|
| • | HTML 文档
|
| • | 图像
|
| • | 宏文档
|
| • | 文本
|
| • | 视频
|
| • | VRML
|
默认情况下，链接转换仅应用于“HTML 文档”内容类型组中包含的内容类型。
LinkTranslation_EditContentTypes.vbs 中的 VBScript 代码会检索与链接转换过滤器关联的供应商参数组集合。然后，根据用户指定的操作，此脚本将：通过清除定义可转换内容类型组的供应商参数组中指定的所有可转换内容类型组来还原默认的可转换内容类型列表（“HTML 文档”内容类型组中包含的内容类型）、显示此供应商参数组的
AllNames 属性中定义的可转换内容类型组的当前列表、或是设置可转换内容类型组列表。
用法：
[Cscript] LinkTranslation_EditContentTypes.vbs
Action [
ContentTypes]
Action 指定了以下操作之一：
| • | 列表。列出当前可转换内容类型组。
|
| • | 默认。 重置为默认的可转换内容类型。
|
| • | 设置类型。 设置指定的可转换内容类型组（以空格分隔的列表）。
|
ContentTypes 指定内容类型组。
示例：
LinkTranslation_EditContentTypes.vbs SetTypes �œHTML Documents� Video
列出当前可转换内容类型组
1.
| 为链接转换过滤器 ({9DEEF135-75DB-4aab-B2AC-314FBC98EF14}) 的 GUID 和指定了可转换内容类型 ({E4FA56DB-7A77-4d13-B421-6641DF2D1AF0}) 的供应商参数组的 GUID 定义常量。
|
2.
| 创建 FPC COM 对象的一个实例， 使用此实例可以访问其他 ISA Server 管理 COM 对象。
|
3.
| 获取一个指向与链接转换过滤器关联的 FPCVendorParametersSets 集合的引用。
|
4.
| 获取一个指向指定了可转换内容类型组的 FPCVendorParametersSet 对象的引用。
|
5.
| 如果指定了可转换内容类型组的参数组存在，则检索这些指定了可转换内容类型组的参数的名称，并显示这些名称。如果指定了可转换内容类型组的参数组不存在，则显示一条消息，指出将仅使用默认的内容类型。
|
重置为默认的可转换内容类型
1.
| 执行“列出当前可转换内容类型组”过程的步骤 1 到步骤 3。
|
2.
| 使用指定可转换内容类型组的参数组的 GUID 来调用 FPCVendorParametersSets 集合的 Remove 方法。
|
3.
| 如果成功删除了指定可转换内容类型组的参数组，则调用 FPCVendorParametersSets 集合的 Save 来保存所作的更改。
|
设置为可转换内容类型
1.
| 执行“列出当前可转换内容类型组”过程的步骤 1 到步骤 3。
|
2.
| 使用指定可转换内容类型组的参数组的 GUID 来调用供应商参数组集合的 Remove 方法，以删除此参数组（如果它存在）。
|
3.
| 使用指定可转换内容类型组的参数组的 GUID 的第一个参数组来调用供应商参数组集合的 Add 方法，以便为可转换内容类型组创建一个新的空参数组。
|
4.
| 在某个 For 循环中，对命令行中指定的每个可转换内容类型组调用定义可转换内容类型组的参数组的 Value 属性，以便将名称被设置为可转换内容类型组名称、值被设置为 1 的参数添加进来。
|
5.
| 调用 FPCVendorParametersSets 集合的 Save 保存所作的更改。
|
Script Listing: LinkTranslation_EditContentTypes.vbs'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Copyright (c) Microsoft Corporation. All rights reserved. ' THIS CODE IS MADE AVAILABLE AS IS, WITHOUT WARRANTY OF ANY KIND. THE ENTIRE ' RISK OF THE USE OR THE RESULTS FROM THE USE OF THIS CODE REMAINS WITH THE ' USER. USE AND REDISTRIBUTION OF THIS CODE, WITH OR WITHOUT MODIFICATION, IS ' HEREBY PERMITTED. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' This script retrieves the collection of vendor parameters sets associated with ' Link Translation Filter. Then, depending on the action specified by the user, ' the script reverts to the default translatable content type set (HTML ' Documents) by clearing all the translatable content type sets specified in the ' vendor parameters set that contains the translatable content type sets, ' displays the current list of translatable content type sets defined in the ' AllNames property of the vendor parameters set, or sets the list of ' translatable content type sets. ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Option Explicit ' ' Define constants for the GUIDs of Link Translation Filter and the vendor ' parameters set that specifies the translatable content type sets. ' Const LTFGUID = "{9DEEF135-75DB-4aab-B2AC-314FBC98EF14}" Const TranslatableC Const Error_FileNotFound = &H80070002 Main WScript.Arguments Sub Main(args) Dim root ' The FPCLib.FPC root object Dim vpSets ' An FPCVendorParametersSets collection If(0 = args.Count) Then Usage() End If Set root = WScript.CreateObject("FPC.Root") Set vpSets = _ root.GetContainingArray.Extensions.WebFilters(LTFGUID).VendorParametersSets Select Case LCase(args(0)) Case "list": ListTranslatableContentTypeSets vpSets Case "default": ' Clear the list of translatable content type sets. RemoveFromVPSs vpSets, TranslatableContentTypeSetsGUID WScript.Echo "Using the default translatable content types..." Case "settypes": If(args.Count < 2) Then Usage() End If SetTranslatableContentTypeSets vpSets, args Case Else Usage() End Select End Sub ' ' Display the current translatable content type sets. ' Sub ListTranslatableContentTypeSets(vpSets) Dim vpSet ' An FPCVendorParametersSet object Dim errorCode, errorDescript, contentTypeSets, contentTypeSet On Error Resume Next Set vpSet = vpSets(TranslatableContentTypeSetsGUID) errorCode = err.Number errorDescript = err.Description On Error GoTo 0 Select Case errorCode Case 0 c For Each contentTypeSet in vpSet.AllNames contentTypeSets = contentTypeSets & " " & contentTypeSet Next WScript.Echo "Translatable content type sets: " & contentTypeSets Case Error_FileNotFound: WScript.Echo "Using the default translatable content types only..." Case Else err.Raise errorCode,, errorDescript End Select End Sub ' ' Set specific translatable content type sets. ' Sub SetTranslatableContentTypeSets(vpSets, contentTypeSets) Dim vpSet ' An FPCVendorParametersSet object Dim first, contentTypeSet RemoveFromVPSs vpSets, TranslatableContentTypeSetsGUID Set vpSet = vpSets.Add(TranslatableContentTypeSetsGUID, False) first = True For Each contentTypeSet In contentTypeSets If(first) Then first = False ' Skip the first command-line parameter. Else vpSet.Value(contentTypeSet) = 1 End If Next vpSets.Save ListTranslatableContentTypeSets vpSets End Sub ' ' Remove the specified VendorParametersSet from VendorParametersSets collection. ' sub RemoveFromVPSs(vpSets, setName) Dim errorCode, errorDescript On Error Resume Next vpSets.Remove setName errorCode = err.Number errorDescript = err.Description On Error GoTo 0 Select Case errorCode Case 0: vpSets.Save Case Error_FileNotFound: ' Ignore the error. The object has already been removed. Case Else err.Raise errorCode,,errorDescript End Select End Sub sub Usage() Dim usageText usageText = "Usage:" & vbCrLf _ & vbCrLf _ & " " & wscript.ScriptName & " Action [Content Type Sets]" & vbCrLf _ & vbCrLf _ & " Action:" & vbCrLf _ & " List - List current translatable content type sets." _ & vbCrLf _ & " Default - Reset to default translatable content types." _ & vbCrLf _ & " SetTypes - Set the specified translatable content type sets" _ & " (space-delimited list)." & vbCrLf _ & vbCrLf _ & " Example:" & vbCrLf _ & " " & wscript.ScriptName & " SetTypes Application" _ & " ""HTML Documents""" & vbCrLf WScript.Echo usageText WScript.Quit End Sub
管理链接转换词典每个 Web 发布规则都可以有自己的链接转换词典，它定义了与之关联的特定供应商参数组。词典中的每个实体都是一个字符串对，该字符串对由包含内部主机名的字符串和包含外部客户端可解析主机名的字符串组成。内部字符串被指定为参数的名称，外部字符串被指定为它的值。
LinkTranslation_EditDictionary.vbs 中的 VBScript 代码使得用户可以管理 Web 发布规则的链接转换词典。根据用户指定的操作，此词典可以：列出所有 Web 发布规则的链接转换词典、列出指定 Web 发布规则的词典中包含的所有内部/外部字符串对、从指定规则的词典中删除指定条目、删除指定规则的整个词典以及向指定规则的词典中添加内部/外部字符串对。
命令行语法：
LinkTranslation_EditDictionary.vbs
Action [
RuleName] [
InternalString] [
ExternalString]
Action 指定了以下操作之一：
| • | 全部列出。列出所有 Web 发布规则的词典。
|
| • | 列出。 列出指定规则的词典。
|
| • | 清除。清除指定规则的链接转换词典中的所有条目。
|
| • | 添加。 向指定规则的词典中添加 InternalString 和 ExternalString 定义的条目。
|
| • | 删除实体。 从指定规则的词典中删除 InternalString 的实体。
|
RuleName 指定了 Web 发布规则。
InternalString 指定了含有内部主机名的字符串。
ExternalString 指定了含有可解析为外部主机名的字符串。
列出所有 Web 发布规则的词典
1.
| 为定义链接转换词典 ({3563FFF5-DF93-40eb-ABC3-D24B5F14D8AA}) 的供应商参数组的 GUID 定义一个常量，并为枚举值定义一个常量，以指出策略规则是 Web 发布规则。
|
2.
| 创建 FPC COM 对象的一个实例， 使用此实例可以访问其他 ISA Server 管理 COM 对象。
|
3.
| 声明一个 FPCPolicyRules 集合和一个 FPCPolicyRule 对象。
|
4.
| 获取一个指向现有策略规则集合的引用。
|
5.
| 在某个 For 循环中，对策略规则集合中的每个规则使用 Type 属性，以确定它是不是一个 Web 发布规则。如果策略规则是一个 Web 发布规则，则可通过以下步骤来调用一个子过程，以列出策略规则的链接转换词典中的实体：
1.
| 声明一个 FPCVendorParametersSets 集合和一个 FPCVendorParametersSet 对象。
| 2.
| 获取一个指向规则的 FPCVendorParametersSets 集合的引用。
| 3.
| 尝试获取指向集合中定义链接转换词典的 FPCVendorParametersSet 对象的引用。
| 4.
| 如果非空链接转换词典可获取引用，则在 For 循环中，在相应的外部字符串之后显示 AllNames 检索到的每个名称（内部字符串），该外部字符串是通过使用内部字符串参数组来调用 Value 属性获取的。
|
|
列出指定 Web 发布规则的词典
1.
| 执行“列出所有 Web 发布规则的词典”过程的步骤 1 到步骤 4。
|
2.
| 通过第二个命令行参数检索指定 Web 发布规则的名称。
|
3.
| 获取一个指向指定策略规则的引用，并使用 Type属性检查它是否为一个 Web 发布规则。如果该规则不是一个 Web 发布规则，则通知用户并跳过本过程的其余步骤。
|
4.
| 调用列出所有 Web 发布规则的词典过程的步骤 5 中介绍的子过程，以显示 rule�™ 的链接转换词典中的实体。
|
从指定规则的链接转换词典中清除所有实体
1.
| 执行“列出所有 Web 发布规则的词典”过程的步骤 1 到步骤 4。
|
2.
| 通过第二个命令行参数检索指定 Web 发布规则的名称。
|
3.
| 获取一个指向指定策略规则的引用，并使用 Type属性检查它是否为一个 Web 发布规则。如果该规则不是一个 Web 发布规则，则通知用户并跳过本过程的其余步骤。
|
4.
| 声明一个 FPCVendorParametersSets 集合和一个 FPCVendorParametersSet 对象。
|
5.
| 获取一个指向规则的 FPCVendorParametersSets 集合的引用。
|
6.
| 使用定义链接转换词典的参数组的 GUID 的参数组来调用 FPCVendorParametersSets 集合的 Remove 方法，以删除此参数组（如果它存在）。
|
7.
| 如果成功删除了链接转换词典，则调用 FPCVendorParametersSets 集合的 Save 保存所作的更改。
|
向指定规则的链接转换词典中添加实体
1.
| 执行“列出所有 Web 发布规则的词典”过程的步骤 1 到步骤 4。
|
2.
| 通过第二个命令行参数检索指定 Web 发布规则的名称。
|
3.
| 获取一个指向指定策略规则的引用，并使用 Type属性检查它是否为一个 Web 发布规则。如果该规则不是一个 Web 发布规则，则通知用户并跳过本过程的其余步骤。
|
4.
| 声明一个 FPCVendorParametersSets 集合和一个 FPCVendorParametersSet 对象。
|
5.
| 获取一个指向规则的 FPCVendorParametersSets 集合的引用。
|
6.
| 尝试获取一个指向定义链接转换词典的现有参数组的引用。
|
7.
| 使用定义链接转换词典的参数组的 GUID 的第一个参数组来调用供应商参数组集合的 Add 方法，以便为链接转换词典创建一个新的空参数组。
|
8.
| 调用定义链接转换词典的参数组的 Value 属性，以便将命令行中指定了名称、且值被设置为命令行中指定的外部字符串的参数添加进来。
|
9.
| 调用 FPCVendorParametersSets 集合的 Save 保存所作的更改。
|
从指定规则的链接转换词典中删除实体
1.
| 执行“列出所有 Web 发布规则的词典”过程的步骤 1 到步骤 4。
|
2.
| 通过第二个命令行参数检索指定 Web 发布规则的名称。
|
3.
| 获取一个指向指定策略规则的引用，并使用 Type属性检查它是否为一个 Web 发布规则。如果该规则不是一个 Web 发布规则，则通知用户并跳过本过程的其余步骤。
|
4.
| 声明一个 FPCVendorParametersSets 集合和一个 FPCVendorParametersSet 对象。
|
5.
| 获取一个指向规则的 FPCVendorParametersSets 集合的引用。
|
6.
| 尝试获取一个指向定义链接转换词典的现有参数组的引用。如果此参数组不存在，则跳过此过程中的其余步骤。
|
7.
| 使用命令行中指定的内部字符串的参数组来调用定义链接转换词典的参数组的 RemoveValue 方法，以删除指定的条目。
|
8.
| 如果成功删除了条目，则调用 FPCVendorParametersSet 对象的 Save 保存所作的更改。
|
Script Listing: Link Translation_EditDictionary.vbs'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Copyright (c) Microsoft Corporation. All rights reserved. ' THIS CODE IS MADE AVAILABLE AS IS, WITHOUT WARRANTY OF ANY KIND. THE ENTIRE ' RISK OF THE USE OR THE RESULTS FROM THE USE OF THIS CODE REMAINS WITH THE ' USER. USE AND REDISTRIBUTION OF THIS CODE, WITH OR WITHOUT MODIFICATION, IS ' HEREBY PERMITTED. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Depending on the action specified by the user in the command line, this script ' lists the link-translation dictionaries of all Web publishing rules, lists all ' the entries defining internal-external pairs of strings in the dictionary for ' the specified Web publishing rule, removes the specified entry from the ' dictionary for the specified rule, removes the entire dictionary for the ' specified rule, adds an entry defining an internal-external pair to the ' dictionary for the specified rule. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Option Explicit ' ' Define a constant for the GUID of the vendor parameters set that defines ' a link-translation dictionary. ' Const LinkTranslatDicGUID = "{3563FFF5-DF93-40eb-ABC3-D24B5F14D8AA}" Const fpcPolicyRuleWebPublishing = 2 Const Error_FileNotFound = &H80070002 Dim root ' The FPCLib.FPC root object Main Wscript.Arguments Sub Main(args) Dim ruleName, action If(0 = args.Count) Then Usage() End If Set root = WScript.CreateObject("FPC.Root") action = LCase(args(0)) Select Case action Case "listall": ListAllDictionaries Case "list": If(2 > args.Count) Then Usage() End If ruleName = args(1) ListDictionary GetWebPublishingRule(ruleName) Case "clear": If(2 > args.Count) Then Usage() End If ruleName = args(1) ClearDictionary GetWebPublishingRule(ruleName) Case "add": If(4 > args.count) Then Usage() End If ruleName = args(1) AddItemToDictionary GetWebPublishingRule(ruleName), args(2), args(3) Case "removeentry": If(3 > args.Count) Then Usage() End If ruleName = args(1) RemoveEntry GetWebPublishingRule(ruleName), args(2) case Else Usage() End Select End Sub ' ' List the dictionaries of all Web publishing rules. ' Sub ListAllDictionaries() Dim rules ' An FPCPolicyRules collection Dim rule ' An FPCPolicyRule object Set rules = root.GetContainingArray.ArrayPolicy.PolicyRules For Each rule in rules If rule.Type = fpcPolicyRuleWebPublishing Then ListDictionary rule End If Next End Sub ' ' List the content of the link-translation dictionary for the ' specified Web publishing rule. ' Sub ListDictionary(wpRule) Dim vpSets ' An FPCVendorParametersSets collection Dim vpSet ' An FPCVendorParametersSet object Dim errorCode, errorDescript, index, name Set vpSets = wpRule.VendorParametersSets On Error Resume Next Set vpSet = vpSets(LinkTranslatDicGUID) errorCode = err.Number errorDescript = err.Description On Error GoTo 0 Select Case errorCode Case Error_FileNotFound: WScript.Echo "The dictionary for the " & wpRule.Name _ & " rule is empty or does not exist." Case 0: ' A dictionary exists for this rule. WScript.Echo "Dictionary for the " & wpRule.Name & " rule:" index = 1 If(IsEmpty(vpSet.AllNames)) Then WScript.Echo " The dictionary is empty." Else For Each name In vpSet.AllNames WScript.Echo " " & index & ". " & name & " - " & _ vpSet.Value(name) index = index + 1 Next End If Case Else: err.Raise errorCode,, errorDescript End Select End Sub ' ' Remove the vendor parameters set defining the link-translation dictionary ' of the specified Web publishing rule. ' Sub ClearDictionary(wpRule) Dim vpSets ' An FPCVendorParametersSets collection Set vpSets = wpRule.VendorParametersSets RemoveFromVPSs vpSets, LinkTranslatDicGUID vpSets.Save End Sub ' ' Remove a single entry from the dictionary (The entry name is the internal ' string). ' Sub RemoveEntry(wpRule, name) Dim vpSets ' An FPCVendorParametersSets collection Dim vpSet ' An FPCVendorParametersSet object Dim errorCode, errorDescript ' Get the vendor parameters set defining the link-translation dictionary. Set vpSets = wpRule.VendorParametersSets On Error Resume Next Set vpSet = vpSets(LinkTranslatDicGUID) errorCode = err.Number errorDescript = err.Description On Error GoTo 0 Select Case errorCode Case Error_FileNotFound: WScript.Echo "No dictionary exists for this rule." Exit Sub Case 0: ' OK Case Else err.Raise errorCode,, errorDescript End Select ' Remove the specified entry. ' Note: The key is case-sensitive. On Error Resume Next vpSet.RemoveValue name errorCode = err.Number errorDescript = err.Description On Error GoTo 0 Select Case errorCode Case Error_FileNotFound: WScript.Echo "An entry for " & name _ & " was not found in the dictionary." Case 0: vpSet.Save ' OK, save the changes. Case Else err.Raise errorCode,, errorDescript End Select End Sub ' ' Add an entry (internal string - external string) to the link-translation ' dictionary of the specified rule. ' Sub AddItemToDictionary(wpRule, internalString, externalString) Dim vpSets ' An FPCVendorParametersSets collection Dim vpSet ' An FPCVendorParametersSet object Dim errorCode, errorDescript Set vpSets = wpRule.VendorParametersSets On Error Resume Next Set vpSet = vpSets(LinkTranslatDicGUID) errorCode = err.Number errorDescript = err.Description On Error GoTo 0 Select Case errorCode Case Error_FileNotFound: ' Create the dictionary if it does not exist. Set vpSet = vpSets.Add(LinkTranslatDicGUID, False) Case 0: ' OK, set was found. Case Else err.Raise errorCode,, errorDescript End Select ' Add the internal-external entry. vpSet.Value(internalString) = externalString vpSets.Save End Sub ' ' Retrieve the specified Web publishing rule. ' Function GetWebPublishingRule(ruleName) Dim rules ' An FPCPolicyRules collection Dim rule ' An FPCPolicyRule object Dim errorCode, errorDescript Set rules = root.GetContainingArray.ArrayPolicy.PolicyRules On Error Resume Next Set rule = rules(ruleName) Select Case err.Number Case Error_FileNotFound: WScript.Echo "The " & ruleName _ & " Web publishing rule was not found." Wscript.Quit Case 0: ' OK Case Else err.Raise err.Number,, err.Description End Select On Error GoTo 0 If rule.Type <> fpcPolicyRuleWebPublishing Then WScript.Echo "The " & ruleName & " rule is not a Web publishing rule." Wscript.Quit End If Set GetWebPublishingRule = rule End Function ' ' Remove the link-translation dictionary from the vendor parameters sets ' collection of the specified rule. ' Sub RemoveFromVPSs(vpSets, setName) Dim errorCode, errorDescript On Error Resume Next vpSets.Remove setName errorCode = err.Number errorDescript = err.Description On Error GoTo 0 Select Case errorCode Case 0: vpSets.Save ' OK, save the changes. Case Error_FileNotFound: ' Ignore the error if the object was not found ' or was already removed. Case Else err.raise errorCode,,errorDescript End Select End Sub Sub Usage() Dim sUsage sUsage = "Usage:" & vbCrLf _ & " LinkTranslation_EditDictionary.vbs Action [RuleName] [IntString]" _ & " [ExtString]" & vbCrLf _ & vbCrLf _ & " Action:" & vbCrLf _ & " ListAll - List dictionaries for all Web publishing" _ & " rules." & vbCrLf _ & " List - List dictionary for the specified rule." _ & vbCrLf _ & " Clear - Clear all entries from the search-replace" _ & " dictionary for the specified rule." & vbCrLf _ & " Add - Add an entry (internal string - external" _ & " string) to the dictionary of the specified rule." _ & vbCrLf _ & " RemoveEntry - Remove the entry for the specified internal" _ & " string from the dictionary of the specified rule." _ & vbCrLf _ & vbCrLf _ & " RuleName: Specify the Web publishing rule. " & vbCrLf WScript.Echo sUsage WScript.Quit End Sub
