Windows system >> Windowsの知識 >  >> Windows Serverシステムのチュートリアル >> Windows Serverチュートリアル >> WINDOWS2000サーバーアカウントのデビュー認証

WINDOWS2000サーバーアカウントのデビュー認証

  
>
<%
userflag = trim(リクエスト( "userflag"))
oldPwd =トリム(リクエスト( "oldPwd"))
newPwd = trim(リクエスト) ( "newPwd"))

''イントラネットとメールボックスのパスワードを変更する
adsPath = "LDAP://ファイル/cn ="& userflag& "、cn = users、dc = yulong 、dc = com "
oo = GetObject(" LDAP: ")を設定してエラーが発生した場合next next set obj = oo.OpenDSObject(adsPath、userflag、oldPwd、0)
err.Numberの場合<> o then
err.clear
%>
<スクリプト言語= "javascript">
alert( "ユーザー名またはパスワードが間違っています。再入力してください。");
history.go(-1);
< /script>
<%
else
'' Response.Write "newPwd ="& newPwd
obj.SetPassword newPwd
'' Response.Write "< hr>"
Response.Write( "< div class = aa>ネットワークパスワードの変更に成功しました!< /div>")

%>


//基本的にはdc = yulong、dc = comを変更するだけで、自分のドメインに変更します


Copyright © Windowsの知識 All Rights Reserved