diff --git a/irf_1P-2_241/src/Get-ActiveMembers.ps1 b/irf_1P-2_241/src/Get-ActiveMembers.ps1
new file mode 100644
index 0000000000000000000000000000000000000000..495f9829bc6a4de690ce45badf8ba7178588aa8f
--- /dev/null
+++ b/irf_1P-2_241/src/Get-ActiveMembers.ps1
@@ -0,0 +1,42 @@
+<#
+.SYNOPSIS
+test
+
+.DESCRIPTION
+test
+
+.PARAMETER hostname
+hostname
+
+.NOTES
+Author: Simon Janos
+#>
+
+Param(
+	[Parameter(Mandatory=$true,Position=0)][String] $Group,
+    [switch] $Inactive
+)
+
+Import-Module ActiveDirectory
+
+$ou = Get-ADOrganizationalUnit -Filter 'name -eq $Group'
+
+$allUsers = Get-ADUser -SearchBase $ou.DistinguishedName -filter * -Properties MemberOf,mail
+
+$htUsers = @{}
+
+Write-Output $allUsers | ForEach-Object { $htUsers.Add($_.mail, $_.MemberOf.Count) }
+
+$htUsers = ($htUsers.GetEnumerator() | Sort-Object { $_.Value })
+
+#Write-Output $htUsers
+
+if ($Inactive) {
+$etalon = ($htUsers.GetEnumerator() | Select-Object -First 1)
+}else {
+$etalon = ($htUsers.GetEnumerator() | Select-Object -Last 1)
+}
+
+
+Write-Output $etalon.Value
+Write-Output ($htUsers.GetEnumerator() | Where-Object { $_.Value -eq $etalon.Value })
\ No newline at end of file