Søge i Active Directory

Hej,

Jeg mangler ideer til hvordan man søger i Active Directory.

Denne her virker helt fint hvis man gemmer den som en vbs fil og kører den:
=====================================================
Set Network = Wscript.CreateObject(\"Wscript.Network\")
Set Shell = Wscript.CreateObject(\"Wscript.Shell\")
Set con = CreateObject(\"ADODB.Connection\")
Set com = CreateObject(\"ADODB.Command\")

con.Provider = \"ADsDSOObject\"
con.Open \"Active Directory Provider\"

Set Com.ActiveConnection = con

StrL = VbCrlf
StrT = VbTab
StrTitel = \"Bruger Info Via ADO ...\"

StrBruger = InputBox (\"Skriv et Brugernavn...\",\"Skriv et Navn...\",\"Jesper\")

Com.CommandText = \"select givenname,cn,telephoneNumber,mail,userPrincipalName,scriptPath,title,department,logonCount from \"
Com.CommandText = Com.CommandText & \"\'LDAP://DC=nordic, DC=X\' WHERE objectClass=\'user\' AND \"
Com.CommandText = Com.CommandText & \"userPrincipalName = \'\" & StrBruger & \"\' or \"
Com.CommandText = Com.CommandText & \"givenName = \'\" & strBruger & \"\' or \"
Com.CommandText = Com.CommandText & \"cn = \'\" & strBruger & \"\'\"


\'Com.CommandText = \"select cn,telephoneNumber,mail,userPrincipalName,scriptPath,title,department,logonCount from \'LDAP://DC=testdom, DC=X\' WHERE objectClass=\'user\' AND givenName =\'\" & StrBruger & \"\'\"

Set rs = Com.Execute

Do While Not rs.EOF
    Str = \"Display Navn: \" & StrT & rs.Fields(\"cn\") & StrL
    Str = Str & \"Logonnavn: \" & StrT & rs.Fields(\"userPrincipalName\") & StrL
    Str = Str & \"Telefon Nummer: \" & StrT & rs.Fields(\"telephoneNumber\") & StrL
    Str = Str & \"E-Mail: \" & StrT & StrT & rs.Fields (\"mail\") & StrL
    Str = Str & \"Login Script: \" & StrT & rs.Fields (\"scriptPath\") & StrL
    Str = Str & \"Titel: \" & StrT & StrT & rs.Fields (\"title\") & StrL
    Str = Str & \"Afdeling: \" & StrT & StrT & rs.Fields (\"department\") & StrL
    Str = Str & \"Antal Login: \" & StrT & rs.Fields (\"logonCount\") & StrL
rs.MoveNext
Loop

Shell.Popup str,20,StrTitel,64
=====================================================

Problemet ligger i at jeg ikke kan lave den om til en asp fil og køre denne.

Hvordan kan man lave så, at man kan skrive i en text boks at man vil søge på alle der hedder noget med \"Søren\" fx. Ovenstående skal man kende login navn: fx: initialer@testdom.x

For et eksempel der virker så man kan søge i det og vise informationer for Telefon, Office, LogonNavn, Full Name, Email, Description.

Håber det kan lykkedes!