а кто подскажет, как установить sAMAccountName длиной долее 20 символов?
Set objGroup = objContainer.Create("Group", "cn=" + strGrpName)
objGroup.Put "sAMAccountName", Left(strShortName, 21) ' тут не хочет
objGroup.Put "Description", Left(strDescr, 63)