Загрузка данных

Write-Host "=== Диагностика $env:COMPUTERNAME ===" -ForegroundColor Cyan

# 1. Доступность Kerberos-портов на обоих DC
Test-NetConnection -ComputerName 10. -Port 88 -WarningAction SilentlyContinue | Select-Object TcpTestSucceeded
Test-NetConnection -ComputerName 10. -Port 88 -WarningAction SilentlyContinue | Select-Object TcpTestSucceeded

# 2. Проверка, не меняются ли IP/DNS (причина обрыва каждые 20-30 мин)
ipconfig /all | Select-String "DHCP Enabled|Lease Obtained|Lease Expires|DNS Servers"

# 3. Активные сетевые адаптеры (ищем лишние виртуальные/VPN)
Get-NetAdapter | Where-Object {$_.Status -eq "Up"} | Select-Object Name, InterfaceDescription, LinkSpeed

# 4. События потери связи за последние 2 часа
Get-WinEvent -FilterHashtable @{LogName='System'; ProviderName='Netlogon'; StartTime=(Get-Date).AddHours(-2)} -ErrorAction SilentlyContinue | Select-Object TimeCreated, Id, Message | Format-Table -AutoSize -Wrap