document.write('\
\ '); document.write('
  1. # defrag_analysis.ps1
    2. \
  2. #
    3. \
  3. # Displays Defrag Analysis Info for a remote server.
    4. \
  4. #
    5. \
  5. # Author: tojo2000@tojo2000.com
    6. \
  6.  
    7. \
  7. Set-PSDebug -Strict`
    8. \
  8.  
    9. \
  9. trap [Exception] {
    10. \
  10.   continue
    11. \
  11. }
    12. \
  12.  
    13. \
  13. function GenerateForm {
    14. \
  14. [reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null
    15. \
  15. [reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null
    16. \
  16.  
    17. \
  17. $form1 = New-Object System.Windows.Forms.Form
    18. \
  18. $richTextBox1 = New-Object System.Windows.Forms.RichTextBox
    19. \
  19. $textBox1 = New-Object System.Windows.Forms.TextBox
    20. \
  20. $button1 = New-Object System.Windows.Forms.Button
    21. \
  21.  
    22. \
  22. $handler_button1_Click = {
    23. \
  23.   $richTextBox1.Text = \'\'
    24. \
  24.   $volumes = @(gwmi Win32_Volume -ComputerName $textBox1.Text `
    25. \
  25.                -Filter \'DriveType = 3\')
    26. \
  26.  
    27. \
  27.   foreach ($volume in $volumes) {
    28. \
  28.     $analysis = $volume.DefragAnalysis().DefragAnalysis
    29. \
  29.     Write-TextBox "Drive               : $($volume.DriveLetter)"
    30. \
  30.     Write-TextBox "Volume Name         : $($analysis.VolumeName)"
    31. \
  31.     Write-TextBox ("Volume Size         : " +
    32. \
  32.                    "{0:0.00}GB" -f ($analysis.VolumeSize/1GB))
    33. \
  33.     Write-TextBox "Total Fragmentation : $($analysis.TotalPercentFragmentation)%"
    34. \
  34.     Write-TextBox ""
    35. \
  35.     Write-TextBox "Free Space          : $($analysis.FreeSpacePercent)%"
    36. \
  36.     Write-TextBox ("Free Space Frag.    : " +
    37. \
  37.                    "$($analysis.FreeSpacePercentFragmentation)%")
    38. \
  38.     Write-TextBox ""
    39. \
  39.     Write-TextBox "Files               : $($analysis.TotalFiles)"
    40. \
  40.     Write-TextBox "Fragmented Files    : $($analysis.TotalFragmentedFiles)"
    41. \
  41.     Write-TextBox "File Fragmentation  : $($analysis.FilePercentFragmentation)%"
    42. \
  42.     Write-TextBox ""
    43. \
  43.     Write-TextBox "Folders             : $($analysis.TotalFolders)"
    44. \
  44.     Write-TextBox "Fragmented Folders  : $($analysis.FragmentedFolders)"
    45. \
  45.     Write-TextBox ""
    46. \
  46.     Write-TextBox "MFT Usage           : $($analysis.MFTPercentInUse)%"
    47. \
  47.     Write-TextBox "MFT Fragments       : $($analysis.TotalMFTFragments)"
    48. \
  48.     Write-TextBox "MFT Records         : $($analysis.MFTRecordCount)"
    49. \
  49.     Write-TextBox ""
    50. \
  50.     Write-TextBox ("PageFile Size       : " +
    51. \
  51.                    "{0:0.00}GB" -f ($analysis.PageFileSize/1GB))
    52. \
  52.     Write-TextBox "PageFile Fragments  : $($analysis.TotalPageFileFragments)"
    53. \
  53.     Write-TextBox ""
    54. \
  54.     Write-TextBox "----------------------------"
    55. \
  55.   }
    56. \
  56. }
    57. \
  57.  
    58. \
  58. $handler_form1_Load = {
    59. \
  59.   $textBox1.Select()
    60. \
  60. }
    61. \
  61.  
    62. \
  62. $form1.Name = \'form1\'
    63. \
  63. $form1.Text = \'Defrag Info 1.0\'
    64. \
  64. $form1.BackColor = [System.Drawing.Color]::FromArgb(255,227,227,227)
    65. \
  65. $form1.DataBindings.DefaultDataSourceUpdateMode = 0
    66. \
  66. $System_Drawing_Size = New-Object System.Drawing.Size
    67. \
  67. $System_Drawing_Size.Width = 428
    68. \
  68. $System_Drawing_Size.Height = 404
    69. \
  69. $form1.ClientSize = $System_Drawing_Size
    70. \
  70.  
    71. \
  71. $form1.add_Load($handler_form1_Load)
    72. \
  72.  
    73. \
  73. $richTextBox1.Text = \'\'
    74. \
  74. $richTextBox1.TabIndex = 2
    75. \
  75. $richTextBox1.Name = \'richTextBox1\'
    76. \
  76. $richTextBox1.Font = New-Object System.Drawing.Font("Courier New",10,0,3,0)
    77. \
  77. $System_Drawing_Size = New-Object System.Drawing.Size
    78. \
  78. $System_Drawing_Size.Width = 343
    79. \
  79. $System_Drawing_Size.Height = 315
    80. \
  80. $richTextBox1.Size = $System_Drawing_Size
    81. \
  81. $richTextBox1.DataBindings.DefaultDataSourceUpdateMode = 0
    82. \
  82. $System_Drawing_Point = New-Object System.Drawing.Point
    83. \
  83. $System_Drawing_Point.X = 40
    84. \
  84. $System_Drawing_Point.Y = 61
    85. \
  85. $richTextBox1.Location = $System_Drawing_Point
    86. \
  86.  
    87. \
  87. $form1.Controls.Add($richTextBox1)
    88. \
  88.  
    89. \
  89. $textBox1.Text = \'<Enter Server Name>\'
    90. \
  90. $textBox1.Name = \'textBox1\'
    91. \
  91. $textBox1.TabIndex = 1
    92. \
  92. $System_Drawing_Size = New-Object System.Drawing.Size
    93. \
  93. $System_Drawing_Size.Width = 250
    94. \
  94. $System_Drawing_Size.Height = 20
    95. \
  95. $textBox1.Size = $System_Drawing_Size
    96. \
  96. $System_Drawing_Point = New-Object System.Drawing.Point
    97. \
  97. $System_Drawing_Point.X = 40
    98. \
  98. $System_Drawing_Point.Y = 21
    99. \
  99. $textBox1.Location = $System_Drawing_Point
    100. \
  100. $textBox1.DataBindings.DefaultDataSourceUpdateMode = 0
    101. \
  101.  
    102. \
  102. $form1.Controls.Add($textBox1)
    103. \
  103.  
    104. \
  104. $button1.UseVisualStyleBackColor = $True
    105. \
  105. $button1.Text = \'Analyze\'
    106. \
  106. $button1.DataBindings.DefaultDataSourceUpdateMode = 0
    107. \
  107. $button1.TabIndex = 0
    108. \
  108. $button1.Name = \'button1\'
    109. \
  109. $System_Drawing_Size = New-Object System.Drawing.Size
    110. \
  110. $System_Drawing_Size.Width = 75
    111. \
  111. $System_Drawing_Size.Height = 23
    112. \
  112. $button1.Size = $System_Drawing_Size
    113. \
  113. $System_Drawing_Point = New-Object System.Drawing.Point
    114. \
  114. $System_Drawing_Point.X = 308
    115. \
  115. $System_Drawing_Point.Y = 19
    116. \
  116. $button1.Location = $System_Drawing_Point
    117. \
  117. $button1.add_Click($handler_button1_Click)
    118. \
  118.  
    119. \
  119. $form1.Controls.Add($button1)
    120. \
  120.  
    121. \
  121. $form1.ShowDialog()| Out-Null
    122. \
  122.  
    123. \
  123. }
    124. \
  124.  
    125. \
  125. function Write-TextBox {
    126. \
  126.   param([string]$text)
    127. \
  127.   $richTextBox1.Text += "$text`n"
    128. \
  128. }
    129. \
  129.  
    130. \
  130. # Launch the form
    131. \
  131. GenerateForm
    132. \
');document.write('
downloadThis Script brought to you by PoshCode\
\
\
');