by ATM (1 Submission)
Category: Windows System Services
Compatability: Visual Basic 3.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: 
(3 Votes)
Allow You to test Domain/User/Password combination ...
Assumes
Create form1,text1 - domain,text2 - user,text3 - password,command1.
API DeclarationsPrivate 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 GetLastError Lib "kernel32" () As Long
Private Const LOGON32_LOGON_BATCH = 4
Private Const LOGON32_PROVIDER_DEFAULT = 0
VBcodersPrivate Sub Command1_Click()
Dim szDomain As String
Dim szUser As String
Dim szPassword As String
Dim lToken As Long
Dim lResult As Long
szDomain = Text1.Text & Chr(0)
szUser = Text2.Text & Chr(0)
szPassword = Text3.Text & Chr(0)
lToken = 0&
lResult = LogonUser(szUser, _
szDomain, _
szPassword, _
ByVal LOGON32_LOGON_BATCH, _
ByVal LOGON32_PROVIDER_DEFAULT, _
lToken)
If lResult = 0 Then
MsgBox "Error: " & Err.LastDllError
Else
If lToken = 0 Then
MsgBox "Not Valid user, password or domain"
Else
MsgBox "Valid User"
End If
End If
End Sub