Attribute VB_Name = "IdPassword"
Option Explicit

Private Declare Function LogonUser Lib "Advapi32" Alias "LogonUserA" _
        (ByVal lpszUserName As String, _
        ByVal lpszDomain As String, _
        ByVal lpszPassword As String, _
        ByVal dwLogonType As Long, _
        ByVal dwLogonProvider As Long, _
        phToken As Long) As Long
        
        
Private Declare Function CloseHandle Lib "kernel32" _
        (ByVal hObject As Long) As Long

Public Function GoodUser(ByVal strID As String, _
                          ByVal strPW As String, _
                          Optional ByVal strDomain As String = vbNullString) As Boolean
    Dim myToken As Long
    Dim lRet As Long

    lRet = LogonUser(strID, _
                     strDomain, _
                     strPW, _
                     3&, _
                     0&, _
                     myToken)
    
    If (lRet <> 0) Then
        GoodUser = True
        CloseHandle myToken
    End If
End Function