How do I change a VBScript to read input and create an output file?

I have the following code which will determine the OU that a user is in. However, the way it's written it prompts for the username and outputs the OU via WScript.echo. How can I change this to so that it reads the input from a file and send the output to a text file? Thanks.
Option Explicit
'On Error Resume Next
Dim objConnection, objCommand, objRecordSet
Dim FindUser, strUser, strDN, arrPath, intLength, intNameLength
 
Const ADS_SCOPE_SUBTREE = 2
Const intForReading = 1
 
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
 
FindUser = InputBox("Please Enter A UserName", "Find User OU")
If FindUser = "" Then
MsgBox("No UserName Was Added")
WScript.Quit
Else
strUser = FindUser
End If
 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
 
objCommand.CommandText = _
    "SELECT distinguishedName FROM 'LDAP://dc=domain.com,dc=com'WHERE objectCategory='user'AND sAMAccountName='" & strUser & "'"
Set objRecordSet = objCommand.Execute
 
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    strDN = objRecordSet.Fields("distinguishedName").Value
    arrPath = Split(strDN, ",")
    intLength = Len(arrPath(1))
    intNameLength = intLength - 3
    Wscript.Echo "User :" & strUser & Right(arrPath(1), intNameLength)
    objRecordSet.MoveNext
Loop

Open in new window

mcpp661Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
exx1976Connect With a Mentor Commented:
actually, use this.  Sorry, I forgot to rip out all that ADODB stuff from the previous script.  My apologies.



InName = "c:\source.txt"
OutName = "c:\destination.txt"
DomainName = "mydomain"
Set oFS = CreateObject("Scripting.FileSystemObject")
Set InFile = oFS.OpenTextFile(InName,1)
Set OutFile = oFS.OpenTextFile(OutName,2)
Do While Not Infile.AtEndOfStream
      strUser = InFile.ReadLine
      data = GetObjectDN(strUser,DomainName)
    OutFile.WriteLine(data)
Loop
InFile.Close
OutFile.Close

Function GetObjectDN(strObject, strDomain)
      Const ADS_NAME_INITTYPE_GC = 3
      Const ADS_NAME_TYPE_1779 = 1
      Const ADS_NAME_TYPE_NT4 = 3
       On Error Resume Next : Err.Clear
      Set objNameTranslate = CreateObject("NameTranslate")
       objNameTranslate.Init ADS_NAME_INITTYPE_GC, ""
      objNameTranslate.Set ADS_NAME_TYPE_NT4, strdomain & "\" & strObject
      strObjectDN = objNameTranslate.Get(ADS_NAME_TYPE_1779)
      If Err.Number <> 0 Then
            strObjectDN = ""
      End If
       Set objNameTranslate = Nothing
      On Error Goto 0
       GetObjectDN = strObjectDN
End Function
0
 
Patrick MatthewsCommented:
Option Explicit
'On Error Resume Next
Dim objConnection, objCommand, objRecordSet
Dim FindUser, strUser, strDN, arrPath, intLength, intNameLength
Dim fso, ts
 
Const ADS_SCOPE_SUBTREE = 2
Const intForReading = 1
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.CreateTextFile("c\folder\subfolder\results.txt", True)

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
 
FindUser = InputBox("Please Enter A UserName", "Find User OU")
If FindUser = "" Then
MsgBox("No UserName Was Added")
WScript.Quit
Else
strUser = FindUser
End If
 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
 
objCommand.CommandText = _
    "SELECT distinguishedName FROM 'LDAP://dc=domain.com,dc=com'WHERE objectCategory='user'AND sAMAccountName='" & strUser & "'"
Set objRecordSet = objCommand.Execute
 
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    strDN = objRecordSet.Fields("distinguishedName").Value
    arrPath = Split(strDN, ",")
    intLength = Len(arrPath(1))
    intNameLength = intLength - 3
'    Wscript.Echo "User :" & strUser & Right(arrPath(1), intNameLength)
    ts.WriteLine "User :" & strUser & Right(arrPath(1), intNameLength)
    objRecordSet.MoveNext
Loop

ts.Close
Set ts = Nothing
Set fso = Nothing
0
 
exx1976Commented:
Const ADS_SCOPE_SUBTREE = 2
Const intForReading = 1
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
InName = "c:\source.txt"
OutName = "c:\destination.txt"
Set oFS = CreateObject("Scripting.FileSystemObject")
Set InFile = oFS.OpenTextFile(InName,1)
Set OutFile = oFS.OpenTextFile(OutName,2)
Do While Not Infile.AtEndOfStream
      strUser = InFile.ReadLine
      objCommand.CommandText = _
    "SELECT distinguishedName FROM 'LDAP://dc=domain.com,dc=com'WHERE objectCategory='user'AND sAMAccountName='" & strUser & "'"
      Set objRecordSet = objCommand.Execute
      objRecordSet.MoveFirst
      Do Until objRecordSet.EOF
          strDN = objRecordSet.Fields("distinguishedName").Value
          arrPath = Split(strDN, ",")
          intLength = Len(arrPath(1))
          intNameLength = intLength - 3
          data =  "User :" & strUser & Right(arrPath(1), intNameLength)
          OutFile.WriteLine(data)
          objRecordSet.MoveNext
      Loop
Loop
InFile.Close
OutFile.Close
0
The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

 
mcpp661Author Commented:
exx1976....I used your code and it works........however the output is garbled..........do you know how to fix it so that it just displays the entire path of the user object? Thanks.
0
 
exx1976Commented:
The output should be Exactly what you were getting before, I just cut and pasted in what you had before..    It looks like what you're doing is tryign to feed it a text file of user account names, and you want a text file of DN's back.  Is that correct?  If so, I have some code that will accomplish that, let me know if that's it and I'll throw it on here.

Otherwise, the line that starts with "data = " is the line to modify that controls the contents of the output file.


0
 
mcpp661Author Commented:
I never used that script before, I just found that code on the Internet. Yeah, the DN is what I need. Thanks man.
0
 
exx1976Commented:
This will output ONLY the DN, one per line.

You'll need to modify the lines "InName=" "OutName=" and "DomainName=" in order for it to work.  DomainName should be the NetBIOS name of the domain, not the FQDN.

Const ADS_SCOPE_SUBTREE = 2
Const intForReading = 1
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
InName = "c:\source.txt"
OutName = "c:\destination.txt"
DomainName = "mydomain"
Set oFS = CreateObject("Scripting.FileSystemObject")
Set InFile = oFS.OpenTextFile(InName,1)
Set OutFile = oFS.OpenTextFile(OutName,2)
Do While Not Infile.AtEndOfStream
      strUser = InFile.ReadLine
      data = GetObjectDN(strUser,DomainName)
    OutFile.WriteLine(data)
Loop
InFile.Close
OutFile.Close

Function GetObjectDN(strObject, strDomain)
      Const ADS_NAME_INITTYPE_GC = 3
      Const ADS_NAME_TYPE_1779 = 1
      Const ADS_NAME_TYPE_NT4 = 3
       On Error Resume Next : Err.Clear
      Set objNameTranslate = CreateObject("NameTranslate")
       objNameTranslate.Init ADS_NAME_INITTYPE_GC, ""
      objNameTranslate.Set ADS_NAME_TYPE_NT4, strdomain & "\" & strObject
      strObjectDN = objNameTranslate.Get(ADS_NAME_TYPE_1779)
      If Err.Number <> 0 Then
            strObjectDN = ""
      End If
       Set objNameTranslate = Nothing
      On Error Goto 0
       GetObjectDN = strObjectDN
End Function
0
 
mcpp661Author Commented:
Worked like a charm. Thanks man.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.