Grab LDAP uidNumber from VBScript

I had a need to grab a user's uidNumber from a Sun LDAP server on a Windows machine using VBScript. After fiddling around, here's the function:

Function getLDAPUserUIDNumber(username)
Dim conn
Dim rs
Dim uidNumber
Dim strSearch

strSearch = "(uid=" & username & ")"

Set conn = CreateObject("ADODB.Connection")
conn.Provider = "ADSDSOObject"
conn.Open "ADs Provider", "cn=Directory Manager", "xxxxx"

Set rs = conn.Execute( _
";" _
& strSearch & ";uidNumber;subtree")

While Not rs.EOF
uidNumber = rs.Fields("uidNumber").Value
rs.MoveNext
Wend

conn.Close

getLDAPUserUIDNumber = uidNumber
End Function