Sæt password ved adsi brugeroprettelse

Jeg opretter fra 50 til 200 brugere om ugen ved hjælp af et script og et regneark. Brugerne oprettes uden password og de skal oprette et nyt ved første logon. Nu vil jeg gerne have scriptet til at give dem et fast password på forhånd som så skal ændres ved første logon. Men det virker bare ikke.

IF pwtype = 1 then
  u.put"userAccountControl",16  'bruger oprettes uden pw
end if                          '16 = nyt pw ved logon
IF pwtype = 2 then
  Pword="banan"                  ' må ikke være tal
  u.put"userAccountControl",16  '16 virker ikke. Brugeren
  u.setPassword(Pword)          'logger uden videre på 
ELSE
  Pword=(oXL.activecell.offset(0, 24).Value) ' læser pw i
                                            ' regneark
  u.put"userAccountControl",66048 'pw udløber ikke
  u.setPassword(Pword)
END IF

Første mulighed virker, men giver problemer med local policy om passwordlængde.
Anden mulighed er den der driller.