Брандмауэр не включается после выполнения программы

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.Согласно этой статье вы должны использовать

netsh firewall set opmode ENABLE

в более старых версиях, но в 2008 и Vista (и я полагаю, Win7 тоже) вы должны использовать

netsh advfirewall set currentprofile state on

Так что или удалите advfirewall из вашей команды, если это XP или 2003, или полностью измените его на новую команду, если это более новая версия Windows.