Учетная запись!

[Шурик]

Собственно как ее создать програмно???

[alibek]

Через ADSI элементарно. Через API жуткий гемморой. Тебе как?

[Tarik]

Через ADSI элементарно

Э-э-э... Не подскажешь ламеру, что такое ентот ADSI?

[alibek]

Active Directory Services Interface
Естественно, требует для работы Active Directory (т.е. на NT4 пойдет при условии установленной поддержки AD).

[Шурик]

Active Directory Services Interface
Естественно, требует для работы Active Directory (т.е. на NT4 пойдет при условии установленной поддержки AD).

Извиняйте что так долго не был)))
Если можно то через ADSI.
Заранее СПАСИБО!!!

[alibek]

Код: Выделить всё

Set objDomain = GetObject("LDAP://dc=fabrikam,dc=com")
Set objOU = objDomain.Create("organizationalUnit", "ou=Management")
objOU.SetInfo

Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com")
Set objUser = objOU.Create("User", "cn= AckermanPilar")
objUser.Put "sAMAccountName", "AckermanPila"
objUser.SetInfo

Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com")
Set objGroup = objOU.Create("Group", "cn=atl-users")
objGroup.Put "sAMAccountName", "atl-users"
objGroup.SetInfo

objGroup.Add objUser.ADSPath


http://www.vbrussian.com/Article.asp?ID=77