명령 창에서 호출 할 때 Active Directory를 쿼리하는 스크립트가 생겼지 만 ASP 페이지에서는 작동하지 않습니다. VBS 파일에 echo("message")
대신 Response.Redirect(message)
을 ASP에 사용했습니다. 그래서 여기에 CMD 창에서 잘 작동하는 코드가 있지만 IE에서는 없습니다. 어쨌든, 나는 누군가가 도울 수 있기를 바랍니다.내 ASP 페이지에 복사 할 때 내 VBS 스크립트 파일이 작동하지 않는 이유는 무엇입니까?
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
편집 : 나는 점점 계속 오류 : URL을 처리 할 때 하는 동안 서버에 오류가 발생했습니다. 시스템 관리자에게 문의하십시오. 시스템 관리자 인 경우이 오류에 대한 자세한 내용을 보려면 여기를 클릭하십시오.
내 컴퓨터가 윈도우 비스타를 실행하고 나는 정말
해당 코드는 VBS로 실행되지 않습니다. strFilter로 시작하는 줄에서 인용문 문제가 발생했습니다 ... 또한 오류 메시지와 함께 도움이됩니다. (또한 Response.Redirect는 브라우저를 리디렉션합니다. Response.Write는 물건을 밖으로 씁니다 ..) – svinto