Я получил скрипт, запрашивающий Active Directory, когда он вызывается из командных окон, но он не работает на моей странице ASP Вместо echo("message")
в файле VBS я использовал
Response.Redirect(message)
в моем ASP. Итак, вот код, который отлично работает в окне CMD, но не в IE. Во всяком случае, я надеюсь, что кто-то может помочь.
Option Explicit
Dim objRootDSE, strDNSDomain, objCommand, objConnection
Dim strQuery, strBase, strFilter, strAttributes
Dim objRecordSet, strAlias, strName, strSAM
Dim blnFlag
''// Use ADO to search Active Directory.
Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection
''// Set AD query propeties
strBase = "<LDAP://10.10.10.10>"
strFilter = "(&(objectCategory=person)(objectClass=user)(cn="gossmari")"
strAttributes = "displayName,mailNickname,sAMAccountName"
''// AD query
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
objCommand.CommandText = strQuery
objCommand.Properties("Page Size") = 100
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
Do Until objRecordSet.EOF
strName = objRecordSet.Fields("displayName")
strAlias = objRecordSet.Fields("mailNickname")
strSAM = objRecordSet.Fields("sAMAccountName")
objRecordSet.MoveNext
Loop
''// Echo the requested information
''// replaced by Response.Redirect("http://www.google.com/" & strName)
Wscript.Echo strSAM & " ; " & strAlias & " ; " & strName
objConnection.Close
edit: ошибка, которую я продолжаю получать:
Произошла ошибка на сервере при обработке URL. Пожалуйста свяжитесь с системным администратором.
Если вы системный администратор, нажмите здесь, чтобы узнать больше об этой ошибке.
Мой компьютер работает под управлением Windows Vista, и я действительно начинаю его ненавидеть