Windows Sunucularda Güvenlik Analizi: Kullanıcı Oturumlarını İzleme ve Raporlama

# Gerekli kütüphaneleri yükle
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

# Ana Form Ayarları
$form = New-Object System.Windows.Forms.Form
$form.Text = "Ondernet - Windows Oturum İzleme Paneli"
$form.Size = New-Object System.Drawing.Size(850, 650)
$form.StartPosition = "CenterScreen"
$form.BackColor = "#F8F9FA"
$form.F System.Drawing.Font("Segoe UI", 9)

# Başlık Etiketi
$label = New-Object System.Windows.Forms.Label
$label.Text = "Sunucu Erişim ve Güvenlik Analizi"
$label.Location = New-Object System.Drawing.Point(20, 15)
$label.Size = New-Object System.Drawing.Size(400, 30)
$label.F System.Drawing.Font("Segoe UI", 16, [System.Drawing.FontStyle]::Bold)
$label.ForeColor = "#212529"
$form.Controls.Add($label)

# Veri Tablosu (DataGridView)
$dataGridView = New-Object System.Windows.Forms.DataGridView
$dataGridView.Location = New-Object System.Drawing.Point(20, 110)
$dataGridView.Size = New-Object System.Drawing.Size(790, 430)
$dataGridView.AutoSizeColumnsMode = "Fill"
$dataGridView.BackgroundColor = "White"
$dataGridView.Border
$dataGridView.RowHeadersVisible = $false
$dataGridView.Read
$dataGridView.Selecti
$dataGridView.AlternatingRowsDefaultCellStyle.BackColor = "#F2F2F2"
$form.Controls.Add($dataGridView)

# Fonksiyon: Veriyi Grid'e Güvenli Basma
function Update-Grid {
    param($DataList)
    $arrayList = New-Object System.Collections.ArrayList
    if ($DataList) {
        $arrayList.AddRange($DataList)
    }
    $dataGridView.DataSource = $arrayList
}

# 1. Buton: Aktif Kullanıcılar (quser)
$btnQuser = New-Object System.Windows.Forms.Button
$btnQuser.Text = "Anlık Aktif Kullanıcılar"
$btnQuser.Location = New-Object System.Drawing.Point(20, 60)
$btnQuser.Size = New-Object System.Drawing.Size(250, 40)
$btnQuser.BackColor = "#0078D7"
$btnQuser.ForeColor = "White"
$btnQuser.Flat
$btnQuser.Cursor = [System.Windows.Forms.Cursors]::Hand
$btnQuser.Add_Click({
    # quser çıktısını güvenli bir şekilde diziye al (tek sonuç olsa bile)
    $rawOutput = @(quser 2>$null)
    
    if ($rawOutput.Count -gt 0) {
        $data = @($rawOutput | Select-Object -Skip 1 | ForEach-Object {
            # Boşluklara göre böl ve temizle
            $line = $_.Trim() -split '\s{2,}'
            [PSCustomObject]@{
                Kullanici    = $line[0].Replace(">","") # Aktif kullanıcı imlecini temizle
                Oturum_Adi   = if($line[1] -match '^\d+$') { "RDP/None" } else { $line[1] }
                ID           = if($line[1] -match '^\d+$') { $line[1] } else { $line[2] }
                Durum        = if($line[1] -match '^\d+$') { $line[2] } else { $line[3] }
                Giris_Zamani = if($line[1] -match '^\d+$') { $line[4] } else { $line[5] }
            }
        })
        Update-Grid -DataList $data
    } else {
        [System.Windows.Forms.MessageBox]::Show("Aktif oturum bulunamadı veya yetki yetersiz.", "Bilgi")
    }
})
$form.Controls.Add($btnQuser)

# 2. Buton: Son 15 Başarılı Giriş (Event Log)
$btnLogon = New-Object System.Windows.Forms.Button
$btnLogon.Text = "Son 15 Başarılı Giriş (Event Log)"
$btnLogon.Location = New-Object System.Drawing.Point(285, 60)
$btnLogon.Size = New-Object System.Drawing.Size(250, 40)
$btnLogon.BackColor = "#28A745"
$btnLogon.ForeColor = "White"
$btnLogon.Flat
$btnLogon.Cursor = [System.Windows.Forms.Cursors]::Hand
$btnLogon.Add_Click({
    try {
        $events = @(Get-WinEvent -FilterHashtable @{LogName='Security';ID=4624} -MaxEvents 15 -ErrorAction SilentlyContinue | ForEach-Object {
            [PSCustomObject]@{
                Tarih_Saat  = $_.TimeCreated
                Kullanici   = $_.Properties[5].Value
                Log # Tip 10: RDP, Tip 2: Yerel
                Kaynak_IP   = $_.Properties[18].Value
            }
        })
        Update-Grid -DataList $events
    } catch {
        [System.Windows.Forms.MessageBox]::Show("Olay günlükleri okunurken hata oluştu. Yönetici olarak çalıştırdığınızdan emin olun.", "Hata")
    }
})
$form.Controls.Add($btnLogon)

# 3. Buton: Registry Son Kullanıcı Bilgisi
$btnReg = New-Object System.Windows.Forms.Button
$btnReg.Text = "Kayıt Defteri (Son Kayıt)"
$btnReg.Location = New-Object System.Drawing.Point(550, 60)
$btnReg.Size = New-Object System.Drawing.Size(250, 40)
$btnReg.BackColor = "#6C757D"
$btnReg.ForeColor = "White"
$btnReg.Flat
$btnReg.Cursor = [System.Windows.Forms.Cursors]::Hand
$btnReg.Add_Click({
    $regPath = "HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI"
    $lastUser = (Get-ItemProperty -Path $regPath -ErrorAction SilentlyContinue).LastLoggedOnUser
    if ($lastUser) {
        [System.Windows.Forms.MessageBox]::Show("Windows Kayıt Defterine Göre Son Giriş Yapan:`n`n$lastUser", "Registry Bilgisi")
    } else {
        [System.Windows.Forms.MessageBox]::Show("Bilgi alınamadı.", "Hata")
    }
})
$form.Controls.Add($btnReg)

# Alt Bilgi (Footer)
$footer = New-Object System.Windows.Forms.Label
$footer.Text = "© 2024 Ondernet.net - Sunucu Güvenlik Analiz Aracı"
$footer.Location = New-Object System.Drawing.Point(20, 560)
$footer.Size = New-Object System.Drawing.Size(500, 20)
$footer.ForeColor = "Gray"
$form.Controls.Add($footer)

# Formu Göster
[void]$form.ShowDialog()