Jump to content
Sign in to follow this  
fry2k

Create User in Active Directory

Recommended Posts

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!!!

Share this post


Link to post
Share on other sites
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 ?

:)


Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
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?

Share this post


Link to post
Share on other sites
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 ;(

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.