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 2 Application Compatibility にあるのでメモ