<div>
<br />
Lots of questions ;)<br />
<br />
<br />
Set objRootDSE = GetObject(&quot;LDAP://RootDSE&quot;<wbr />)<br />
Set objOU = GetObject(&quot;LDAP://OU=SomeO<wbr />U,&quot; &amp;&nbsp;objRootDSE.Get(&quot;defaultNam<wbr />ingContext<wbr />&quot;))<br />
<br />
objOU.Create(&quot;user&quot;, &quot;CN=User Name&quot;)<br />
<br />
After that you can set user properties as you see fit followed by &quot;objUser.SetInfo&quot;.<br />
<br />
Chris
</div>



Lots of questions ;)


Set objRootDSE = GetObject("LDAP://RootDSE")
Set objOU = GetObject("LDAP://OU=SomeOU," & objRootDSE.Get("defaultNamingContext"))

objOU.Create("user", "CN=User Name")

After that you can set user properties as you see fit followed by "objUser.SetInfo".

Chris

<div>
Will this work if the OU is three or four OU's deep?<br />
Also How do i set the strDomain String for userPrincipalName if im trying to Determine the Domain.<br />
<br />
strOU = &quot;ounamehere&quot;<br />
strUserID = &quot;usernamehere&quot;<br />
<br />
Set objRootDSE = GetObject(&quot;LDAP://RootDSE&quot;<wbr />)<br />
Set objOU = GetObject(&quot;LDAP://&quot; &amp;&nbsp;strOU &amp;&nbsp;,&quot; &amp;&nbsp;objRootDSE.Get(&quot;defaultNam<wbr />ingContext<wbr />&quot;))<br />
<br />
Set objUser = objOU.Create(&quot;user&quot;, &quot;CN=&quot; &amp;&nbsp;strUserID)<br />
&nbsp; &nbsp; objUser.Put &quot;samAccountName&quot;, strUserID<br />
&nbsp; &nbsp; objUser.Put &quot;userPrincipalName&quot;, strUserID &amp;&nbsp;strDomain<br />
&nbsp; &nbsp; objUser.Put &quot;sn&quot;, strSurname<br />
&nbsp; &nbsp; objUser.Put &quot;givenName&quot;, strFirstName<br />
&nbsp; &nbsp; objUser.Put &quot;displayName&quot;, strFirstname &amp;&nbsp;&quot; &quot;&nbsp;&amp; strSurname<br />
&nbsp; &nbsp; objuser.Put &quot;description&quot;, &quot;Student User - &quot;&nbsp;&amp; strGroup<br />
&nbsp; &nbsp; objUser.SetInfo<br />

</div>


Will this work if the OU is three or four OU's deep?
Also How do i set the strDomain String for userPrincipalName if im trying to Determine the Domain.

strOU = "ounamehere"
strUserID = "usernamehere"

Set objRootDSE = GetObject("LDAP://RootDSE")
Set objOU = GetObject("LDAP://" & strOU & ," & objRootDSE.Get("defaultNamingContext"))

Set objUser = objOU.Create("user", "CN=" & strUserID)
    objUser.Put "samAccountName", strUserID
    objUser.Put "userPrincipalName", strUserID & strDomain
    objUser.Put "sn", strSurname
    objUser.Put "givenName", strFirstName
    objUser.Put "displayName", strFirstname & " " & strSurname
    objuser.Put "description", "Student User - " & strGroup
    objUser.SetInfo


<div>
<div class="content wysiwyg-content">
I need a script that will determine the domain, connect to an ou (strOU) then Create a user. Please post your script and help here
</div>
</div>


I need a script that will determine the domain, connect to an ou (strOU) then Create a user. Please post your script and help here

Connect to OU and Create User

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.