PDA

Vollständige Version anzeigen : Kennwort löschen eines Benutzers der es vergessen hat...


kvlado80
09.08.2001, 10:18
Hallo!

Ich habe eine Anwendung in der ein User schonmal sein Kennwort im aktiven Sicherheitssystem vergißt... :-) Das Projekt ist noch in der Testphase und ich habe noch keine Setup- und Runtimeversion erstellt.
Es gibt ja die Möglichkeit unter Extras - Zugriffsrechte - Benutzer- und Gruppenkonten ein Kennwort einfach auf ein Lerrstring zu setzten. Ich würde dieses gerne in eigenem Code erstellen um diese Funktion der Anwendung hinzuzufügen. Wer hat einen Lösungsvorschlag?

Manuela Kulpa
09.08.2001, 19:08
Hallo Kvlado!

Anbei ein kleines DAO-Beispiel! Falls du die Prozedur für ADO benötigst, melde dich. Erklärungen findest du in den Sourcen!

HTH
Manuela

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Public Function</span> ChangeUserPassword( _
sWorkspace <span class="TOKEN">As</span> String, _
sUser <span class="TOKEN">As</span> String, _
sOldPass <span class="TOKEN">As</span> String, _
sNewPass <span class="TOKEN">As</span> <span class="TOKEN">String</span>) _
<span class="TOKEN">As</span> <span class="TOKEN">Boolean</span>
&nbsp;
<span class="REM"> ' Kommentar : Ver&auml;ndert das Passwort eines Users</span>
<span class="REM"> ' Voraussetzung: Adminrechte m&uuml;ssen vorhanden sein</span>
<span class="REM"> ' Parameters : sWorkspace - Name der benutzten Workspace</span>
<span class="REM"> ' oder &quot;&quot; (Leerstring) f&uuml;r Workspaces(0)</span>
<span class="REM"> ' sUser - Name des Users</span>
<span class="REM"> ' sOldPass - aktuelles Passwort des Users</span>
<span class="REM"> ' oder &quot;&quot; (Leerstring) falls das Passwort</span>
<span class="REM"> ' vergessen worden ist</span>
<span class="REM"> ' sNewPass - neues Passwort des Users</span>
<span class="REM"> ' R&uuml;ckgabe : True, wenn das Passwort erfolgreich ge&auml;ndert wurde,</span>
<span class="REM"> ' False, bei Problemen</span>
&nbsp;
<span class="TOKEN">Dim</span> wrkTmp <span class="TOKEN">As</span> DAO.Workspace
<span class="TOKEN">Dim</span> usrTmp <span class="TOKEN">As</span> DAO.User
<span class="TOKEN">Dim</span> bOk <span class="TOKEN">As</span> <span class="TOKEN">Boolean</span>
&nbsp;
<span class="TOKEN">On Error GoTo</span> ChangeUserPasswordErr
&nbsp;
<span class="REM"> ' Initialisierung</span>
bOk = <span class="TOKEN">False</span>
&nbsp;
<span class="REM"> ' Workspaceinitialisierung</span>
<span class="TOKEN">If</span> sWorkspace = &quot;&quot; <span class="TOKEN">Then</span>
<span class="TOKEN">Set</span> wrkTmp = DAO.DBEngine.Workspaces(0)
<span class="TOKEN">Else</span>
<span class="TOKEN">Set</span> wrkTmp = DAO.DBEngine.Workspaces(sWorkspace)
<span class="TOKEN">End</span> <span class="TOKEN">If</span>
&nbsp;
<span class="REM"> ' Userinitialisierung</span>
<span class="TOKEN">Set</span> usrTmp = wrkTmp.Users(sUser)
&nbsp;
<span class="REM"> ' Ver&auml;nderung des Passwortes durch die NewPassword-Methode</span>
usrTmp.NewPassword sOldPass, sNewPass
&nbsp;
<span class="REM"> ' Alles OK</span>
bOk = <span class="TOKEN">True</span>
&nbsp;
ChangeUserPasswordExit:
ChangeUserPassword = bOk
<span class="TOKEN">Exit Function</span>
&nbsp;
ChangeUserPasswordErr:
MsgBox &quot;Error: &quot; &amp; Err.Number &amp; &quot;. &quot; &amp; Err.Description, , _
&quot;ChangeUserPassword&quot;
<span class="TOKEN">Resume</span> ChangeUserPasswordExit
&nbsp;
<span class="TOKEN">End</span> <span class="TOKEN">Function</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)