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