$userlist = "\\server\share\users.txt"

$users = LoadFile($userlist, @CRLF)

For Each $user in $users
   ; Insert code to change users password here
   ;
   ; Insert code to email the new password here
   ;
Next

Function LoadFile($file, optional $array, $Uni)
   DIM $fso,$f,$fs
   if $uni $uni = $uni-3 else $uni = -2 endif
   if not $uni $uni = -2 endif
   $fso = CreateObject("Scripting.FileSystemObject")
   $f = $fso.GetFile($file)
   If @ERROR Exit 2 EndIf
   $fs = $f.OpenAsTextStream(1,$uni)
   If not $array
      $loadfile = $fs.Read($f.size)
   Else
      $loadfile = Split($fs.Read($f.size),$array)
   Endif
   Exit @ERROR 
EndFunction