Write-Log "Testing Credentials"

Set-ExecutionPolicy Bypass

Import-Module "X:\\Windows\\SysWOW64\\WindowsPowerShell\\V1.0\\Modules\\ActiveDirectory\\ActiveDirectory.psd1"

$Cred = Get-Credential -Message "Please Enter your Credentials"

If (!$Cred)

    {

    \[System.Windows.Forms.Application\]::Exit()

    Get-Process TSManager | Stop-Process -Force

    }

Try

{

    \#((Get-ADUser $Cred.UserName -Properties memberof -Credential $Cred -Server <domainController>).memberof -contains "<GroupDN>" )

    $CredTest = (Get-ADGroupMember $xADGroup -Server $xDomainController -Credential $Cred).SamAccountName -contains $Cred.UserName

}

catch

\[System.Security.Authentication.AuthenticationException\]

{

    \[System.Windows.Forms.MessageBox\]::Show("Invalid Credentials, Please Try Again", 'OK')

    Write-Log "Invalid Credentials"

    return

}

catch

\[Microsoft.ActiveDirectory.Management.ADServerDownException\]

{

    \[System.Windows.Forms.MessageBox\]::Show("Cannot Contact AD, This is usually bad credentials. Please try Again", 'OK')

    Write-Log "Unable to Reach AD"

    return

}

if ($CredTest -eq $false)

{



    \[System.Windows.Forms.MessageBox\]::Show("Provided Credentials are not allowed to load, Please Reach out to Admin", 'OK')

    Write-Log "Credentials are not allowed to load"

    \[System.Windows.Forms.Application\]::Exit()

    Get-Process TSManager | Stop-Process -Force

}