<div>
 
I suspect we'll want two separate scripts to handle this. 
 
This is the first. Output is tab delimited. 
 
Chris 

<pre><code class="code-10 nolinks" id="code-266983">Const GROUP_DN = &quot;CN=Domain Admins,CN=Users,DC=domain,DC=com&quot;
 
Dim objAttributes : Set objAttributes = CreateObject(&quot;Scripting.Dictionary&quot;)
objAttributes.Add &quot;name&quot;, &quot;&quot;
objAttributes.Add &quot;mail&quot;, &quot;&quot;
objAttributes.Add &quot;manager&quot;, &quot;&quot;
objAttributes.Add &quot;displayName&quot;, &quot;&quot;
objAttributes.Add &quot;memberOf&quot;, &quot;&quot;
 
Dim strFilter : strFilter = &quot;(&amp;(objectClass=user)(objectCategory=person)(memberOf=&quot; &amp; GROUP_DN &amp; &quot;))&quot;
 
Dim objConnection : Set objConnection = CreateObject(&quot;ADODB.Connection&quot;)
objConnection.Provider = &quot;ADsDSOObject&quot;
objConnection.Open &quot;Active Directory Provider&quot;
 
Dim strAttribute
Dim strAttributes : strAttributes = &quot;distinguishedName&quot;
For Each strAttribute in objAttributes
 strAttributes = strAttributes &amp; &quot;,&quot; &amp; strAttribute
Next
 
Dim objRootDSE : Set objRootDSE = GetObject(&quot;LDAP://RootDSE&quot;)
Dim objRecordSet : Set objRecordSet = objConnection.Execute( _
 &quot;&lt;LDAP://&quot; &amp; objRootDSE.Get(&quot;defaultNamingContext&quot;) &amp; &quot;&gt;;&quot; &amp; _
 strFilter &amp; &quot;;&quot; &amp; strAttributes &amp; &quot;;subtree&quot;)
Set objRootDSE = Nothing
 
Dim objFSO : Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Dim objFile : Set objFile = objFSO.OpenTextFile(&quot;Users.txt&quot;, 2, True, 0)
objFile.WriteLine Replace(strAttributes, &quot;,&quot;, vbTab)
 
While Not objRecordSet.EOF
 Dim strLine : strLine = objRecordSet.Fields(&quot;distinguishedName&quot;).Value
 
 For Each strAttribute in objAttributes
 If IsArray(objRecordSet.Fields(strAttribute).Value) Then
 strLine = strLine &amp; vbTab &amp; Join(objRecordSet.Fields(strAttribute).Value, &quot;;&quot;)
 Else
 strLine = strLine &amp; vbTab &amp; objRecordSet.Fields(strAttribute).Value
 End If
 Next
 
 objFile.WriteLine strLine
 
 objRecordSet.MoveNext
WEnd
 
Set objFile = Nothing
Set objFSO = Nothing
 
Set objRecordSet = Nothing
Set objConnection = Nothing
</code></pre>
</div>

<div>
 
The second is a bit more difficult. 
 
What kind of format do we have for the import file? 
 
Chris
</div>

<div>
Hello Chris, 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Thank you for your quick reply.. The format will be text file. 
 
Regards, 
MG
</div>

<div>
 
I know, but you must be more specific than that. 
 
VbScript doesn't have a specific &quot;import this file&quot; function, it has to be told everything about the file. What columns am I to expect? What delimiter is being used? If it's comma delimited, do I have to deal with quotes? 
 
Chris
</div>

<div>
Hello Chris, 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;It should something like, 
objLog.WriteLine(&quot;User Input File:&quot; &amp;&nbsp;vbTab &amp;&nbsp;USER_LIST) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;objLog.WriteLine(&quot;Default Password for users&quot; &amp;&nbsp;vbTab &amp;&nbsp;DEFAULT_PASSWORD) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;objLog.WriteLine(&quot;Target AD Location:&quot; &amp;&nbsp;vbTab &amp;&nbsp;strOU) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;objLog.WriteBlankLines(2) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;objLog.WriteLine(&quot;samAccountName&quot; &amp;&nbsp;vbTab &amp;&nbsp;&quot;Display Name&quot; &amp;&nbsp;vbTab &amp;&nbsp;&quot;cn&quot;) 
Will this help? Sorry for not being a good explainer.. 
Regards, 
MG
</div>

<div>
 
Perfect, thanks :) 
 
I'll be right back... 
 
Chris
</div>

<div>
 
Actually, do you have a format for USER_LIST as well? 
 
Chris
</div>

<div>
Is this the one you asked for? I am not sure.. 
Dim strMid 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim strItem 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim strLine 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim strSn 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim strGivenName 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim strCity 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim strCountry 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim strSuffix 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim strScriptPath 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim strLog 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim strOU
</div>

<div>
 
This is to start us off. I'm still not quite clear on what's to happen with the USER_LIST / attribute list. 
 
However, this creates user accounts (if the username doesn't already exist) and sets a couple of properties then enables the account. 
 
Chris 

<pre><code class="code-100 nolinks" id="code-267171">
Const IMPORT_FILE = &quot;C:\Temp\Users.txt&quot;
 
Function ReadFile
 Dim objFile : Set objFile = objFSO.OpenTextFile(IMPORT_FILE, 1, False, 0)
 
 ' Global variables
 strAttributeList = Split(objFile.ReadLine, vbTab)(1)
 strDefaultPassword = Split(objFile.ReadLine, vbTab)(1)
 strTargetOU = Split(objFile.ReadLine, vbTab)(1)
 
 ' Skip the two blank lines
 objFile.SkipLine : objFile.SkipLine
 
 Dim objUsers : Set objUsers = CreateObject(&quot;Scripting.Dictionary&quot;)
 
 Do While Not objFile.AtEndOfStream
 Dim arrLine : arrLine = Split(objFile.ReadLine, vbTab)
 Dim strSAMAccountName : strSAMAccountName = arrLine(0)
 Dim strDisplayName : strDisplayName = arrLine(1)
 Dim strCN : strCN = arrLine(2)
 
 If Not objUsers.Exists(strSAMAccountName) Then
 objUsers.Add strSAMAccountName, Array(strDisplayName, strCN)
 End If
 Loop
 
 Set ReadFile = objUsers
End Function
 
Function CheckUsers(objUsers)
 Dim objNetwork : Set objNetwork = CreateObject(&quot;WScript.Network&quot;)
 Dim strDomain : strDomain = objNetwork.UserDomain
 Set objNetwork = Nothing
 
 Dim strUsername
 For Each strUsername in objUsers
 Dim strUserDN : strUserDN = GetObjectDN(strUsername, strDomain)
 
 If strUserDN &lt;&gt; &quot;&quot; Then
 objLogFile.WriteLine &quot;User Exists: &quot; &amp; strUsername &amp; &quot; :: &quot; &amp; strUserDN
 objUsers.Remove strUsername
 End If
 Next
 
 Set CheckUsers = objUsers
End Function
 
Function GetObjectDN(strObject, strDomain)
 ' Return Type: String
 '
 ' Returns a Distinguished Name for an Object from it's NT SAM ID.
 ' This will only function for valid object types within an NT Domain structure.
 
 Const ADS_NAME_INITTYPE_GC = 3
 Const ADS_NAME_TYPE_1779 = 1
 Const ADS_NAME_TYPE_NT4 = 3
 
 On Error Resume Next : Err.Clear
 Dim objNameTranslate : Set objNameTranslate = CreateObject(&quot;NameTranslate&quot;)
 
 objNameTranslate.Init ADS_NAME_INITTYPE_GC, &quot;&quot;
 objNameTranslate.Set ADS_NAME_TYPE_NT4, strDomain &amp; &quot;\&quot; &amp; strObject
 Dim strObjectDN : strObjectDN = objNameTranslate.Get(ADS_NAME_TYPE_1779)
 If Err.Number &lt;&gt; 0 Then ' Make the DN Blank for a Failed Search
 strObjectDN = &quot;&quot;
 End If
 
 Set objNameTranslate = Nothing
 On Error Goto 0
 
 GetObjectDN = strObjectDN
End Function
 
Sub CreateUsers(objUsers, strTargetOU)
 Dim objOU : Set objOU = GetObject(&quot;LDAP://&quot; &amp; strTargetOU)
 
 Dim strUsername
 For Each strUsername in objUsers
 Dim objUser : Set objUser = objOU.Create(&quot;user&quot;, objUsers(strUsername)(1))
 objUser.Put &quot;sAMAccountname&quot;, strUsername
 objUser.Put &quot;displayName&quot;, objUsers(strUsername)(0)
 objUser.SetInfo
 objUser.SetPassword strDefaultPassword
 
 objUser.AccountDisabled = False
 objUser.SetInfo
 
 objLogFile.WriteLine &quot;Created User: &quot; &amp; strUsername &amp; &quot; :: &quot; &amp; objUser.Get(&quot;distinguishedName&quot;)
 
 Set objUser = Nothing
 Next
End Sub
 
 
'
' Main code
'
 
Dim strAttributeList, strDefaultPassword, strTargetOU
 
Dim objFSO : Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Dim objLogFile : Set objLogFile = objFSO.OpenTextFile(&quot;LogFile.txt&quot;, 2, True, 0)
 
Dim objUsers : Set objUsers = ReadFile
Set objUsers = CheckUsers(objUsers)
 
If objUsers.Count &gt; 0 Then
 CreateUsers objUsers, strTargetOU
End If
</code></pre>
</div>

<div>
 
&gt;&nbsp;Is this the one you asked for? 
 
Not quite, I need to see the file it's supposed to be reading (rather than the vbscript parts). 
 
Chris
</div>

<div>
Hello Chris, 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; I am going to try this one and will get back to you as soon as possible..
</div>

<div>
Hello Chris, 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; You have been of Great help!! ON the second script, when and where we will be specifying the OU where the users from the users.txt will be imported and get created in that OU. 
For example if I want the users in the users.txt to be created in test OU, how will I pass that in this script? 
Regards, 
MG
</div>

<div>
 
Hey :) 
 
This is an example of the file format it read (based on the VbScript code you posted above). 
 
So, the script reads the target OU from the third line of the import file. Then after a two line break it starts reading the users. In this case, the script would skip &quot;dentc&quot; because I exist in my test domain, then create &quot;bob&quot; because he doesn't. 
 
Chris 

<pre><code class="code-1 nolinks" id="code-267819">User Input File:	Not sure at present
Default Password for users:	Password123
Target AD Location:	OU=Test,DC=domain,DC=net
 
 
dentc	Chris Dent	CN=Chris Dent
bob	Bob	CN=Bob
</code></pre>
</div>

<div>
Hello Chris, 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Thank you for clarifying my doubts.. I will try this today and will get back to you if I have any questions. Once again you have been a great help!! 
 
Regards, 
MG
</div>

<div>
<div class="content wysiwyg-content">
Hello, 
Need a script which does the following &nbsp;in Active Directory. 
1.Enumerates the user members of the group specified and for each user exports the attributes defined in the objAttributes dictionary object to a text delimetered text file. 
2.Imports user attributes from the file specified in the USER_LIST variable, attaches to AD and creates each account if one does not exist. 
Regards, 
MG
</div>
</div>

Hello,
Need a script which does the following  in Active Directory.
1.Enumerates the user members of the group specified and for each user exports the attributes defined in the objAttributes dictionary object to a text delimetered text file.
2.Imports user attributes from the file specified in the USER_LIST variable, attaches to AD and creates each account if one does not exist.
Regards,
MG

VB script to be used in Active Directory

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.

Microsoft Applications

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.

VB Script

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.