WinXP设置IP(使用了POE模块)

aef25u

经常出差，有不少客户用的是静态IP，总是手工设置感觉很麻烦，所以写了这个小工具。

1. #!/usr/bin/perl
   
2. #use Acme::PerlTidy;
   
3. 
   
4. package IpChange;
   
5. use Cwd;
   
6. 
   
7. sub new {
   
8.     my $self  = shift;
   
9.     my $class = ref($self) || $self;
   
10.     my $rh    = {};
    
11.     $rh->{type} = shift;
    
12.     $rh->{ip}       = shift;
    
13.     $rh->{gateway}  = shift;
    
14.     $rh->{dns}      = shift;
    
15.     bless $rh, $class;
    
16.     return $rh;
    
17. }
    
18. 
    
19. sub SetIp {
    
20.     my $self = shift;
    
21.     my $dir  = Cwd::getcwd();
    
22.     my $file = $dir . '/IPconfig';
    
23. 
    
24.     $self->_Write( $self->{type}, $self->{ip}, $self->{gateway},
    
25.         $self->{dns}, $file );
    
26.     system "netsh -f $file";
    
27. 
    
28. }
    
29. 
    
30. sub _Write {
    
31.     my ( $self, $type, $ip, $gateway, $dns, $file ) = @_;
    
32. 
    
33.     my $msg = <<"EOF";
    
34. 
    
35. # ----------------------------------
    
36. # 接口 IP 配置         
    
37. # ----------------------------------
    
38. pushd interface ip
    
39. 
    
40. set address name="$type" source=static addr=$ip mask=255.255.255.0
    
41. set address name="$type" gateway=$gateway gwmetric=0
    
42. set dns name="$type" source=static addr=$dns register=PRIMARY
    
43. set wins name="$type" source=static addr=none
    
44. 
    
45. popd
    
46. # 接口 IP 配置结束   
    
47.    
    
48. EOF
    
49. 
    
50.     open my $fh, ">$file";
    
51.     print $fh $msg, "\n";
    
52.     close $fh;
    
53. }
    
54. 
    
55. package main;
    
56. 
    
57. use POE;
    
58. #################################################################
    
59. #预设不同单位的IP地址
    
60. my $hip = {
    
61.     '单位1' => {
    
62.         'ip'      => '192.168.0.128',
    
63.         'gateway' => '192.168.0.1',
    
64.         'dns'     => '61.139.2.69',
    
65.     },
    
66.     '单位2' => {
    
67.         'ip'      => '192.168.0.129',
    
68.         'gateway' => '192.168.0.1',
    
69.         'dns'     => '61.139.2.69',
    
70.     },
    
71. };
    
72. #################################################################
    
73. #print $hip->{'单位1'}{'ip'},"\n";
    
74. 
    
75. POE::Session->create(
    
76.     inline_states => {
    
77.         _start     => \&Start,
    
78.         chooseFirm => \&chooseFirm,
    
79.         Set        => \&Set,
    
80.         Exit       => \&Exit,
    
81.     },
    
82. );
    
83. POE::Kernel->run;
    
84. #选择网络连接类型
    
85. sub Start {
    
86.     my ( $kernel, $heap ) = @_[ KERNEL, HEAP ];
    
87.     my @array = qw(本地连接 无线网络连接);
    
88.     push( @array, Exit );
    
89.     my $prompt = '请选择网络连接类型：';
    
90.     my $type = _choose( $prompt, @array );
    
91.     if ( $type eq 'Exit' ) {
    
92.         $kernel->yield(Exit);
    
93.     }
    
94.     else {
    
95. 
    
96.         #向chooseFirm()传递参数
    
97.         $kernel->yield( chooseFirm => $type );
    
98.     }
    
99. }
    
100. #接受输入
     
101. sub _choose {
     
102.     my ( $prompt, @array ) = @_;
     
103.     return '' unless @array;
     
104.     print $prompt, "\n";
     
105.     print "  $_: $array[$_]\n" for ( 0 .. $#array );
     
106.     my $n = <>;
     
107.     return $array[$n] if $n =~ /^\d+$/ and defined $array[$n];
     
108. }
     
109. 
     
110. sub chooseFirm {
     
111.     my ( $kernel, $heap, $type ) = @_[ KERNEL, HEAP, ARG0 ];
     
112.     my @array = keys( %{$hip} );
     
113.     push( @array, Exit );
     
114.     my $prompt = '请选择设置IP的单位：';
     
115.     my $firm = _choose( $prompt, @array );
     
116.     if ( $firm eq 'Exit' ) {
     
117.         $kernel->yield(Exit);
     
118.     }
     
119.     else {
     
120.    
     
121.     #将"网络连接类型"和"单位"传给package IpChange的Set()函数   
     
122.         $kernel->yield( Set => ( $type, $firm ) );
     
123.     }
     
124. 
     
125. }
     
126. 
     
127. sub Set {
     
128.     my ( $kernel, $heap ) = @_[ KERNEL, HEAP ];
     
129.     my ( $type, $firm ) = @_[ ARG0 .. $#_ ];
     
130. 
     
131.     #从package main散列的引用$hip和chooseFirm()取得Set()函数所需参数
     
132.     my ( $ip, $gateway, $dns ) =
     
133.       ( $hip->{$firm}{'ip'}, $hip->{$firm}{'gateway'}, $hip->{$firm}{'dns'} );
     
134. 
     
135.     #实例化IpChange设置IP，传入网络连接类型、IP、gateway和dns
     
136.     print '请你耐心等候...',"\n";
     
137.     my $change = IpChange->new( $type, $ip, $gateway, $dns );
     
138.     $change->SetIp();
     
139.     print 'Done!',"\n";
     
140.     sleep(2);
     
141.     $kernel->yield(Exit);
     
142. }
     
143. sub Exit { exit 0 }

复制代码