What is the best way to create ActiveDirectory Users

[stefbrt]

Hi All

I want to create ActiveDirectory Users out of Servoy.
What ist the best way to this?
Is there an easy solution? I have the it2be_ldapclient Plugin but can't find a way to create an AD-User.

Regards,
Stefan

[HEKUCH]

Hi Stefan,
I have never do this. One possibility would be to to create a vb-script (oder Powershell-Script) an then execute this script from Servoy.
Here a smal example vb-script:

Option Explicit
Dim strUser
Dim objRootLDAP, objContainer, objNewUser
strUser = "DomGuy2"

' Bind to Active Directory, Users container.
Set objRootLDAP = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Users," & _
objRootLDAP.Get("defaultNamingContext"))

' Build the actual User.
Set objNewUser = objContainer.Create("User", "cn=" & strUser)
objNewUser.Put "sAMAccountName", strUser
objNewUser.SetInfo

WScript.Quit

[stefbrt]

Hi Hendrick

How would I execute the PowerShell Script in Servoy? With "application.executeProgram()"?

Regards,
Stefan

[HEKUCH]

Hi Stefan,
Unfortunately, I have no example with PowerShell. But with VB-script this works:

Code: Select all

var loFile_vbs = plugins.file.createTempFile('~test','.vbs')
plugins.file.writeTXTFile(loFile_vbs,'WScript.Echo "Hello, World von VB-Script"') ;
application.executeProgram("rundll32.exe", ["url.dll,FileProtocolHandler", loFile_vbs.getPath()]);