40 lines
936 B
PostScript
40 lines
936 B
PostScript
@echo on;
|
|
@record on;
|
|
`getdirectory -scripts`;
|
|
string $ScriptsDir = GetCmdData("dir");
|
|
@record off;
|
|
ifnot (defined($ScriptsDir[0])) {
|
|
$ScriptsDir="E:\\resources\\ep\\scripts";
|
|
}
|
|
|
|
string $args="";
|
|
string $arg;
|
|
|
|
if($argc < 2){
|
|
echo "Usage: $argv[0] <scan type> <target IP> [dst port] [src port]\n";
|
|
echo "Usage: $argv[0] scans : to list available scans\n";
|
|
return false;
|
|
}
|
|
int $i=1;
|
|
while ($i < sizeof($argv)) {
|
|
# $arg=split(" ", $argv[$i]);
|
|
$arg=$argv[$i];
|
|
# ifnot ($arg == $argv[$i]) {
|
|
# $arg="\"$argv[$i]\"";
|
|
# }
|
|
# TODO: when split works again, go back to being smart with quotes
|
|
#if ($args == "") {
|
|
#$args="\"$arg\"";
|
|
#} else {
|
|
$args="$args $arg";
|
|
#}
|
|
$i++;
|
|
}
|
|
|
|
ifnot (`local run -command "perl $ScriptsDir\\..\\..\\..\\Tools\\make_scan_script.pl $args" -redirect scan`) {
|
|
echo "* $argv[0]: Script failed";
|
|
return false;
|
|
} else {
|
|
@echo on;
|
|
return `script redirect_scan.eps`;
|
|
}
|