Verify username and password

[Impulse08]

Hi all,

Is there anyway to verify that a username and password is valid using Auto-It. I have my users enter a domain\username and password using InputBox, but I wanted to know if there is way to verify this is a valid username and password?

Any help would be greatly appreciated. Thanks.

[tAKTelapis]

i can imagine there is a DLL somewhere for ldap authentication.

[Danny35d]

$User = InputBox('User', 'Enter User name')
$Domain = InputBox('Domain', 'Enter Domain name')
$Pass = InputBox('Password', 'Enter Password', '', '*')

MsgBox(0, 'Test User Account', _CheckUserPass($User, $Pass, $Domain))

Func _CheckUserPass($sUsername, $sPassword, $sComputerName)
    Local $iCheck = True
    
    Opt("RunErrorsFatal", 0)
    RunAsSet($sUsername, $sComputerName, $sPassword, 0)
    Run(@ComSpec & " /c  echo checking password...", @TempDir, @SW_HIDE)
    If @error Then $iCheck = False
    RunAsSet()
    Opt("RunErrorsFatal", 1)
    Return $iCheck
EndFunc

[Impulse08]

$User = InputBox('User', 'Enter User name')
$Domain = InputBox('Domain', 'Enter Domain name')
$Pass = InputBox('Password', 'Enter Password', '', '*')

MsgBox(0, 'Test User Account', _CheckUserPass($User, $Pass, $Domain))

Func _CheckUserPass($sUsername, $sPassword, $sComputerName)
    Local $iCheck = True
    
    Opt("RunErrorsFatal", 0)
    RunAsSet($sUsername, $sComputerName, $sPassword, 0)
    Run(@ComSpec & " /c  echo checking password...", @TempDir, @SW_HIDE)
    If @error Then $iCheck = False
    RunAsSet()
    Opt("RunErrorsFatal", 1)
    Return $iCheck
EndFunc

This looks pretty nice. Thanks.

Now if I am on computer 1, and want to check if the domain\username and password are local admins on computer 2. Is there an AutoIt way? I know there is a VBScript way to do this, but I'd like to keep everything in AutoIt.

[Danny35d]

This looks pretty nice. Thanks.

Now if I am on computer 1, and want to check if the domain\username and password are local admins on computer 2. Is there an AutoIt way? I know there is a VBScript way to do this, but I'd like to keep everything in AutoIt.

Well autoit support COM is just to convert the vbs script into autoit.

[Impulse08]

Well autoit support COM is just to convert the vbs script into autoit.

Great! Thanks a lot. This support forum is always full of helpful people.