IMHO.WS - Как создать 200 новых юзеров в Ad при помощи скрипта?

IMHO.WS (http://www.imho.ws/index.php)

- Операционные системы M$ (http://www.imho.ws/forumdisplay.php?f=2)

Как создать 200 новых юзеров в Ad при помощи скрипта?

Господа NT/2000/2003 СусАдмины хотелось бы узнать как вы создаете новых юзеров в AD(Active Directory). Я имею ввиду не одного-двух юзеров а так к примеру 300-500 одним махом при помощи batch или *.vbs скрипта. Понятное дело что вручную можно просто чокнуться делать тучу экаунтов в домене, поделитесь пожалуйста своим оппытом.

В моем же случае нужно сделать 200 новых юзеров в AD, плюс home диски для них на файл сервере, плюс добавить их в соответствующие группы и так далее. Нужно сделать *.vbs скрипт который будет брать данные для нового юзера с text или Excel файла. В инете попадаются частично подобные решения но так что бы все в "одном флаконе" пока не видел. Большими знаниями в *.vbs скриптах не блещу, ну если есть готовое решение то думаю что смогу наладить под свои нужды.

Заранее спасибо.

Вот, пользуйте...

Код:

Set objRootDSE = GetObject("LDAP://rootDSE")

Set objContainer = GetObject("LDAP://cn=Users," & _

                             objRootDSE.Get("defaultNamingContext"))



For i = 1 To 500

    Set objLeaf = objContainer.Create("User", "cn=UserNo" & i)

    objLeaf.Put "sAMAccountName", "UserNo" & i

    objLeaf.SetInfo

Next

WScript.Echo "500 Users created."

а это для конфига аккаунта, только прицепи его сам в цикл :)

Код:

Set objUser = GetObject _

  ("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com")



objUser.Put "profilePath", "\\sea-dc-01\Profiles\myerken"

objUser.Put "scriptPath", "logon.bat"

objUser.Put "homeDirectory", "\\sea-dc-01\HomeFolders\myerken"

objUser.Put "homeDrive", "H:"



objUser.SetInfo

Не могу поверить что все WinNT/2K/2003 СусАдмины вручную создают 200-300 новых юзеров в домене. Понятное дело что требование к созданию нового экаунта варируется от одной компании к другой. Но все таки, общие требования всегда похожы. Для каждого нового юзера нужно как правило сделать Home папку, добавить его в соответствующую группу, OU и так далее. Неужели никто не пользуется скриптами для этой цели? К сожалению я в скриптах не очень силен, так бы уже давно что то свое слепил бы.

Спасибо a.Ardvark за отклик, к сожалению это не совсем то что я спрашывал. Данный скрипт это только частичный пример а не готовое решение. Мне нужен vbs срипт который будет работать вместе с text или excel файлом.

вряд ли кому интересно уже, но на всякий случай:
ldifde, csvde. Весьма мощные и однозначно стандартные инструменты.

А сразу все таки и не делается ничего... (Все постепенно)
Обычно когда нужно создать много аккаунтов, по идее создаются только учетная запись, и описание (ФИО), с пустым паролем(ну либо нулями забит), в теории аккаунт должен быть заблокирован по умолчанию...
А так что бы и рыбку съесть и ... сухим из воды выйти это вряд ли...

leonski
В NT-ResourceKit'е есть специальная приблуда:

Цитата:

Сообщение от ADDUSERS.EXE

Adds, Writes, or Erases accounts as specified by a delimited file.

ADDUSERS [/?] [\\computername [[/c | /d | /e] filename]] [/s:?]

/? Display this help screen.
/c Create accounts specified in the file.
/d Write current accounts to the specified file.
/e Erase user accounts specified in the file.
/s:? Sets the seperator character for the input/output file. Replace the
? with the character to be used for seperating fields. (eg /s:~)
Note: The seperator character is a comma ',' by default.

For detailed information please refer to the Resource Kit Help file.

Она как раз и позволяет вносить новых пользователей из файла с разделителями.