#Requires -Modules ActiveDirectory

param(
    [string]$UserName
)

# 1. Если логин не передан через аргументы, показываем GUI-окно ввода
if (-not $UserName) {
    try {
        Add-Type -AssemblyName Microsoft.VisualBasic
        $UserName = [Microsoft.VisualBasic.Interaction]::InputBox(
            "Введите SamAccountName (логин) пользователя:",
            "Поиск последнего входа в AD"
        )
    } catch {
        # Fallback на консоль, если сборка VB недоступна
        $UserName = Read-Host "Введите SamAccountName пользователя"
    }
}

$UserName = $UserName.Trim()
if ([string]::IsNullOrWhiteSpace($UserName)) {
    Write-Host "Ввод отменен. Завершение работы." -ForegroundColor Yellow
    exit
}

# 2. Быстрая проверка существования пользователя
try {
    $CheckUser = Get-ADUser -Identity $UserName -ErrorAction Stop
} catch {
    Write-Error "Пользователь '$UserName' не найден в Active Directory."
    exit
}

Write-Host "`n🔍 Опрос контроллеров домена для $UserName..." -ForegroundColor Cyan
$DCs = Get-ADDomainController -Filter *
$MaxLogonTime = 0
$LastDC = $null

# 3. Опрос всех DC для поиска точного lastLogon
foreach ($DC in $DCs) {
    try {
        $User = Get-ADUser -Identity $UserName -Server $DC.HostName -Properties lastLogon -ErrorAction Stop
        if ($User.lastLogon -gt $MaxLogonTime) {
            $MaxLogonTime = $User.lastLogon
            $LastDC = $DC.HostName
        }
    } catch {
        Write-Warning "Не удалось опросить DC $($DC.HostName)"
    }
}

# 4. Вывод результата
if ($MaxLogonTime -gt 0) {
    $LastLogonDate = [DateTime]::FromFileTime($MaxLogonTime)
    Write-Host "`n✅ Результат:" -ForegroundColor Green
    Write-Host "Пользователь   : $($CheckUser.DisplayName) ($UserName)"
    Write-Host "Последний вход : $LastLogonDate"
    Write-Host "Контроллер     : $LastDC"
} else {
    Write-Host "`n⚠️ Пользователь '$UserName' никогда не входил в систему (атрибут lastLogon пуст)." -ForegroundColor Yellow
}

pause