More Scripting crap

[Gohaan]

Users here have 2 smtp address one we just implemented the other is old. I need to find out who has the old smtp addresses and I need to search for case sensitive material but I cannot get it be case sensitive. The secondary smtp address is noted with lowercase "smtp" before it. If that makes any sense.

Const ADS_SCOPE_SUBTREE = 2

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("Random directory")
Set objWorksheet = objWorkbook.Worksheets(1)

objExcel.Visible = True
objExcel.DisplayAlerts = FALSE

objWorksheet.Cells(1, 1).Value = "Display Name"
objWorksheet.Cells(1, 2).Value = "Last name"
objWorksheet.Cells(1, 3).Value = "First name"
objWorksheet.Cells(1, 4).Value = "Department"
objWorksheet.Cells(1, 5).Value = "Phone number"
objWorksheet.Cells(1, 6).Value = "proxyAddresses"
objWorksheet.Cells(1, 7).Value = "Rank"

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") = 100
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE


objCommand.CommandText = _
"SELECT givenName, SN, department, telephoneNumber, displayName, mail, proxyAddresses, Title FROM " _
& "'LDAP://OU=,OU=,dc=,dc=,dc=' WHERE " _
& "proxyAddresses='smtp*'"

Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
x = 2

Do Until objRecordSet.EOF
objWorksheet.Cells(x, 1).Value = _
objRecordSet.Fields("displayName").Value
objWorksheet.Cells(x, 2).Value = _
objRecordSet.Fields("SN").Value
objWorksheet.Cells(x, 3).Value = _
objRecordSet.Fields("givenName").Value
objWorksheet.Cells(x, 4).Value = _
objRecordSet.Fields("department").Value
objWorksheet.Cells(x, 5).Value = _
objRecordSet.Fields("telephoneNumber").Value
objWorksheet.Cells(x, 6).Value = _
objRecordSet.Fields("proxyAddresses").Value
objWorksheet.Cells(x, 7).Value = _
objRecordSet.Fields("Title").Value


x = x + 1
objRecordSet.MoveNext
Loop

Set objRange = objExcel.Range("A1")
objRange.Activate

Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()

Set objRange = objExcel.Range("B1")
objRange.Activate

Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()

Set objRange = objExcel.Range("C1")
objRange.Activate

Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()

Set objRange = objExcel.Range("D1")
objRange.Activate

Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()

Set objRange = objExcel.Range("E1")
objRange.Activate

Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()

Set objRange = objExcel.Range("F1")
objRange.Activate

Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()

Set objRange = objExcel.Range("G1")
objRange.Activate

Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()

Set objRange = objWorksheet.Range("A1").SpecialCells(11)
Set objRange2 = objWorksheet.Range("C1")
Set objRange3 = objWorksheet.Range("A1")
Wscript.Echo "Data Polling Complete"
objWorkbook.SaveAs("Random Direcotry")
objExcel.Quit