Select Code to Download

# assume $rs is recordset of usernames and passwords
open(BAT,">nt.bat");
...
}
close(BAT);
system("nt.bat");

# assume $rs is recordset of usernames and passwords
while(!$rs->EOF) {
    Win32::AdminMisc::SetPassword('DomainServer', $rs->Fields("usernam
+e")->value,$rs->Fields("password")->value);
}