Код:

@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
)
)