Actually I use the Perl script below to launch Raven Shield for the daily lunchtime mayhem at work. Does that count :-D.
use strict;
use warnings;
# change these to work with your machine.
my $interface_name = "Local Area Connection";
my $RSPath = 'C:\games~~\Red Storm Entertainment\RavenShield';
# Get current IP
my $config = `ipconfig`;
$config =~ /IP Address[. :]+([\d.]*)/;
my $myIP = $1;
munt();
show();
launch();
unmunt();
show();
sub launch
{
print `$RSPath/system/RavenShield.exe`;
}
sub munt
{
print `netsh interface ip set dns "$interface_name" static $myIP`;
}
sub unmunt
{
print `netsh interface ip set dns "$interface_name" dhcp`;
}
sub show
{
print `netsh interface ip show dns`;
}
DWIM is Perl's answer to Gödel
|