Cita:
Iniciado por buliwyf 
<%
strUserName = "pperez"
dtStart = TimeValue(Now())
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"<LDAP://dc=tudominio,dc=com>;(&(objectCategory=User)" & _
"(samAccountName=" & strUserName & "));samAccountName;subtree"
Set objRecordSet = objCommand.Execute
If objRecordset.RecordCount = 0 Then
response.write "La cuenta: " & strUserName & " no existe."
Else
respnse.write strUserName & " existe."
End If
objConnection.Close
%>
lo unico que hay que cambiar es donde dice "tudominio"? me da error 500 =(