Δημιουργία Visual Basic μεταβλητές σας . Τρεις μεταβλητές επαναφορά του κωδικού πρόσβασης ενός χρήστη : ένα αντικείμενο χρήστη , το παλιό password και το νέο κωδικό πρόσβασης . Ο παρακάτω κώδικας δημιουργεί αυτές τις μεταβλητές :
Dim χρήστης Όπως χρήστη IAD
Dim oldpass Όπως String Dim
newpass Όπως String 2
Ρυθμίστε το χρήστη αντιρρήσεις για τον τρέχοντα χρήστη . Αυτό μπορεί να είναι ο τρέχων χρήστης συνδεθεί, ή μπορείτε να καθορίσετε έναν άλλο χρήστη, εάν δημιουργείτε μια εφαρμογή διαχείρισης . Ο παρακάτω κώδικας ορίζει το αντικείμενο χρήστη :
Set user = GetObject ( " WinNT ://domain /χρήστης " )
εικόνων 3
Ρυθμίστε το παλιό και το νέο κωδικό πρόσβασης . Ο παλιός κωδικός πρόσβασης είναι τον τρέχοντα κωδικό πρόσβασης για το χρήστη που την επαναφορά . Ο νέος κωδικός πρόσβασης είναι η τιμή reset . Ο παρακάτω κώδικας ορίζει τις τιμές κωδικό :
oldpass = " currentpass "
newpass = " newpass "
Η 4
Εφαρμογή της λειτουργίας " ChangePassword " για να αλλάξετε το χρήστη τον κωδικό πρόσβασης . Η συνάρτηση είναι ένα μέρος του αντικειμένου του χρήστη που ορίζεται στο βήμα 1 . Ο κώδικας που ακολουθεί επαναφέρει τον κωδικό πρόσβασης χρήστη :
user.ChangePassword oldpass , newpass
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα