And yes, you can change the IP address of an interface. After all, when your machine comes up, the interfaces won't have an IP address. It's often set during, or shortly after the boot sequence.

The same with the name of a computer. It's something that's set during the boot process. On Unix computers, you'd use the hostname command for that.

There's no standard way of setting hostnames or IP addresses in Perl. The easiest way of doing so would be to call an external program. On Unix, you'd call ifconfig (and check your systems manual for its options, it varies from system to system) to set an IP address, and hostname to set a hostname.

On Windows, you call something else.

Abigail

I'm running Windows 98 on this machine and a quick search of the registry for my ip address shows that it is stored in a string value called "IPAddress" in the HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\xxxx branch. (xxxx will vary.) So I'd start by looking at all of the appropriate values using regedit. Then I would use Win32::TieRegistry to change those string values before rebooting. (Different version of Windows will probably have different registry keys.)

Another option would be to automate the task using Win32::GUITest or the like...

#!/perl/bin/perl

use Net::Telnet;

use CGI qw(:all);



#my @rv=`serverconfig.pl $host    $newip  $password $hostname $netmask
+ 
#             $gateway $dbdns1 $dbdns2   $dbwins1  $dbwins2`;


my $username = "administrator";

my $host       = "$ARGV[0]";
my $newip      = "$ARGV[1]";
my $password   = "$ARGV[2]";
my $servername = "$ARGV[3]";
my $netmask    = "$ARGV[4]";
my $gateway    = "$ARGV[5]";
my $dns1       = "$ARGV[6]";
my $dns2       = "$ARGV[7]";
my $wins1      = "$ARGV[8]";
my $wins2      = "$ARGV[9]";

my $t = Net::Telnet->new(Timeout =>5, Prompt=>'/\>/');
my $ok;

$ok = $t->open($host);
$ok = $t->login($username, $password);

$ok  = $t->cmd("netsh interface ip add dns \"Production LAN\" $dns1 in
+dex=1");
sleep 2;
$ok  = $t->cmd("netsh interface ip add dns \"Production LAN\" $dns2 in
+dex=2");
sleep 2;
$ok  = $t->cmd("netsh interface ip delete wins \"Production LAN\" all"
+);
sleep 2;
$ok  = $t->cmd("netsh interface ip add wins \"Production LAN\" $wins1 
+index=1");
sleep 2;
$ok  = $t->cmd("netsh interface ip add wins \"Production LAN\" $wins2 
+index=2");
sleep 2;


$ok = $t->cmd("echo netsh interface ip set address \"Production LAN\" 
+static $newip $netmask $gateway 1 > c:\\\"Documents and Settings\"\\A
+dministrator\\Desktop\\set_ip.bat");
sleep 2;

$ok = $t->cmd("echo erase set_ip.bat >> c:\\\"Documents and Settings\"
+\\Administrator\\Desktop\\set_ip.bat");
sleep 2;
$ok = $t->cmd("exit");
sleep 1;
$t->close;

print redirect("admin.cgi?query=$args");
[download]

You did not specify what's your OS. Anyway did you look whether Win32::AdminMisc or Win32::Lanman support this?

To restart the computer you might

use Win32;
Win32::InitiateSystemShutdown(Win32::NodeName(), "", 0, 0, 1);
[download]

use Win32::API;
sub EWX_LOGOFF () {0}
sub EWX_SHUTDOWN () {0x00000001}
sub EWX_REBOOT () {0x00000002}
sub EWX_FORCE () { 0x00000004}
sub EWX_POWEROFF () {0x00000008}
sub EWX_FORCEIFHUNG () {0x00000010}

$ExitWindows = new Win32::API ('kernel32','ExitWindowsEx', ['L','L'], 
+'L');
$ExitWindows->Call(EWX_REBOOT,0);
[download]

Jenda
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live.
   -- Rick Osborne

Edit by castaway: Closed small tag in signature

 
netsh interface ip 
add address [name=]InterfaceName [addr=]IPAddress [mask=]SubnetMask [[
+gateway=] DefaultGateway [gwmetric=]GatewayMetric]
[download]

You should note in my example above.. that the standard connection is Local Area Connection -vs- Production LAN which is what our segment is called... it makes a difference, you will have to plug your correct connection name in... caps don't matter, but spelling does! :) ++ to Josh too :)