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

sd2951811 · 发表于 2010-4-23 10:56:53

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

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

sd2951811 · 发表于 2010-4-24 14:54:44

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

TIB · 发表于 2010-4-23 20:31:24

' Disable the Firewall

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

objPolicy.FirewallEnabled = FALSE

Set objPolicy = Nothing
Set objFirewall = Nothing

		自动登录	找回密码
密码			(注-册)加入51Testing

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

相关帖子

站长推荐 /1