<%@ Language=VBScript %> <% Option Explicit Dim con,rs,Com,objADsPath,objDomain,ocsid,address,city,country,zip %> <% ocsid = CStr(Request("userid")) Set objDomain = GetObject ("GC://RootDSE") objADsPath = objDomain.Get("defaultNamingContext") Set objDomain = Nothing Set con = Server.CreateObject("ADODB.Connection") con.provider ="ADsDSOObject" con.open "Active Directory Provider" Set Com = CreateObject("ADODB.Command") Set Com.ActiveConnection = con Com.CommandText ="select streetAddress, l, co, postalCode from 'GC://"+objADsPath+"' WHERE samaccountname ='"+ocsid+"'" Set rs = Com.Execute If rs.EOF <> True And rs.BOF <> True Then Do While Not rs.EOF Or rs.BOF address = rs("streetAddress") city = rs("l") country = rs("co") zip = rs("postalCode") rs.MoveNext Loop rs.Close End If con.Close Set rs = Nothing Set con = Nothing %>