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