From 98d12ffbe99e2fb1bf0a2bd86280766316573930 Mon Sep 17 00:00:00 2001
From: Ben Hays <benhays@benhays.org>
Date: Tue, 7 Nov 2023 21:36:39 -0500
Subject: [PATCH] Add Find-RDP Script

---
 Find-RDP.ps1 | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 Find-RDP.ps1

diff --git a/Find-RDP.ps1 b/Find-RDP.ps1
new file mode 100644
index 0000000..c18fc58
--- /dev/null
+++ b/Find-RDP.ps1
@@ -0,0 +1,11 @@
+# Find-RDP.ps1
+# (c) Ben Hays, 2023
+# Description: Find all the computers joined to an AD domain that are running RDP
+
+$computers = Get-ADComputer -Filter *
+foreach ($Name in $computers.DNSHostName) {
+    $rdpSuccess = Test-Connection -TargetName $Name -TimeoutSeconds 2 -TcpPort 3389 -Quiet
+    if ($rdpSuccess) {
+        Write-Output $Name
+    }
+}