Hello all, I have a VB Script that creates a phone list for my company, and I have been asked to alphabetize the names listed under the department headings....I am so new to VB that this is the first time I have used it.....ever I've done a great deal of searching, and have yet to find an answer, I was hopeing someone would help.
my code currently looks like this:
Sub EnumerateUsers(oCont)
Dim oUser
For Each oUser In oCont
Select Case LCase(oUser.Class)
Case "user"
If oUser.telephoneNumber <> "" then
If oUser.physicalDeliveryOfficeName = "Wixom" then
If oUser.department = "Engineering" then
sdata = "<tr>"
sdata = sdata & "<td class='list'>" & oUser.GivenName & " " & oUser.SN & "</td>"
sdata = sdata & "<td class='list'>" & oUser.telephoneNumber & "</td>"
sdata = sdata & "</tr>"
wixEng(wixEngRow) = sdata
wixEngRow = wixEngRow + 1
end if
"... there are tons more like this in this sub.... but it ends like this..."
end if
Case "organizationalunit", "container"
EnumerateUsers oUser
End Select
So I want to do something similar to the SQL OrderBy, but I can't find the syntax... Does anyone have an Idea for me?
Thanks in advance!