[Iska]

Код:

#RequireAdmin
#NoTrayIcon

AutoItSetOption("MustDeclareVars", 1)

Local $sComputer = "."
Local $oIADsContainer = ObjGet("WinNT://" & $sComputer & ",computer")
Local $oIADsUser = $oIADsContainer.Create("user", "UserName")

$oIADsUser.SetPassword("His Password")
$oIADsUser.SetInfo

[sawas]

Спасибо)
Я просто думал через командную строку проще, но и с помощью ObjGet создается без проблем.
А как теперь создать группу и добавить этого пользователь в нее.
И как задать пароль другому пользователю (админу)

Иле подскажите где можно почитать подробнее про ObjGet, а именно по работе мс пользователями?

[Iska]

sawas, читать на MSDN: Active Directory Service Interfaces Reference (Windows) (обращайте внимание на используемого провайдера; здесь был использован «WinNT:»). Примеры — там же, переделка их с VBScript на AutoIt не представляет какого-то особого труда. Само собой — репозиторий скриптов: Powershell, VB Script, SQL and JavaScript - TechNet IT Pro's and Scripting Guys; например, конкретно Ваш вопрос здесь: Script Create a User Account and Add the User to the Local Administrators Group. После преобразований получается примерно следующее:

Код:

#RequireAdmin
#NoTrayIcon

AutoItSetOption("MustDeclareVars", 1)

Local $sComputer = @ComputerName
Local $oIADsContainer = ObjGet("WinNT://" & $sComputer & ",computer")
Local $oIADsUser = $oIADsContainer.Create("user", "UserName")

$oIADsUser.SetPassword("His Password")
$oIADsUser.SetInfo

Local $oIADsGroup = $oIADsContainer.Create("group", "GroupName")
$oIADsGroup.SetInfo
$oIADsGroup.Add($oIADsUser.ADsPath)