$!AddUsers.xcp
$
$open inputfile "users.txt"
$for (,,)
$   read inputfile line /end_of_file=END
$
$   user     = f$element(0,",",line)
$   password = f$element(1,",",line)
$   fullname = f$element(2,",",line)
$   comment  = f$element(3,",",line)
$   groups   = f$element(4,",",line)
$
$   SECURITY CREATE USER "''user'" /DOMAIN /name="''fullname'" /password="''password'" /comment="''comment'" /log
$
$   x = 0
$   for (,,)
$      tmpgrp = f$element(x,"|",groups)
$      if tmpgrp .eqs. "|" then leave
$      SECURITY MODIFY GROUP "''tmpgrp'" /DOMAIN /member="''user'"
$      x = x + 1
$   endfor
$
$endfor
$
$END:
$close inputfile
$exit