Const ADS_PROPERTY_UPDATE = 2 
 
Dim ObjWb 
Dim ObjExcel 
Dim x, zz 
Set objRoot = GetObject("LDAP://RootDSE") 
strDNC = objRoot.Get("DefaultNamingContext") 
Set objDomain = GetObject("LDAP://" & strDNC) ' Bind to the top of the Domain using LDAP using ROotDSE 
 
For Each objMember In objDomain ' go through the collection 
  If ObjMember.Class = "user" Then ' if not User object, move on. 
    CN = ObjMember.CN
    FirstName = objMember.GivenName 
    LastName = objMember.sn 
    initials = objMember.initials 
	
	'Need to use correct parameters here if applied
	Set objUser = GetObject _
      ("LDAP://cn=" &  & ",ou=management,dc=fabrikam,dc=com")
 
    objUser.Put "givenName", UCase(Left(FirstName,1) & Right(FirstName, Len(FirstName)-1)
    objUser.Put "initials", UCase(initials)
    objUser.Put "sn", UCase(Left(LastName,1) & Right(LastName, Len(LastName)-1)
	
	objUser.SetInfo
  end if
Next