in reply to Change IP-address and computer name on Win32
JamesNC Update... FYI, You don't ever need to reboot a machine when you change it's IP address... You will only have to do that if you change the hostname.#!/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");
|
|---|