执行程序后防火墙无法启动

Question

Dim command
Dim status

command = "psexec \\ 172.16.11.63 netsh advfirewall firewall set opmode "
status = "enable"

Set oShell = CreateObject("WScript.shell")

oShell.CurrentDirectory = "C:\PSexec\"
oShell.Run "command.com /k " & command & status

Set oShell = Nothing

嗨，我这里有一个示例脚本，假设启用我的防火墙，如果它已被禁用，但它不起作用，但是如果我将status更改为disable并且我的防火墙已经启用在执行程序后，将禁用启用的防火墙。有任何想法吗？感谢。

Answer 1

您似乎在为不同版本的Windows混合命令。根据{{​​3}}文章，你应该使用

netsh firewall set opmode ENABLE

在旧版本中，但在2008年和Vista（我也假设Win7）你应该使用

netsh advfirewall set currentprofile state on

因此，如果它是XP或2003，请从命令中删除advfirewall，或者如果它是较新的Windows版本，则将其完全更改为新命令。