Windows XP SP2のFirewall関連についてのメモ

Window XP SP2の自動アップデート猶予期限が間近に迫ってきたせいか、嫌でもSP2の展開をせざるを得なくなって、うちの環境でも展開始まった。

Windows XP SP2のFirewallの設定がどうなっているのかを調べるスクリプトだけどHNetCfg.FwMgrというオブジェクトが用意されているらしく下記のようなスクリプトでチェックできるみたい。

Option Explicit
Dim objFireWall
Dim objPolicy
Dim colOpenPorts
Dim objPort

Set objFireWall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFireWall.LocalPolicy.CurrentProfile

Wscript.Echo objPolicy.FirewallEnabled

詳細＆サンプルがMicrosoftのWindows XP Service Pack ２ Application Compatibility にあるのでメモ