Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Vytvorte si jazyka premenných . Tri premenné resetovať heslo užívateľa : užívateľ objekt , staré heslo a nové heslo . Nasledujúci kód vytvorí tieto premenné :
Dim užívateľa Ako IADsUser
Dim oldpass As String Dim
newpass As String
2
Nastavte užívateľa objekt pre aktuálneho používateľa . To môže byť aktuálne používateľ prihlásený , alebo môžete určiť iného užívateľa , ak vytvárate aplikáciu pre správu . Nasledujúci kód nastavuje objekt užívateľa :
Set user = GetObject ( " WinNT ://domena /uzivatel " )
3
Nastavte staré a nové heslo . Staré heslo je aktuálne heslo pre užívateľa , ktorý resetu . Nové heslo je hodnota vynuluje . Nasledujúci kód nastaví hodnoty hesla :
oldpass = " currentpass "
newpass = " newpass "
4
Implementovať funkciu " ChangePassword " pre zmenu užívateľa heslo . Funkcia je súčasťou objektu užívateľa definované v kroku 1. Nasledujúci kód nastaví užívateľské heslo :
user.ChangePassword oldpass , newpass