如何创建一个vbs文件，来操作控制面板？

sd2951811

以设置关闭防火墙为例子。以下一段脚本仅仅是打开防火墙。但是没有操作的
dim pp
Set pp=CreateObject("WScript.Shell")
pp.run "rundll32.exe shell32.dll,Control_RunDLL firewall.cpl @0"

应该怎么做才能让它执行关闭防火墙并确定呢？
我本来是用QTP来记录操作。用QTP回放。但是现在准备做成一个可执行文件。不用QTP直接把脚本做成可执行文件。
我想做成vbs，但是不知道后面应该怎么写！请各位达人帮帮忙！

TIB

' Disable the Firewall

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

objPolicy.FirewallEnabled = FALSE

Set objPolicy = Nothing
Set objFirewall = Nothing

sd2951811

果然好用。能不能家点注释啊？想学习学习。