Ok I'm using the following code to Add a home drive to my user in AD. I can see the changes in ADUC however when the user logs it connects the home drive as:
\\server01\home$\
instead of
\\server01\home$\newuser

DE.Properties("homeDrive").Add("h:")
DE.Properties("homeDirectory").Add("\\server01\home$\%username%")
DE.CommitChanges()

However if I just open ADUC go to the profile tab and hit apply next log on it works. I'm I missing something in my code to create the Directory itself?