dim strUser,oldPwd,dso,oUser,setDomain,check
check=false
strUser=trim(request("userflag"))
oldPwd=trim(request("oldPwd"))
session("username")=strUser
on error resume next
''修改内部网和邮箱的密码
strDomain="" -------输入你们公司的域名
Set dso = GetObject("WinNT:")
Set oUser = dso.OpenDSObject("WinNT://"&strDomain,strUser,oldPwd,0)
if err.Number <> 0 then
err.clear
-----如果err.number=0就是验证通过