 <% 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 & " " Err.Clear End If End If If Not foundErr Then objContext.SetComplete Response.Write "Password changed successful! " Response.Write "onclick=""window.location.replace(’default.asp’);"">" Response.Write "" Else objContext.SetAbort Response.Write "Wrong old password, back to reinput! "&ErrMsg Response.Write "onclick=""history.back();"">" Response.Write "" End If Set adsUser=Nothing End Sub response.write "NT的密码改为qian!" Computer="yp" UserName="sky" oldPassword="dir" newPassword="qian" ChangeUserPassword Computer,UserName,oldPassword,newPassword %> |
喜欢本文，那就收藏到： |
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus(); "添加到POCO网摘"){kind=logo}
Rss Feed
