最近、IIS 6 から IIS 7.5 にアップグレードしました。すべてのサイトを新しいシステムに移行したところ、すべてのサイトが 1 つの場所から離れて機能していました。
壊れたサイトは ftp サーバーに関する情報を提供し、いくつかの実験の後、どのコードが問題を引き起こしているかを突き止めました。
これは、FTP サイトの有効期限をサーバーに要求するコード行です。
Set objuser = objRoot.OpenDSObject("LDAP://CN="&user&",dc=companySite,OU=FTP", strUserDN, strPassword, ADS_SECURE_AUTHENTICATION)
これは、コンテキストの関数の残りの部分です。
function expiration(user)
Set con = Server.CreateObject("ADODB.Connection")
con.provider ="ADsDSOObject"
con.open "Active Directory Provider"
Set Com = CreateObject("ADODB.Command")
Set Com.ActiveConnection = con
Const ADS_SECURE_AUTHENTICATION = 1
strUserDN = "cn=ftplist,cn=users,dc=companySite,dc=com"
strPassword = "password"
Set objRoot = GetObject("LDAP:")
Set objuser = objRoot.OpenDSObject("LDAP://CN="&user&",dc=companySite,OU=FTP", strUserDN, strPassword, ADS_SECURE_AUTHENTICATION)
On error resume next
expiry = objuser.AccountExpirationDate
If expiry = "1/1/1970" Or expiry = "1/01/1601 10:00:00 AM" Or Err.Number = -2147467259 then
expiration = "No expiration"
else
expiration = formatdatetime(objuser.AccountExpirationDate, vbshortdate)
end if
response.write expiration
end function
ページに表示されるエラーは次のとおりです。
Active Directory error '8007203b'
A local error has occurred.
/ftp-search.asp, line 28
自社で使用しているデータベースに慣れていないため、何が原因なのかわかりません。いくつかの調査を行いましたが、これまでのところ解決策を見つけることができませんでした。
ヒントをいただければ幸いです。