Get-ProcessesAsExcel.ps1

1. <# 
2. .SYNOPSIS 
3.     This script creates an Excel workbook using PowerShell and  
4.     populates it with the results of calling Get-Process and  
5.     copying across the key properties 
6. .DESCRIPTION 
7.     This script demonstrates manipulating Excel with PowerShell 
8.     and the Excel.Application COM object. 
9. .NOTES 
10.     File Name  : .\Get-ProcessesAsExcel.ps1 
11.     Author     : Thomas Lee - tfl@psp.co.uk 
12.     Requires   : PowerShell Version 2.0 
13. .LINK 
14.     This script posted to:
15. http://pshscripts.blogspot.com/2012/02/get-processesasexcelps1.html
16. .EXAMPLE 
17.     Left as an exercise to the reader. 
18. #> 
19. ##  
20. # Start of Script 
21. ## 
22.  
23. # First, create and single worksheet workbook 
24.  
25. # Create Excel object 
26. $excel = new-object -comobject Excel.Application 
27.     
28. # Make Excel visible 
29. $excel.visible = $true 
30.    
31. # Create a new workbook 
32. $workbook = $excel.workbooks.add() 
33.  
34. # The default workbook has three sheets, remove 2,4 
35. $S2 = $workbook.sheets | where {$_.name -eq "Sheet2"} 
36. $s3 = $workbook.sheets | where {$_.name -eq "Sheet3"} 
37. $s2.delete() 
38. $s3.delete() 
39.   
40. # Get sheet and update sheet name 
41. $s1 = $workbook.sheets | where {$_.name -eq 'Sheet1'} 
42. $s1.name = "Processes" 
43.    
44. # Update workook properties 
45. $workbook.author  = "Thomas Lee - Doctordns@gmail.com" 
46. $workbook.title   = "Processes running on $(hostname)" 
47. $workbook.subject = "Demonstrating the Power of PowerShell with Excel" 
48.    
49. # Next update Headers 
50. $s1.range("A1:A1").cells="Handles" 
51. $s1.range("B1:B1").cells="NPM(k)" 
52. $s1.range("C1:C1").cells="PM(k)" 
53. $s1.range("D1:D1").cells="WS(k)" 
54. $s1.range("E1:E1").cells="VM(M)" 
55. $s1.range("F1:F1").cells="CPU" 
56. $s1.range("G1:G1").cells="ID" 
57. $s1.range("H1:H1").cells="Process Name" 
58.  
59. $row = 2 
60. Foreach ($Process in $(Get-Process)) { 
61.  $s1.range("A$Row:A$Row").cells=$Process.handles 
62.  $s1.range("b$Row:B$Row").cells=$Process.NPM 
63.  $s1.range("c$Row:C$Row").cells=$Process.PM 
64.  $s1.range("d$Row:D$Row").cells=$Process.WS 
65.  $s1.range("e$Row:E$Row").cells=$Process.VM 
66.  $s1.range("f$Row:F$Row").cells=$Process.CPU 
67.  $s1.range("g$Row:G$Row").cells=$Process.ID 
68.  $s1.range("h$Row:H$Row").cells=$Process.Name 
69.  $row++ 
70. } 
71.  
72. # And save it away: 
73. $s1.saveas("c:\foo\process.xlsx") 
74. # end of script 

Test-FileOpen

1. <# 
2. .SYNOPSIS 
3.     This script defines a function that tests to 
4.     see if a file is open. 
5. .DESCRIPTION 
6.     This script used the System.Io.FileStream class  
7.     and the FileInfo class to try to open a file 
8.     stream for write. If it fails, we return $false, 
9.     else we close the file and return $True 
10. .NOTES 
11.     File Name  : Test-FileOpen.ps1 
12.     Author     : Thomas Lee - tfl@psp.co.uk 
13.     Requires   : PowerShell Version 2.0 
14. .LINK 
15.     This script posted to: 
16.         http://www.pshscripts.blogspot.com 
17. .EXAMPLE 
18.     Psh[Cookham8:C:\foo]> $file = New-Object -TypeName System.IO.FileInfo C:\foo\doc1.docx 
19.     Psh[Cookham8:C:\foo]>Test-FileOpen $file 
20.     True 
21. #> 
22.  
23. Function Test-FileOpen { 
24.  
25. Param ( 
26. $fileName = $(Throw '***** No File specified')  
27. ) 
28.  
29. $ErrorActionPreference = "SilentlyContinue" 
30. [System.IO.FileStream] $fs = $file.OpenWrite();  
31. if (!$?) {$true} 
32. else {$fs.Dispose();$false} 
33. } 
34.  
35. # Test the function 
36. $file = New-Object -TypeName System.IO.FileInfo C:\foo\doc1.docx 
37. Test-FileOpen $file 

Technorati Tags: System.Io.Filestream,System.Io.FileInfo,PowerShell,File Open