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)