>Thank you very much this should get me on my way.

I found the one for setting that the password never expires:

oUser.UserFlags = Bitor(oUser.Userflags, 65536) && ADS_UF_DONT_EXPIRE_PASSWD

This is one of the constants I was referring to in my previous reply.
Hope it helps.