Ксеноинженер
20-07-2014, 03:14
Уважаемые знатоки, ищу аналогичное решение на WSH - на cmd не отрабатывает по некоторым именам правил, так:@Echo Off
cls
SetLocal EnableExtensions EnableDelayedExpansion
FOR /F "usebackq delims=" %%s IN (`reg query HKLM\SYSTEM\CurrentControlSet\services\SharedAccess\Parameters\FirewallPolicy\FirewallRules /s /f "dir=in"`) DO (
Set SS="%%s"
Set SS=!SS:*^|Name=!
FOR /F "usebackq delims=|=" %%L IN ('!SS!') DO (Set String=%%L
netsh advfirewall firewall set rule name="!String!" dir=in new enable=no
netsh advfirewall firewall set rule name="!String!" dir=in profile=public new enable=no
netsh advfirewall firewall set rule name="!String!" dir=in profile=domain new enable=no
netsh advfirewall firewall set rule name="!String!" dir=in profile=private new enable=no
)
)
Задача: для всех значений ветви реестра HKLM\SYSTEM\CurrentControlSet\services\SharedAccess\Parameters\FirewallPolicy\FirewallRules, содержащих строку "dir=in", заменить "enable=yes" на "enable=no"
cls
SetLocal EnableExtensions EnableDelayedExpansion
FOR /F "usebackq delims=" %%s IN (`reg query HKLM\SYSTEM\CurrentControlSet\services\SharedAccess\Parameters\FirewallPolicy\FirewallRules /s /f "dir=in"`) DO (
Set SS="%%s"
Set SS=!SS:*^|Name=!
FOR /F "usebackq delims=|=" %%L IN ('!SS!') DO (Set String=%%L
netsh advfirewall firewall set rule name="!String!" dir=in new enable=no
netsh advfirewall firewall set rule name="!String!" dir=in profile=public new enable=no
netsh advfirewall firewall set rule name="!String!" dir=in profile=domain new enable=no
netsh advfirewall firewall set rule name="!String!" dir=in profile=private new enable=no
)
)
Задача: для всех значений ветви реестра HKLM\SYSTEM\CurrentControlSet\services\SharedAccess\Parameters\FirewallPolicy\FirewallRules, содержащих строку "dir=in", заменить "enable=yes" на "enable=no"