NONEXECUTABLE
Listing 4: Perl Script to Create a Standalone Batch File and Remap User Drives
($infile = shift) || die "Usage: nuparse <input file>\n";
open(INFILE, $infile) || print "Error opening file.";
while(<INFILE>) {
if (m!:!) {
($status, $rem) = split(/:\s*/);
($st, $drive) = split(" ", $status);
if (!$drive) {
$drive = $st;
}
($remote, $net) = split(/\s*Microsoft Windows Network/, $rem);
print "net use ", $drive, ": \"", $remote, "\"\n";
}
elsif (m!LPT[123]!) {
($status, $rem) = split(/LPT[123]\s*/);
($st, $drive) = split(" ", $status);
if (!$drive) {
$drive = $&;
}
($remote, $net) = split(/\s*Microsoft Windows Network/, $rem);
print "net use ", $drive, ": \"", $remote, "\"\n";
}
elsif (m!\\!) {
$drive = "[ ]";
($status, $remote) = split(" ");
print "net use ", $drive, ": \"", $remote, "\"\n";
}
}
close(CS);
|
|
