Comparing two Arrays

' ------ SET INPUT FILE ------
strfile="AD_Computer_Names_2.txt"
set iFSO=createobject("scripting.filesystemobject")
set objTS=iFSO.opentextfile(strfile)
 
strfile2="SCCM_Client_Names_2.txt"
set iFSO2=createobject("scripting.filesystemobject")
set objTS2=iFSO2.opentextfile(strfile)
 
 
' ------ SET OUTPUT FILES ------
OutputFile="AD_SCCM.txt"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.CreateTextFile(OutputFile, True)
 
x=0
	Do While objTS.atendofstream<>true
 
		strADComputer=objts.readline
		
		ReDim Preserve arrADComputers(x)
		arrADComputers(x) = UCase(strADComputer)
		x=x+1
 
	Loop
 
y=0
	Do While objTS2.atendofstream<>true
 
		strSCCMComputer=objts2.readline
		
		ReDim Preserve arrSCCMComputers(y)
		arrSCCMComputers(y) = UCase(strSCCMComputer)
		y=y+1
 
	Loop
 
 
 
 
Set objListSCCM = CreateObject("Scripting.Dictionary")
'objListSCCM.CompareMode = vbTextCompare
	For s = 0 To UBound(arrSCCMComputers)
		If objListSCCM.Exists(arrSCCMComputers(s)) Then
		Else
			objListSCCM.add (arrSCCMComputers(s)), (arrSCCMComputers(s))
		End If
	Next
 
 
Set objListAD = CreateObject("Scripting.Dictionary")
'objListAD.CompareMode = vbTextCompare
	For t = 0 To UBound(arrADComputers)
		If objListAD.Exists(arrADComputers(t)) Then
		Else
			objListAD.add (arrADComputers(t)), (arrADComputers(t))
		End If
	Next
 
 
For n = 0 To UBound(arrADComputers)  
	If objListSCCM.Exists(arrADComputers(n)) Then
	wscript.echo arrADComputers(n)
	Else
		Wscript.Echo arrADComputers(n) & " is in AD but not SCCM"  
	End If  
Next  
 
 
 
 
 
wscript.echo "Done"

Select allOpen in new window