53 lines
1.4 KiB
PostScript
53 lines
1.4 KiB
PostScript
|
#---------------------------------------------------------------------------
|
||
|
|
# File: Del.eps
|
||
|
|
#
|
||
|
|
# Delete ports from firewall registry keys. Used via Firewall aliases.
|
||
|
|
#
|
||
|
|
# Modifications:
|
||
|
|
# 10/12/04 Created.
|
||
|
|
#---------------------------------------------------------------------------
|
||
|
|
|
||
|
|
@case-sensitive off;
|
||
|
|
@echo off;
|
||
|
|
|
||
|
|
if ($argc != 3 ||
|
||
|
|
(<int>$argv[1] < 1) ||
|
||
|
|
(<int>$argv[1] > 65535) ||
|
||
|
|
(($argv[2] != "tcp") && ($argv[2] != "udp"))) {
|
||
|
|
echo "Usage: $argv[0] <port number> <TCP|UDP>";
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
# Make protocol consistent with other registry entries
|
||
|
|
if ( $argv[2] == "tcp"){
|
||
|
|
$argv[2] = "TCP";
|
||
|
|
} else if ($argv[2] == "udp" ){
|
||
|
|
$argv[2] = "UDP";
|
||
|
|
} else {
|
||
|
|
echo "Invalid protocol";
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
string $delValue = "$argv[1]:$argv[2]";
|
||
|
|
string $subkey = "SYSTEM\\CurrentControlSet\\Services\\SharedAccess\\Parameters\\FirewallPolicy";
|
||
|
|
|
||
|
|
bool $rtn = true;
|
||
|
|
|
||
|
|
echo "Deleting $delValue from DomainProfile";
|
||
|
|
if (`regdelkey -hive l -key $subkey\\DomainProfile\\GloballyOpenPorts\\List -value $delValue`) {
|
||
|
|
echo " SUCCESS";
|
||
|
|
} else {
|
||
|
|
echo " FAILED";
|
||
|
|
$rtn = false;
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "Deleting $delValue from StandardProfile";
|
||
|
|
if (`regdelkey -hive l -key $subkey\\StandardProfile\\GloballyOpenPorts\\List -value $delValue`) {
|
||
|
|
echo " SUCCESS";
|
||
|
|
} else {
|
||
|
|
echo " FAILED";
|
||
|
|
$rtn = false;
|
||
|
|
}
|
||
|
|
|
||
|
|
return $rtn;
|