在企业中我们经常会发现，在进行一些排错时，没有办法对TMG与FWC之间加密数据进行分析，在这种情况下我们如何解密，这可能对于我们进行分析数据包来说是件非常必要的工作，取消加密可通过如下脚本进行操作：
Option Explicit ‘脚本设置：要求所有变量必须事先声明
Dim oRoot: Set oRoot = CreateObject("FPC.Root") ‘打开TMG配置COM+组件
Dim oArray: Set oArray = oRoot.GetContainingArray ‘打开TMG配置COM+组件中阵列配置单元
Dim oClntCfg: Set oClntCfg = oArray.FWClientConfigSettings ‘打开阵列配置单元中TMG客户端配置信息
本栏目更多精彩内容：http://www.bianceng.cnhttp://www.bianceng.cn/Servers/zs/
Wscript.Echo "oClntCfg.EnableControlChannelEncryption (old): " & oClntCfg.EnableControlChannelEncryption ‘显示之前（旧）TMG客户端配置信息中通讯加密与否的设置值
oClntCfg.EnableControlChannelEncryption = Not( oClntCfg.EnableControlChannelEncryption ) ‘开／关当前TMG客户端配置信息中通讯加密与否的设置值
Wscript.Echo "oClntCfg.EnableControlChannelEncryption (new): " & oClntCfg.EnableControlChannelEncryption ‘显示当前（新）TMG客户端配置信息中通讯加密与否的设置值
oArray.Save true, true ‘保存更新设置
以上脚本另存为togglerwsencryption.vbs
保存脚本后在TMG上以管理员方式运行cscript c:\togglerwsencryption.vbs.
本文出自 “笨鸟先飞” 博客，请务必保留此出处http://tingdongwang.blog.51cto.com/1056852/822472