win7共享配置無線熱點

#!/usr/bin/perl -w 
#Author@Laomeng
=pod
   沒事就是寫着玩，這個工具可以吧。
=cut
use utf8;
use strict;
use Encode::CN;
use open ':encoding(gbk)',':std';
my $user = "$ENV{'USERNAME'}";
print  <<"EOF";
請確您當前用戶具有管理員權限,否則會則會執行失敗
結束任務,請按Ctrl-C組合命令,切換管理員來執行程序.
EOF

print "您當前用戶是：$user\n";
print "\n";
my ($ssid,$pass,$mode);
$mode = "allow";
#配置無線網絡名
print "請設置您的無線網名(英文+數字): ";
while (1) {
    if(chomp($ssid=<STDIN>)){
    if($ssid =~ /[a-zA-Z0-9]/){
    }else {
        print "您輸入的名字不符合規則，再來一次： "
    }
}
#配置無線網絡密碼
print "密碼英文與數字組合且長度爲8位,請設置您的無線密碼: "; 
while (chomp($pass=<STDIN>)) {
     if($pass =~/[a-zA-Z0-9]/){
        if(length($pass) == 8 ){
           last; #密碼等於8位結束本小塊代碼塊循環進入下一個循環
        }else {
            #print length($pass); #用於調試輸出密碼長度
            print "密碼小於8位或不符合規則，再來一次: ";
        }
     }
}
my ($val1,$val2) = ($ssid,$pass);
#配置無線網絡
my $setwlan="netsh wlan set hostednetwork mode=$mode ssid=$val1 key=$val2 keyUsage=persistent";
system($setwlan);
#啓動無線網絡
my $stawlan="netsh wlan  start hostednetwork";
system($stawlan);
print "\n";
if( $? == 0){
print << "EOF";
您設置的無線網絡名爲: $ssid
您設置的無線網密碼爲：$pass

提示：
當有提示您的網絡配置成功後，還需要手動配置本地網絡共享，打開本網絡右鍵
--->屬性-->共享-->允許--->選擇無線這樣就配置成功了，謝謝！(60秒後關閉)


                                                                                           Author\@老孟
                                                                 2015-08-05

EOF
   } else { print "配置失敗\n";}
   sleep(60);
   last; #配置完成或失敗結束循環
}
![這裏寫圖片描述](http://img.blog.csdn.net/20160101114032058)