Fazlaca anlatım yapmaya gerek yok, basit bir sistem bilgisi alma betiğidir.
Ekran Görüntüsü :
Kod: Tümünü seç
# ==============================
# Sistem Bilgisi Raporu - TRWE_2012
# ==============================
Write-Host "`n=== SISTEM BILGISI RAPORU ===`n"
# --- Donanım Bilgileri ---
$cpu = Get-CimInstance Win32_Processor
$gpu = Get-CimInstance Win32_VideoController
$ram = Get-CimInstance Win32_PhysicalMemory
$disk = Get-CimInstance Win32_DiskDrive
$board = Get-CimInstance Win32_BaseBoard
$bios = Get-CimInstance Win32_BIOS
$net = Get-NetAdapter | Where-Object {$_.Status -eq "Up"}
# --- CPU ---
Write-Host "---- ISLEMCi ----"
Write-Host "Model: $($cpu.Name)"
Write-Host "Cekirdek: $($cpu.NumberOfCores)"
Write-Host "Mantıksal Cekirdek: $($cpu.NumberOfLogicalProcessors)"
Write-Host ""
# --- GPU ---
Write-Host "---- EKRAN KARTLARI ----"
foreach ($g in $gpu) {
Write-Host "GPU: $($g.Name)"
Write-Host "VRAM: $([math]::Round($g.AdapterRAM/1MB)) MB"
# NVIDIA sıcaklık (varsa)
try {
$temp = nvidia-smi --query-gpu=temperature.gpu --format=csv,noheader
Write-Host "Sıcaklık: $temp °C"
} catch {}
Write-Host ""
}
# --- RAM ---
Write-Host "---- BELLEK ----"
$ToplamRAM = ($ram.Capacity | Measure-Object -Sum).Sum
Write-Host "Toplam RAM: $([math]::Round($ToplamRAM/1GB)) GB"
Write-Host "RAM Modülleri:"
$ram | ForEach-Object { Write-Host "Slot: $($_.BankLabel), Device: $($_.DeviceLocator), Capacity: $([math]::Round($_.Capacity/1GB)) GB, Speed: $($_.Speed) MHz, Manufacturer: $($_.Manufacturer)" }
Write-Host ""
# --- Depolama ---
Write-Host "---- DEPOLAMA ----"
foreach ($d in $disk) {
Write-Host "Disk Model: $($d.Model)"
Write-Host "Boyut: $([math]::Round($d.Size/1GB)) GB"
}
Write-Host ""
# --- Anakart ve BIOS ---
Write-Host "---- ANAKART ----"
Write-Host "Üretici: $($board.Manufacturer)"
Write-Host "Model: $($board.Product)"
Write-Host ""
Write-Host "---- BIOS ----"
Write-Host "Versiyon: $($bios.SMBIOSBIOSVersion)"
Write-Host "Tarih: $($bios.ReleaseDate)"
Write-Host ""
# --- Ağ adaptörleri ---
Write-Host "---- AG ADAPTERLERI ----"
foreach ($a in $net) {
Write-Host "Adaptör: $($a.Name), Hız: $($a.LinkSpeed), MAC: $($a.MacAddress)"
}
Write-Host ""
# --- DirectX Bilgisi ---
Write-Host "---- DIRECTX ----"
$dxFile = "$env:TEMP\dxdiag_temp.txt"
dxdiag /t $dxFile | Out-Null
$dxContent = Get-Content $dxFile
$dxVer = ($dxContent | Where-Object {$_ -match "DirectX Version"}).Trim()
Write-Host $dxVer
Remove-Item $dxFile -Force
Write-Host ""
# --- Kaydetme ---
Write-Host "Rapor masaüstüne kaydedilsin mi? (E/H)"
$secim = Read-Host "Secim"
if ($secim -match "^[Ee]$") {
$Desktop = [Environment]::GetFolderPath("Desktop")
$ReportPath = Join-Path $Desktop "Sistem_Raporu.txt"
# Tüm bilgileri rapora yaz
$Rapor = @()
$Rapor += "=== SISTEM BILGISI RAPORU ==="
$Rapor += "Islemci: $($cpu.Name) - Cekirdek: $($cpu.NumberOfCores), Mantiksal: $($cpu.NumberOfLogicalProcessors)"
$Rapor += "GPU:"
foreach ($g in $gpu) { $Rapor += " $($g.Name) - VRAM: $([math]::Round($g.AdapterRAM/1MB)) MB" }
$Rapor += "Toplam RAM: $([math]::Round($ToplamRAM/1GB)) GB"
$Rapor += "RAM Modülleri:"
$ram | ForEach-Object { $Rapor += " Slot: $($_.BankLabel), Device: $($_.DeviceLocator), Capacity: $([math]::Round($_.Capacity/1GB)) GB, Speed: $($_.Speed) MHz, Manufacturer: $($_.Manufacturer)" }
$Rapor += "Diskler:"
foreach ($d in $disk) { $Rapor += " $($d.Model) - $([math]::Round($d.Size/1GB)) GB" }
$Rapor += "Anakart: $($board.Manufacturer) $($board.Product)"
$Rapor += "BIOS: $($bios.SMBIOSBIOSVersion) - $($bios.ReleaseDate)"
$Rapor += "Ağ Adaptörleri:"
foreach ($a in $net) { $Rapor += " $($a.Name), Hız: $($a.LinkSpeed), MAC: $($a.MacAddress)" }
$Rapor += "DirectX: $dxVer"
$Rapor | Out-File -FilePath $ReportPath -Encoding UTF8
Write-Host "`nRapor kaydedildi: $ReportPath"
} else {
Write-Host "`nRapor kaydedilmedi."
}
Write-Host "`nIslem tamamlandi."
Güle güle kullanın...
