Create User in Active Directory

[fry2k]

Hello, I want create a new user in the Active directory with Autoit.

I try that sicnce weeks. I have found many scripts from many users - but not one can create a user for the active directory.

i know how to connect and how to change some attributes. But i cant find the solution to create a user with autoit.

Thx for any solution!!!

[Jos]

Hello, I want create a new user in the Active directory with Autoit.

I try that sicnce weeks. I have found many scripts from many users - but not one can create a user for the active directory.

i know how to connect and how to change some attributes. But i cant find the solution to create a user with autoit.

Thx for any solution!!!

Maybe post what you have and doesn't work ?

[fry2k]

for example, i have found this:

$userou = "testou"

$user = "testuser"

$fname = "firstname"

$lname = "lastname"

$description = "beschreibung"

Call ("CreateUser")

Func CreateUser($userou, $user, $fname, $lname, $description = "User")

;If ObjectExists($user) Then Return 0

Dim $objConnection, $objRootDSE

$objConnection = ObjCreate("ADODB.Connection") ; Create COM object to AD

$objConnection.Provider = "ADsDSOObject"

$objConnection.Open ("Active Directory Provider") ; Open connection to AD

$objRootDSE = ObjGet("LDAP://RootDSE")

$ObjOU = ObjGet("LDAP://" & $userou)

$cnname = "CN=" & $lname & "\, " & $fname

$ObjUser = $ObjOU.Create ("User", $cnname)

$ObjUser.Put ("sAMAccountName", $user)

$ObjUser.Put ("description", $description)

$ObjUser.SetInfo

Return 1

EndFunc ;==>CreateUser

No error and no working, maybe no Password?

[fry2k]

No idea?

[fry2k]

This i have tried too.

#include <Array.au3>

; Define AD Constants

Global Const $ADS_GROUP_TYPE_GLOBAL_GROUP = 0x2

Global Const $ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = 0x4

Global Const $ADS_GROUP_TYPE_UNIVERSAL_GROUP = 0x8

Global Const $ADS_GROUP_TYPE_SECURITY_ENABLED = 0x80000000

Global $ADS_GROUP_TYPE_GLOBAL_SECURITY = BitOR($ADS_GROUP_TYPE_GLOBAL_GROUP, $ADS_GROUP_TYPE_SECURITY_ENABLED)

; CreateUser

$userou = "users=OU, OINK=DC, LOCAL=DC" ; Form is "sampleou=ou, sampleparent=ou, sampledomain1=dc, sampledomain2=dc, sampledomain3=dc"

$user = "Username" ;Username, form is SamAccountName without leading 'CN='

$fname = "First Name"

$lname = "Last Name"

$description = "optional - Description"

Call ("CreateUser")

Func CreateUser($userou, $user, $fname, $lname, $description = "User")

If ObjectExists($user) Then Return 0

Dim $objConnection, $objRootDSE

$objConnection = ObjCreate("ADODB.Connection") ; Create COM object to AD

$objConnection.Provider = "ADsDSOObject"

$objConnection.Open ("Active Directory Provider") ; Open connection to AD

$objRootDSE = ObjGet("LDAP://RootDSE")

$ObjOU = ObjGet("LDAP://" & $userou)

$cnname = "CN=" & $lname & "\, " & $fname

$ObjUser = $ObjOU.Create ("User", $cnname)

$ObjUser.Put ("sAMAccountName", $user)

$ObjUser.Put ("description", $description)

$ObjUser.SetInfo

Return 1

EndFunc ;==>CreateUser

no error and no function ;(

[ptrex]

@fry2k

Can this help you out.

Dim $objDomain, $objUser

$objDomain = ObjGet("LDAP://cn=Users,dc=mycorp,dc=com")
$objUser = $objDomain.Create("user","cn=vlaunders")
$objUser.Put ("sAMAccountName", "vlaunders")
$objUser.Put ("userPrincipalName", "vlaunders@mycorp.com")

Don't forget to change the LDAP data to your settings.

regards

ptrex

[fry2k]

thx,

i was trying this. but no error und no function ;(

Dim $objDomain, $objUser

$objDomain = ObjGet("LDAP://cn=Users,dc=OINK,dc=LOCAL")

$objUser = $objDomain.Create("user","cn=vlaunders")

$objUser.Put ("sAMAccountName", "vlaunders")

$objUser.Put ("userPrincipalName", "vlaunders@OINK.LOCAL")

has nobody an idea how to create? i mean how to change i know, but i cant find out how to create ;(

PLZ