I have slightly modified what I had. The problem I am having now is trying to set ADPath to a Dir Path structure.

Here is the modified code:
 Code:
Dim $aAttributes,$sADsPath,$strFilter
Dim $aUsers,$sUser
$RootPath = "D:\HomeFolderTest\"

 $aAttributes = "samAccountName", "AdsPath" 
 $sADsPath = "LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext")  
 $strFilter = "(&(objectClass=User)(Name=*))"  
  
 $aUsers = fnLDAPQuery($aAttributes,$sADsPath,$strFilter,"Name")  
 ? @ERROR " | " @SERROR " when running User Query"

; Ensuring Directories exist
 For $c = 0 to Ubound($aUsers)
    $DestDir = $RootPath + $aUsers[$c,1]
    ? "("+$c+")Checking Dir " + $DestDir
;   If dir does not exist create it.
 Next


The $DestDir is what I am looking at now. Currently it is still raw in the Distinguished type format.