document.write('\
\ '); document.write('
  1. # Run-Defrag
    2. \
  2. # Defragments the targeted hard drives.
    3. \
  3. #
    4. \
  4. # Args:
    5. \
  5. #   $server: A target Server 2003 or 2008 system
    6. \
  6. #   $drive: An optional drive letter.  If this is blank then all
    7. \
  7. #           drives are defragmented
    8. \
  8. #   $force: If this switch is set then a defrag will be forced
    9. \
  9. #           even if the drive is low on space
    10. \
  10. #
    11. \
  11. # Returns:
    12. \
  12. #   The result description for each drive.
    13. \
  13.  
    14. \
  14. function Run-Defrag {
    15. \
  15.   param([string]$server, [string]$drive, [switch]$force)
    16. \
  16.  
    17. \
  17.   [string]$query = \'Select * from Win32_Volume where DriveType = 3\'
    18. \
  18.  
    19. \
  19.   if ($drive) {
    20. \
  20.     $query += " And DriveLetter LIKE \'$drive%\'"
    21. \
  21.   }
    22. \
  22.  
    23. \
  23.   $volumes = Get-WmiObject -Query $query -ComputerName $server
    24. \
  24.  
    25. \
  25.   foreach ($volume in $volumes) {
    26. \
  26.     Write-Host "Defragmenting $($volume.DriveLetter)..." -noNewLine
    27. \
  27.                
    28. \
  28.     $result = ($volume.Defrag($force)).ReturnValue
    29. \
  29.     switch ($result) {
    30. \
  30.       0  {Write-Host \'Success\'}
    31. \
  31.       1  {Write-Host \'Access Denied\'}
    32. \
  32.       2  {Write-Host \'Not Supported\'}
    33. \
  33.       3  {Write-Host \'Volume Dirty Bit Set\'}
    34. \
  34.       4  {Write-Host \'Not Enough Free Space\'}
    35. \
  35.       5  {Write-Host \'Corrupt MFT Detected\'}
    36. \
  36.       6  {Write-Host \'Call Cancelled\'}
    37. \
  37.       7  {Write-Host \'Cancellation Request Requested Too Late\'}
    38. \
  38.       8  {Write-Host \'Defrag In Progress\'}
    39. \
  39.       9  {Write-Host \'Defrag Engine Unavailable\'}
    40. \
  40.       10 {Write-Host \'Defrag Engine Error\'}
    41. \
  41.       11 {Write-Host \'Unknown Error\'}
    42. \
  42.     }
    43. \
  43.   }
    44. \
  44. }
    45. \
');document.write('
downloadThis Script brought to you by PoshCode\
\
\
');