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