north_crow
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребята!!!
помогите плиз. весь форум и весь инет облазил в поисках и так и не нашел ответа на проблему 
есть вот такой скрипт для создания юзеров в AD по списку из экселя:
Код: 'On Error Resume Next
path_file="D:\SHARE_ALL\Crow\VBS\new_users.xls"
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open (path_file)
intRow = 2 ' начальная строчка в excel где начинается список
Do Until objExcel.Sheets("New_user").Cells(intRow, 1).Value = "" 'Продолжаем пока не встретим пустую ячейку
'Вытаскиваем данные из ячеек
Familiya = objExcel.Sheets("New_user").Cells(intRow, 1).Value 'Фамилия
Imya = objExcel.Sheets("New_user").Cells(intRow, 2).Value 'Имя
Otchestvo = objExcel.Sheets("New_user").Cells(intRow, 3).Value 'Отчество
Login = objExcel.Sheets("New_user").Cells(intRow, 4).Value 'Login
Password = objExcel.Sheets("New_user").Cells(intRow, 5).Value 'Пароль
FIO = Familiya & " " & Imya & " " & Otchestvo 'Полное ФИО
'Создаем пользователя в AD
Set objOU = GetObject("LDAP://OLCON-DC01/ou=Test,dc=olcon,dc=severstalgroup,dc=com")
Set objUser = objOU.Create("user", "cn=" & FIO)
objUser.sAMAccountName = Login 'Login
objUser.GivenName = Imya 'Имя
objUser.SN = Familiya 'Фамилия
objUser.userPrincipalName = "" & Login & "@olcon.severstalgroup.com" 'Учетная запись
'objUser.Put "mail", "" & Login & "@olcon.ru" 'E-mail
objUser.mailNickname = Login 'Псевдоним Exchange
objUser.company = "Олкон" 'Организация
objUser.displayName = FIO 'Выводимое имя
objUser.SetInfo
'Задаем пароль и включаем акаунт
objUser.SetPassword Password 'Пароль
objUser.AccountDisabled = False
objUser.Put "userAccountControl", &h10000 'Срок действия пароля неограничен
objUser.SetInfo
'Создаем пользователю ящик в Exchange
Set objMailbox = objUser
objMailbox.CreateMailbox "LDAP://CN=Mailbox Store (OLCON-DC01),CN=First Storage Group," & _
"CN=InformationStore,CN=OLCON-DC01,CN=Servers,CN=AG-Olgsk-OLCON," & _
"CN=Administrative Groups,CN=Severstalgroup,CN=Microsoft Exchange," & _
"CN=Services,CN=Configuration,DC=severstalgroup,DC=com"
objUser.SetInfo
intRow = intRow + 1
Loop
objExcel.Quit |
скрипт рабочий - но есть одно НО... он работает полностью только если его запускать с самого сервака (на который пришлось поставить эксель  ). а вот если его запускать с локальной машины (с правами доменного аднима) - то создается только запись в AD а вот создавать ящик в эксчендже не хочет
ругается на строку
Код:| objMailbox.CreateMailbox "LDAP://CN=Mailbox Store..... |
и вот такая появляется ошибка:
Ошибка: Объект не поддерживает это свойство или метод: objMailbox.CreateMailbox
Код: 800A01B6
как можно побороть эту ошибку??? может нужно чегонить доставить из софта на локальную машину??? а то неудобно это скрипт запускать с сервака, т.к. для него неохото на серваке держать специально эксель! |
