版主：
按主题
按用户名
按昵称
按相册
主题:请教如何用ASP的网页来修改WIN2000用户的密码
1195
0
来自：上海
注册：2001-01-25
发帖：1349＋22185
注册：2001-01-25
发帖：1349＋22185
发表于:2003-10-29 16:16:04
推荐：人穷 省了2个月钱 终于能带儿子去吃次KFC了 太享受了
...第10楼...
15
来自：保密
注册：2003-09-24
发帖：2＋9
注册：2003-09-24
发帖：2＋9
我找到一段程序,是一段子程序,不知如和修改才能用.
<%
Sub ChangeUserPassword(Computer,UserName,oldPassword,newPassword)
Dim adsUser,foundErr,ErrMsg
On Error Resume Next
foundErr=False
ErrMsg=""
Set adsUser=GetObject("WinNT://"+Computer+"/"+UserName+",user")
If Err.Number<>0 Then
foundErr=True
ErrMsg="User not found!"
Err.Clear
Else
adsUser.ChangePassword oldPassword, newPassword
adsUser.SetInfo
If Err.Number<>0 Then
foundErr=True
ErrMsg=Now & ". Error Code: " & Hex(Err) & " - " & Err.Description & "<br>"
Err.Clear
End If
End If
If Not foundErr Then
objContext.SetComplete
Response.Write "<font class=""A2"" size=""2"" face=""Arial""><b>Password changed successful!
</b><br><br>"
Response.Write "<input type=""button"" class=""A1"" name=""b2"" value="" Back ""
onclick=""window.location.replace('default.asp');"">"
Response.Write "</font>"
Else
objContext.SetAbort
Response.Write "<font class=""A2"" size=""2"" face=""Arial""><b>Wrong old password, back to
reinput!</b><br><br>"&ErrMsg
Response.Write "<input type=""button"" class=""A1"" name=""b2"" value="" Back ""
onclick=""history.back();"">"
Response.Write "</font>"
End If
Set adsUser=Nothing
End Sub
%>
<%
Sub ChangeUserPassword(Computer,UserName,oldPassword,newPassword)
Dim adsUser,foundErr,ErrMsg
On Error Resume Next
foundErr=False
ErrMsg=""
Set adsUser=GetObject("WinNT://"+Computer+"/"+UserName+",user")
If Err.Number<>0 Then
foundErr=True
ErrMsg="User not found!"
Err.Clear
Else
adsUser.ChangePassword oldPassword, newPassword
adsUser.SetInfo
If Err.Number<>0 Then
foundErr=True
ErrMsg=Now & ". Error Code: " & Hex(Err) & " - " & Err.Description & "<br>"
Err.Clear
End If
End If
If Not foundErr Then
objContext.SetComplete
Response.Write "<font class=""A2"" size=""2"" face=""Arial""><b>Password changed successful!
</b><br><br>"
Response.Write "<input type=""button"" class=""A1"" name=""b2"" value="" Back ""
onclick=""window.location.replace('default.asp');"">"
Response.Write "</font>"
Else
objContext.SetAbort
Response.Write "<font class=""A2"" size=""2"" face=""Arial""><b>Wrong old password, back to
reinput!</b><br><br>"&ErrMsg
Response.Write "<input type=""button"" class=""A1"" name=""b2"" value="" Back ""
onclick=""history.back();"">"
Response.Write "</font>"
End If
Set adsUser=Nothing
End Sub
%>
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
发表于:2003-10-30 10:02:06
推荐：南京西路拆迁，同事家好拿到1700万
...第11楼...
421
0
来自：上海
注册：2001-12-01
发帖：106＋1552
注册：2001-12-01
发帖：106＋1552
发表于:2003-11-04 11:54:45
推荐：当爸爸的过来放和BB照片~~你比他们潮？比他们有爱么？
...第13楼...
回复主题 [ 返回ASP ]  |
|
|---|---|
| 主题： | 请教如何用ASP的网页来修改WIN2000用户的密码 |
手机看宽带山
人像摄影推荐
