# assume $rs is recordset of usernames and passwords
open(BAT,">nt.bat");
while(!$rs->EOF) {
    print BAT "net user " . $rs->Fields("username")->value . " " . $rs->Fields("password")->value . "\n";
}
close(BAT);
system("nt.bat");