● Re: 有关於大量建立帐号(fwd) - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Lg (终身努力便成天才), 信区: Linux
标  题: Re: 有关於大量建立帐号(fwd)
发信站: BBS 荔园晨风站 (Mon Nov  1 21:01:41 1999), 站内信件

【以下文字转载自 twFreeBSDQuestion 讨论区】
【原文由 nonel.bbs@bbs.hchcc.gov.tw 所发表】
※ 引述《Xpower@bbs.ee.ntu.edu.tw (力量之风)》之铭言：
: ※ 引述《d8635489.bbs@bbs.fcu.edu.tw (小淳♂)》之铭言：
: :      请问一下这是指令还是软体ㄚ???
: :      我也需要,要建1000多人.....
: :      若是软体,希望可以告知取得地点,安装方法,使用方法!!!
: :      希望大家帮个忙啦!!!
:         都是 BSD 内建指令群
利用简单的perl + pw 使用, 就可以方便的建大量帐号了,
下面是perl程式码, 它会去读叫做 test.data 的text file , 参考一下.....
格式是: username,password

例: 建立 user1 密码 1234
         user2 密码 5678
则 test.data 的内容为:
user1,1234
user2,5678

如果还有其它功能的需求, 请修改 $PW_COMMAND 部份的参数即可.

-----
#!/usr/bin/perl
$filename = 'test.data' ;
open(file,$filename) ;
while( $name=<file> ) {
        chop $name ;
        @name_array = split /,/,$name ;
        $PW_COMMAND="/usr/sbin/pw useradd $name_array[0] -m -h 0" ;
        $fname="|".$PW_COMMAND ; open(OUT, $fname) ;
        print OUT $name_array[1] ;
        close(OUT) ;
        print "UserName: ",$name_array[0],"\t\t",
              "PassWord: ",$name_array[1],"\n";
}

print "\n" ;
close(file) ;

--

        乐在不工作

--
※ Origin: 新竹县立文化中心 bbs.hchcc.gov.tw ◆ From: mail.hchcc.gov.tw
--
※ 转载:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 210.39.3.93]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店