Verify the Windows Password
Add a new form to the project and add two text boxes (txtUsername & txtPassword) and a command button (cmdVerify). Copy the following code into the form:
Private Sub cmdVerify_Click() MsgBox "The password you supplied was _ " & VerifyWindowsLoginUserPassword(txtPassword.Text) End Sub Private Sub Form_Load() txtUsername = GetWindowsLoginUserID txtUsername.Enabled = False End Sub
Page 3 of 3
This article was originally published on November 20, 2002