@echo off
:: HardwareInventory.bat - Comprehensive hardware assessment
echo Windows Server 2003 Hardware Inventory > hardware_report.txt
echo Generated: %date% %time% >> hardware_report.txt
echo ================================== >> hardware_report.txt

:: CPU Information
echo. >> hardware_report.txt
echo CPU Information: >> hardware_report.txt
wmic cpu get Name, MaxClockSpeed, NumberOfCores, L2CacheSize /format:list >> hardware_report.txt

:: Memory Information
echo. >> hardware_report.txt
echo Memory Information: >> hardware_report.txt
wmic memorychip get Capacity, Speed, Manufacturer /format:list >> hardware_report.txt
wmic OS get TotalVisibleMemorySize, FreePhysicalMemory /format:list >> hardware_report.txt

:: Disk Information
echo. >> hardware_report.txt
echo Disk Information: >> hardware_report.txt
wmic diskdrive get Model, Size, Status /format:list >> hardware_report.txt

:: Check SMART status
echo. >> hardware_report.txt
echo SMART Status: >> hardware_report.txt
wmic diskdrive get Status, StatusInfo, PredictFailure /format:list >> hardware_report.txt

echo Report saved to hardware_report.txt

# CreateBaseline.ps1 - Establish performance baseline
$counters = @(
    "\Processor(_Total)\% Processor Time",
    "\Memory\Available MBytes",
    "\Memory\Pages/sec",
    "\PhysicalDisk(_Total)\% Disk Time",
    "\PhysicalDisk(_Total)\Avg. Disk Queue Length",
    "\System\Processor Queue Length"
)

# Create data collector
$datacollector = New-Object -COM Pla.DataCollectorSet
$datacollector.DisplayName = "Server2003_Baseline"
$datacollector.Duration = 3600  # 1 hour
$datacollector.SampleInterval = 15

foreach($counter in $counters) {
    $datacollector.CounterSets += $counter
}

Write-Host "Baseline collection started. Duration: 1 hour"

@echo off
:: OptimizePageFile.bat - Optimize virtual memory

echo Configuring optimal page file settings...

:: Set page file to 1.5x RAM on separate disk if available
wmic computersystem get TotalPhysicalMemory /value > temp.txt
for /f "tokens=2 delims==" %%a in ('findstr TotalPhysicalMemory temp.txt') do set RAM=%%a
set /a MINSIZE=%RAM%/1048576
set /a MAXSIZE=%MINSIZE%*2

:: Configure page file
wmic pagefileset where name="C:\\pagefile.sys" set InitialSize=%MINSIZE%,MaximumSize=%MAXSIZE%

:: If D: drive exists, move page file
if exist D:\ (
    wmic pagefileset create name="D:\\pagefile.sys"
    wmic pagefileset where name="D:\\pagefile.sys" set InitialSize=%MINSIZE%,MaximumSize=%MAXSIZE%
    wmic pagefileset where name="C:\\pagefile.sys" delete
)

del temp.txt
echo Page file optimization complete. Restart required.

Windows Registry Editor Version 5.00

; Optimize memory cache for file server
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"LargeSystemCache"=dword:00000001
"DisablePagingExecutive"=dword:00000001

; Optimize for background services
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\PriorityControl]
"Win32PrioritySeparation"=dword:00000026

; Increase I/O page lock limit
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"IoPageLockLimit"=dword:00080000

' ClearMemory.vbs - Free up memory
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")

' Clear working sets
Set colProcesses = objWMI.ExecQuery("SELECT * FROM Win32_Process")
For Each objProcess In colProcesses
    On Error Resume Next
    objProcess.SetPriority(32) ' Normal priority
    If objProcess.WorkingSetSize > 104857600 Then ' > 100MB
        WScript.Echo "Trimming process: " & objProcess.Name
        ' Force garbage collection in managed apps
    End If
Next

' Clear standby list (requires SysInternals RAMMap or similar)
WScript.Echo "Memory optimization complete"

@echo off
:: ProcessPriority.bat - Optimize process priorities

:: Set critical services to high priority
wmic process where name="lsass.exe" CALL setpriority "high"
wmic process where name="services.exe" CALL setpriority "above normal"
wmic process where name="w3wp.exe" CALL setpriority "above normal"

:: Lower non-critical process priorities
wmic process where name="SearchIndexer.exe" CALL setpriority "idle"
wmic process where name="wmiprvse.exe" CALL setpriority "below normal"

echo Process priorities optimized.

# SetAffinity.ps1 - Configure CPU affinity for multi-core systems
$criticalProcesses = @("sqlservr", "w3wp", "dns")
$cores = (Get-WmiObject Win32_Processor).NumberOfCores

foreach($procName in $criticalProcesses) {
    $processes = Get-Process -Name $procName -ErrorAction SilentlyContinue
    foreach($proc in $processes) {
        # Assign to specific cores
        $proc.ProcessorAffinity = [Convert]::ToInt32("11", 2) # First 2 cores
        Write-Host "Set affinity for $($proc.Name) PID: $($proc.Id)"
    }
}

@echo off
:: ManageInterrupts.bat - Optimize interrupt handling

:: Enable interrupt moderation for network adapters
for /f "tokens=1" %%a in ('wmic nic where "NetEnabled=true" get Index') do (
    reg add "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\%%a" /v "TcpAckFrequency" /t REG_DWORD /d 1 /f
    reg add "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\%%a" /v "TCPNoDelay" /t REG_DWORD /d 1 /f
)

echo Interrupt optimization complete.

@echo off
:: SmartDefrag.bat - Intelligent defragmentation

:: Check fragmentation level
defrag C: -a > fragstatus.txt

:: Parse fragmentation percentage
for /f "tokens=3" %%a in ('findstr /c:"Total fragmentation" fragstatus.txt') do set FRAG=%%a

:: Only defrag if fragmentation > 10%
if %FRAG% GTR 10 (
    echo High fragmentation detected: %FRAG%%%
    echo Starting defragmentation...
    defrag C: -f
) else (
    echo Fragmentation acceptable: %FRAG%%%
)

del fragstatus.txt

' OptimizeDiskCache.vbs
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set colDisks = objWMI.ExecQuery("SELECT * FROM Win32_DiskDrive")

For Each objDisk In colDisks
    WScript.Echo "Optimizing disk: " & objDisk.Caption

    ' Enable write caching
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "fsutil behavior set disablelastaccess 1", 0, True
    objShell.Run "fsutil behavior set mftzone 2", 0, True
Next

WScript.Echo "Disk cache optimization complete"

@echo off
:: RAIDOptimize.bat - Optimize RAID controller settings

:: Check for common RAID controllers
wmic scsicontroller get Caption | findstr /i "RAID" > raidinfo.txt

if exist raidinfo.txt (
    echo RAID controller detected
    :: Enable write-back cache if battery present
    :: Controller-specific commands here

    :: Generic optimizations
    reg add "HKLM\SYSTEM\CurrentControlSet\Services\disk" /v "TimeOutValue" /t REG_DWORD /d 60 /f
)

del raidinfo.txt

Windows Registry Editor Version 5.00

; TCP/IP Performance Settings
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters]
"TcpWindowSize"=dword:0000faf0
"Tcp1323Opts"=dword:00000003
"SackOpts"=dword:00000001
"DefaultTTL"=dword:00000040
"TcpMaxDupAcks"=dword:00000002

; Network adapter optimizations
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{Adapter-GUID}]
"TcpAckFrequency"=dword:00000001
"TcpDelAckTicks"=dword:00000000
"TCPNoDelay"=dword:00000001

# OptimizeNIC.ps1 - Network adapter optimization
$adapters = Get-WmiObject Win32_NetworkAdapter | Where-Object {$_.NetEnabled -eq $true}

foreach($adapter in $adapters) {
    Write-Host "Optimizing: $($adapter.Name)"

    # Disable power management
    $powerMgmt = Get-WmiObject MSPower_DeviceEnable -Namespace root\wmi | 
                 Where-Object {$_.InstanceName -match $adapter.PNPDeviceID}
    if($powerMgmt) {
        $powerMgmt.Enable = $false
        $powerMgmt.Put()
    }

    # Set performance options via netsh
    netsh int tcp set global autotuninglevel=disabled
    netsh int tcp set global rss=disabled
}

@echo off
:: DisableServices.bat - Disable resource-heavy services

echo Disabling unnecessary services...

:: Services safe to disable on most servers
set SERVICES=Alerter Browser ClipSrv FastUserSwitchingCompatibility ^
             HidServ Messenger mnmsrvc NetMeeting SSDPSRV upnphost ^
             WebClient WmdmPmSp Themes TlntSvr RemoteRegistry

for %%s in (%SERVICES%) do (
    sc stop %%s >nul 2>&1
    sc config %%s start= disabled >nul 2>&1
    echo Disabled: %%s
)

echo Service optimization complete.

' DelayedStart.vbs - Configure service start delays
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")

' Non-critical services to delay
delayedServices = Array("Spooler", "BITS", "Schedule", "AudioSrv")

For Each serviceName In delayedServices
    Set objService = objWMI.Get("Win32_Service.Name='" & serviceName & "'")
    If objService.StartMode = "Auto" Then
        ' Create delayed start script
        CreateDelayScript serviceName, 60 ' 60 second delay
        WScript.Echo "Configured delayed start for: " & serviceName
    End If
Next

Sub CreateDelayScript(svcName, delaySeconds)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile("C:\Scripts\Start_" & svcName & ".vbs", True)
    objFile.WriteLine "WScript.Sleep " & (delaySeconds * 1000)
    objFile.WriteLine "Set objShell = CreateObject(""WScript.Shell"")"
    objFile.WriteLine "objShell.Run ""net start " & svcName & """, 0, True"
    objFile.Close
End Sub

@echo off
:: OptimizeDotNet.bat - Optimize .NET Framework

echo Optimizing .NET Framework...

:: Precompile assemblies
cd /d %WINDIR%\Microsoft.NET\Framework\v2.0.50727
ngen executeQueuedItems

:: Configure garbage collection
reg add "HKLM\SOFTWARE\Microsoft\.NETFramework" /v "gcServer" /t REG_DWORD /d 1 /f
reg add "HKLM\SOFTWARE\Microsoft\.NETFramework" /v "gcConcurrent" /t REG_DWORD /d 1 /f

echo .NET optimization complete.

-- SQL Server Performance Optimization
-- Set memory limits (adjust based on available RAM)
EXEC sp_configure 'min server memory', 512;
EXEC sp_configure 'max server memory', 2048;
RECONFIGURE;

-- Configure parallelism
EXEC sp_configure 'max degree of parallelism', 2;
EXEC sp_configure 'cost threshold for parallelism', 50;
RECONFIGURE;

-- Update statistics
EXEC sp_updatestats;

-- Rebuild indexes
EXEC sp_MSforeachtable 'ALTER INDEX ALL ON ? REBUILD';

# PerfMonitor.ps1 - Continuous performance monitoring
$logPath = "C:\PerfLogs"
if(!(Test-Path $logPath)) { New-Item -ItemType Directory -Path $logPath }

$date = Get-Date -Format "yyyyMMdd"
$perfLog = "$logPath\Performance_$date.csv"

# Critical metrics to monitor
$metrics = @{
    "CPU Usage" = "\Processor(_Total)\% Processor Time"
    "Memory Available" = "\Memory\Available MBytes"
    "Disk Queue" = "\PhysicalDisk(_Total)\Avg. Disk Queue Length"
    "Page Faults" = "\Memory\Pages/sec"
}

while($true) {
    $timestamp = Get-Date -Format "yyyy-MM-dd HH:mm:ss"
    $row = "$timestamp"

    foreach($metric in $metrics.GetEnumerator()) {
        try {
            $value = (Get-Counter $metric.Value -ErrorAction SilentlyContinue).CounterSamples[0].CookedValue
            $row += ",$([math]::Round($value, 2))"
        } catch {
            $row += ",N/A"
        }
    }

    Add-Content -Path $perfLog -Value $row
    Start-Sleep -Seconds 60
}

' PredictiveAnalysis.vbs - Predict hardware failures
Set objWMI = GetObject("winmgmts:\\.\root\wmi")

' Check disk health
Set colDisks = objWMI.ExecQuery("SELECT * FROM MSStorageDriver_FailurePredictStatus")
For Each objDisk In colDisks
    If objDisk.PredictFailure = True Then
        WScript.Echo "WARNING: Disk failure predicted!"
        ' Send alert email
    End If
Next

' Check memory errors
Set colMemory = objWMI.ExecQuery("SELECT * FROM Win32_PhysicalMemory")
For Each objMem In colMemory
    If objMem.Status <> "OK" Then
        WScript.Echo "WARNING: Memory errors detected in: " & objMem.DeviceLocator
    End If
Next

@echo off
:: QuickBoost.bat - Emergency performance recovery

echo Starting emergency performance recovery...

:: Clear temp files
del /f /s /q %temp%\*.* >nul 2>&1
del /f /s /q C:\Windows\Temp\*.* >nul 2>&1

:: Stop unnecessary processes
taskkill /f /im searchindexer.exe >nul 2>&1
taskkill /f /im wmiprvse.exe >nul 2>&1

:: Clear DNS cache
ipconfig /flushdns

:: Reset network stack
netsh int ip reset
netsh winsock reset

:: Restart critical services
net stop spooler & net start spooler
net stop w3svc & net start w3svc

echo Performance recovery complete. Monitor system.

<!-- ScheduledCleanup.xml - Task Scheduler job -->
<?xml version="1.0" encoding="UTF-16"?>
<Task version="1.2" xmlns="http://schemas.microsoft.com/windows/2004/02/mit/task">
  <Triggers>
    <CalendarTrigger>
      <StartBoundary>2024-01-01T02:00:00</StartBoundary>
      <ExecutionTimeLimit>PT2H</ExecutionTimeLimit>
      <Enabled>true</Enabled>
      <ScheduleByDay>
        <DaysInterval>1</DaysInterval>
      </ScheduleByDay>
    </CalendarTrigger>
  </Triggers>
  <Actions>
    <Exec>
      <Command>C:\Scripts\NightlyCleanup.bat</Command>
    </Exec>
  </Actions>
</Task>

# Benchmark.ps1 - Comprehensive system benchmark
Write-Host "Windows Server 2003 Performance Benchmark" -ForegroundColor Green
Write-Host "======================================" -ForegroundColor Green

# CPU Benchmark
Write-Host "`nCPU Benchmark:" -ForegroundColor Yellow
$start = Get-Date
$sum = 0
for($i = 0; $i -lt 10000000; $i++) { $sum += $i }
$cpuTime = (Get-Date) - $start
Write-Host "  Calculation Time: $($cpuTime.TotalSeconds) seconds"

# Memory Benchmark
Write-Host "`nMemory Benchmark:" -ForegroundColor Yellow
$array = New-Object byte[] 104857600 # 100MB
$start = Get-Date
for($i = 0; $i -lt $array.Length; $i += 4096) { $array[$i] = 255 }
$memTime = (Get-Date) - $start
Write-Host "  Memory Write Speed: $([math]::Round(100/$memTime.TotalSeconds, 2)) MB/s"

# Disk Benchmark
Write-Host "`nDisk Benchmark:" -ForegroundColor Yellow
$testFile = "C:\benchmark.tmp"
$data = New-Object byte[] 104857600 # 100MB
$start = Get-Date
[System.IO.File]::WriteAllBytes($testFile, $data)
$writeTime = (Get-Date) - $start
Write-Host "  Write Speed: $([math]::Round(100/$writeTime.TotalSeconds, 2)) MB/s"

Remove-Item $testFile -Force