ついでにASP/IISとOpenLDAP連携

VBSで認証できるようになれば、こっちは簡単。

ldaplogin.asp



<body>

<form action="auth.asp" method="post" name="login">

  <div>userid:<input type="text" name="userid"></div>

  <div>password:<input type="password" name="password"></div>

  <input type="submit" value="login">

</form>

<body>

auth.asp



<%

  on error resume next

  dim server: server = "192.168.109.5"

  dim userdn: userdn = "uid=" & request.form("userid") & ",ou=People,dc=my,dc=local"

  dim password: password = request.form("password")

  dim l: set l = GetObject("LDAP:")

  dim b: set b = l.OpenDSObject("LDAP://"&server, userdn, password, 0)

  if Err.Number = 0 then

    session("userid") = request.form("userid")

  else

    session("userid") = request.form("")

  end if

  response.redirect("next.asp")

%>

next.asp



<body>

<%

  if session("userid") = "" then

    response.write("you... ain't authorized.")

  else

    response.write("Hello! Mr. " & session("userid") & ".")

  end if

%>

</body>