WIN1@Codename

Codename

ISA or TMG にリモートデスクトップのサーバー公開ルールを追加するスクリプト

個人的にメモ


ISA or TMG にリモートデスクトップのサーバー公開ルールを追加するスクリプト。


Sub AddRDPRule()
    Dim objFPC
    Set objFPC = CreateObject("FPC.Root"
    Dim objFPCArray
    Dim objFPCPolicyRules
    Dim objFPCPolicyRule
    
    Set objFPCArray = objFPC.GetContainingArray()
    Set objFPCPolicyRules = objFPCArray.ArrayPolicy.PolicyRules  
    Set objFPCPolicyRule = objFPCPolicyRules.AddServerPublishingRule("RDP TEST", "10.10.10.1", "RDP (ターミナル サービス) サーバー")  
    objFPCPolicyRule.ServerPublishingProperties.IPsOnNetworks.Add "外部"
    objFPCPolicyRule.ServerPublishingProperties.OverridePublishPort = 3389    
    objFPCPolicyRules.Save
End Sub

コメント

コメントの投稿


管理者にだけ表示を許可する

トラックバック

トラックバック URL
http://codename2010.blog11.fc2.com/tb.php/187-6559b860
この記事にトラックバックする(FC2ブログユーザー)

FC2Ad