VBScript to read from Excel, search AD and put a value back into Excel

Question

I have an Excel spreadsheet that contains a list of hired and terminated Employees. What I would like to do is take the employeeid from only the terminated employees, search AD, and return whether the account is locked/unlocked, disabled/enable, distinguishedName
and expiration date.
So far, it all works until after "Do Until objExcel.Cells(intRow, 1).Value = """.  If I comment out "on error resume next", the script never responds with "Wscript.Echo objRS.Fields("distinguishedName")". 
I've also tried "Wscript.Echo objRS.Fields("distinguishedName").Value", and that also produces an error (Item cannot be found in the collection corresponding to the requested name or ordinal). 
Any assistance to get my script working would be greatly appreciated!
Const ADS_SCOPE_SUBTREE = 2
Const ADS_UF_ACCOUNTDISABLE = 2
On Error Resume Next
' Get the domain string ("dc=domain, dc=local")
strDomain = GetObject("LDAP://rootDSE").Get("defaultNamingContext")
' ADODB connection to AD
Set objConnection = CreateObject("ADODB.Connection")
' Connect
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
objCommand.Properties("Cache Results") = False
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim shell : Set shell = CreateObject("Shell.Application")
Dim file : Set file = shell.BrowseForFolder(0, "Choose a file:", &H4000)
strTermString = "Termed"
strFilePath = objFSO.GetParentFolderName(strFile)
strFileName = objFSO.GetFileName(strFile)
Set objFile = objFSO.GetFile(strFile)
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(strFile)
Set objWorksheet = objExcel.ActiveWorkbook.Worksheets(1)
Set objRange = objWorksheet.UsedRange
Set objTarget = objRange.Find(strTermString)
If Not objTarget Is Nothing Then
WScript.Echo objTarget.AddressLocal(False,False)
strRowStart = objTarget.Row
strFirstAddress = objTarget.AddressLocal(False,False)
End If
Do Until (objTarget Is Nothing)
Set objTarget = objRange.FindNext(objTarget)
strHolder = objTarget.AddressLocal(False,False)
If strHolder = strFirstAddress Then
Exit Do
End If
WScript.Echo objTarget.AddressLocal(False,False)
Loop
'objExcel.Visible = True
' add one or else we search for termed
intRow = strRowStart + 1
intCol = 1
intID = 0
Do Until objExcel.Cells(intRow, 1).Value = ""
strEmployeeID = objExcel.Cells(intRow,intCol)
WScript.Echo strEmployeeID
objCommand.CommandText = "SELECT * FROM 'LDAP://" & strDomain & "' WHERE employeeid = '" & strEmployeeID & "' AND objectClass = 'user'"
Set objRS = objCommand.Execute
While Not objRS.EOF
intUAC=objRecordset.Fields("userAccountControl")
Wscript.Echo objRS.Fields("distinguishedName")
If intUAC AND ADS_UF_ACCOUNTDISABLE Then
objExcel.Cells(intRow, 20) = "Disabled"
objExcel.Cells(intRow, 1).EntireRow.interior.ColorIndex = 4
End If
Wend
intRow = intRow + 1
Loop

Answer 1

A good part of you script makes no sense. YOu are opening the file as a text file and as a spreadsheet.  Why?
You have at least two distinct issues:
1. Get information from Excel
2.  Check information in AD.
I recommend creating and testing separate steps for thes then combine them when you understand how to make this work.
Here is a way to simplify and debug. After you get the |Excel navigatiuon fixed then uncomment the AD function code.
I have no idea what the first few bits of code are attempting to do since we have no idea what you spreadsheet looks like.,
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(strFile)
Set objWorksheet = objExcel.ActiveWorkbook.Worksheets(1)
Set objRange = objWorksheet.UsedRange
Set objTarget = objRange.Find(strTermString)
If Not objTarget Is Nothing Then
WScript.Echo objTarget.AddressLocal(False,False)
strRowStart = objTarget.Row
strFirstAddress = objTarget.AddressLocal(False,False)
End If
Do Until (objTarget Is Nothing)
Set objTarget = objRange.FindNext(objTarget)
strHolder = objTarget.AddressLocal(False,False)
If strHolder = strFirstAddress Then
Exit Do
End If
WScript.Echo objTarget.AddressLocal(False,False)
Loop
intRow = strRowStart + 1
intCol = 1
Do Until objExcel.Cells(intRow, 1).Value = ""
strEmployeeID = objExcel.Cells(intRow,intCol)
WScript.Echo strEmployeeID
Set objRS = objCommand.Execute
While Not objRS.EOF
WScript.Echo strEmployeeID
'If CheckIfUserDisabled(strEmployeeID) Then
' objExcel.Cells(intRow, 20) = "Disabled"
'objExcel.Cells(intRow, 1).EntireRow.interior.ColorIndex = 4
' End IfIf
Wend
intRow = intRow + 1
Loop
Function CheckIfUserDisabled(strEmployeeID)
Const ADS_UF_ACCOUNTDISABLE = 2
strDomain = GetObject("LDAP://rootDSE").Get("defaultNamingContext")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set rs = objConnection.Execute( "SELECT * FROM 'LDAP://" & strDomain & "' WHERE employeeid = '" & strEmployeeID & "'")
While Not rs.EOF
If rs.objRecordset.Fields("userAccountControl") AND ADS_UF_ACCOUNTDISABLE Then
CheckIfUserDisabled = True
End If
rs.MoveNext
Wend
End Function
¯\_(ツ)_/¯