asp與Active Directory Server的互動

工作上需要解AD Account被鎖住的Web介面，使用MS提供的ADSI元件可以很方便的存取AD Server，以下為程式
<br /><br /><br /><br /><br />function logintest()<br />'登入測試<br />if sUser <> "" then<br /> set oADSI = GetObject("WinNT:")<br /> on error resume next<br /> set oIIS = oADSI.OpenDSObject("WinNT://AD server名稱" , sUser, sPassword,0)<br /> if err.number = 0 then<br /> Response.Write "Logon OK.<BR>"<br /> else<br /> Response.Write "Logon failed.<BR>"<br /> end if<br />end if <br />end function<br /><br />function ChgPWD()<br />Dim obj <br /> set oADSI = GetObject("WinNT:")<br /> set obj = oADSI.OpenDSObject("WinNT://AD server名稱/"&sAccount , sUser, sPassword,0)<br /> '原密碼,新密碼<br /> obj.ChangePassword "原來的密碼", "新的密碼"<br /> <br /> response.write "密碼已更新"<br />end function<br /><br />function listmem()<br /> '列出ad所有帳號<br /> Dim obj <br /> set oADSI = GetObject("WinNT:")<br /> set obj = oADSI.OpenDSObject("WinNT://AD server名稱", sUser, sPassword,0)<br /> for each aaa in obj<br /> response.write aaa.name&"<br>"<br /> next<br />end function<br /><br />function SetPWD()<br />'reset密碼<br /> Dim obj <br /> set oADSI = GetObject("WinNT:")<br /> set obj = oADSI.OpenDSObject("WinNT://AD server名稱/"&sAccount , sUser, sPassword,0)<br /> obj.SetPassword "Kaubarcd0410"<br />end function<br /><br />function setAccountDisable()<br />'關掉該帳號<br /> Dim obj <br /> set oADSI = GetObject("WinNT:")<br /> set obj = oADSI.OpenDSObject("WinNT://AD server名稱/"&sAccount , sUser, sPassword,0)<br /> obj.AccountDisabled = true<br /> obj.SetInfo<br /> response.write "ok"<br />end function<br /><br />function unlock()<br />'解除鎖定的帳號<br /> Dim obj <br /> set oADSI = GetObject("WinNT:")<br /> set obj = oADSI.OpenDSObject("WinNT://AD server名稱/"&sAccount , sUser, sPassword,0)<br /> obj.IsAccountLocked = False <br /> obj.SetInfo<br /> response.write "ok"<br />end function<br /><br />sUser="AD server名稱/帳號名稱"<br />sPassword="你的密碼"<br />'要被作用的帳號=====<br />sAccount="joe_huang"<br />'===================<br /><br />'call listmem<br />call logintest<br />'call SetPWD<br />'call ChgPWD<br />'call unlock<br /><br />