From be71e00d990211292e1fb1508de2f48ab414f8a8 Mon Sep 17 00:00:00 2001
From: mjfernez <mjf@mjfer.net>
Date: Thu, 16 Oct 2025 00:35:52 -0400
Subject: Add fixed AD scripts and discord stuff

---
 AD-powershell-tools/test-ad-credentials.ps1 | 47 +++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 AD-powershell-tools/test-ad-credentials.ps1

(limited to 'AD-powershell-tools/test-ad-credentials.ps1')

diff --git a/AD-powershell-tools/test-ad-credentials.ps1 b/AD-powershell-tools/test-ad-credentials.ps1
new file mode 100644
index 0000000..bd0ba84
--- /dev/null
+++ b/AD-powershell-tools/test-ad-credentials.ps1
@@ -0,0 +1,47 @@
+# Adapted from: https://itpro-tips.com/test-ad-authentication-with-powershell/
+# The interesting bit about this one is that it doesn't seem to get logged by AD,
+# so you won't end up with false positives from testing creds
+
+function Test-ADAuthentication {
+        Param(
+                [Parameter(Mandatory)]
+                [string]$User,
+                [Parameter(Mandatory)]
+                $Password,
+                [Parameter(Mandatory = $false)]
+                $Server,
+                [Parameter(Mandatory = $false)]
+                [string]$Domain = $env:USERDOMAIN
+        )
+
+        Add-Type -AssemblyName System.DirectoryServices.AccountManagement
+
+        $contextType = [System.DirectoryServices.AccountManagement.ContextType]::Domain
+
+        $argumentList = New-Object -TypeName "System.Collections.ArrayList"
+        $null = $argumentList.Add($contextType)
+        $null = $argumentList.Add($Domain)
+
+        if($null -ne $Server){
+                $argumentList.Add($Server)
+        }
+
+        $principalContext = New-Object System.DirectoryServices.AccountManagement.PrincipalContext -ArgumentList $argumentList -ErrorAction SilentlyContinue
+
+        if ($null -eq $principalContext) {
+                Write-Warning "$Domain\$User - AD Authentication failed"
+        }
+
+        if ($principalContext.ValidateCredentials($User, $Password)) {
+                Write-Output "$Domain\$User - AD Authentication OK"
+        }
+        else {
+                Write-Warning "$Domain\$User - AD Authentication failed"
+        }
+}
+
+$csv = Import-Csv $args[0]
+ForEach ($userpass in $csv) {
+        Test-ADAuthentication -User $userpass.user -Password $userpass.password
+}
+
-- 
cgit v1.2.3