Khristinin
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
не ужели никто не автоматизировал это? ни как не могу найти скрипт. а как быть если пользователей свыше 1к. Вот есть такой скриптик он создает пользователей из списка. НО как вытащить из ад почтовые ящики пользователей, или имена входа?
И еще скрипт не создает привязку идентификации ад, если у кого есть напишите этот кусок.
Option Explicit
Dim obBaseApp
Dim objFSO
Dim objTextFile
Dim strNewUser,i
Const ForReading = 1
Set obBaseApp = CreateObject("hMailServer.Application")
Call obBaseApp.Authenticate("Administrator","вшпшеуч_89")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("1.csv", ForReading)
Do While objTextFile.AtEndOfStream <> True
strNewUser = split(objTextFile.Readline, ",")
AddUser strNewUser(0), strNewUser(1), strNewUser(2)
i = i + 1
Loop
Sub AddUser(strUsername, strPassword, strDomain)
Wscript.Echo strDomain
Dim obDomain
Dim obAccounts
Dim obNewAccount
Set obDomain = obBaseApp.Domains.ItemByName(strDomain)
Set obAccounts = obDomain.Accounts
Set obNewAccount = obAccounts.Add()
obNewAccount.Address = strUsername & "@" & strDomain 'username
obNewAccount.Password = strPassword 'password
obNewAccount.Active = true 'activates user
obNewAccount.Maxsize = 0 'sets mailbox size, 0=unlimite
obNewAccount.Save() 'saves account
Set obNewAccount =Nothing
Set obDomain =Nothing
Set obAccounts =Nothing
End Sub |
Всего записей: 14 | Зарегистр. 08-09-2009 | Отправлено: 11:21 09-09-2009 | Исправлено: Khristinin, 11:24 09-09-2009 |
|
