Get-ServiceDetails.ps1

1. <# 
2. .SYNOPSIS 
3.     This script displays service details 
4. .DESCRIPTION 
5.     This script first enumerates all the service controllers (ie services) 
6.     running on the local system. For each service, we look into WMI and 
7.     get info about that running service. 
8. .NOTES 
9.     File Name  : Get-ServiceDetails.ps1 
10.     Author     : Thomas Lee - tfl@psp.co.uk 
11.     Requires   : PowerShell Version 2.0 
12. .LINK 
13.     This script posted to: 
14.         http://pshscripts.blogspot.com/2010/05/get-servicedetailsps1.html 
15.     MSDN Sample posted at: 
16.         http://msdn.microsoft.com/en-us/library/hde9d63a.aspx   
17. .EXAMPLE 
18.     PSH [C:\foo]: .\Get-ServiceDetails.ps1' 
19.     Services running on the local computer: 
20.  
21.       Service :        AeLookupSvc 
22.         Display name:    Application Experience 
23.         Start name:      localSystem 
24.         Description:     Processes application compatibility cache requests for applications as they are launched 
25.  
26.       Service :        AppHostSvc 
27.         Display name:    Application Host Helper Service 
28.         Start name:      LocalSystem 
29.         Description:     Provides administrative services for IIS, for example configuration history and Applicati 
30. on Pool account mapping. If this service is stopped, configuration history and locking down files or directori 
31. es with Application Pool specific Access Control Entries will not work. 
32. <rest snipped to save space!> 
33. #> 
34.  
35. ## 
36. # Start of script 
37. ## 
38.   
39. # Load assembly with ServiceProcess class 
40. $result = [reflection.Assembly]::LoadWithPartialName("System.ServiceProcess") 
41. $Services = [System.ServiceProcess.ServiceController]::GetServices() 
42.   
43. # Get WMI Services 
44. $WMIServices = gwmi win32_service 
45. # Display the list of services currently running on this computer. 
46.   
47. "Services running on the local computer:" 
48. foreach ($Service in $Services) { 
49.   
50. if ($Service.Status -eq [system.ServiceProcess.ServiceControllerStatus]::Running)  { 
51.   # Write the service name and the display name 
52.   # for each running service. 
53.   "" 
54.   "  Service :        {0}"      -f  $Service.ServiceName 
55.   "    Display name:    {0}"    -f  $Service.DisplayName 
56.   # query WMI for more info on service 
57.   $svc = $wmiServices  | where {$_.name -eq $service.servicename}   
58.   "    Start name:      {0}"    -f  $Svc.StartName 
59.   "    Description:     {0}"    -f  $Svc.Description 
60. } 
61. } 
62. # End 

Technorati Tags: PowerShell,code,script,System.ServiceProcess.ServiceController

Write-XmlElementString.ps1

1. <# 
2. .SYNOPSIS 
3.     This script uses XMLWriter to write an XML Element 
4. .DESCRIPTION 
5.     This script creates and uses and XML writer to write an  
6.     XML Element 
7. .NOTES 
8.     File Name  : Write-XxmElementString.ps1 
9.     Author     : Thomas Lee - tfl@psp.co.uk 
10.     Requires   : PowerShell Version 2.0 
11. .LINK 
12.     This script posted to: 
13.         http://pshscripts.blogspot.com/2010/05/write-xxmelementstringps1.html
14.     MSDN Sample posted at: 
15.         http://msdn.microsoft.com/en-us/library/aex0e7zs.aspx  
16. .EXAMPLE 
17.     PSH [C:\foo]: .\Write-XmlElementString.ps1' 
18.     <orderID>1-456-ab</orderID><orderID>2-36-00a</orderID> 
19. #> 
20. # Create new XMLWriter settings 
21. $settings = new-object System.Xml.XmlWriterSettings 
22. $settings.OmitXmlDeclaration = $true 
23. $settings.ConformanceLevel = 'Fragment' 
24. $settings.CloseOutput = $false; 
25.  
26. # Create the XmlWriter object and write some content. 
27. #$strm = new-object system.io.MemoryStream 
28. $writer = [system.xml.XmlWriter]::Create("c:\foo\data.xml", $settings) 
29. $writer.WriteElementString("orderID", "1-456-ab") 
30. $writer.WriteElementString("orderID", "2-36-00a") 
31. $writer.Flush() 
32. $writer.Close() 
33.  
34. # Display data 
35. cat c:\foo\data.xml 
36. # End Script 

Technorati Tags: PowerShell,Scripts,Code,System.XML.XMLWriter,System.XML.XMLWriterSettings

Write-XML.ps1

1. <# 
2. .SYNOPSIS 
3.     This script uses XMLWriter to write XML 
4. .DESCRIPTION 
5.     This script creates and XML writer and writes some basic 
6.     XML. 
7. .NOTES 
8.     File Name  : Write-XML.ps1 
9.     Author     : Thomas Lee - tfl@psp.co.uk 
10.     Requires   : PowerShell Version 2.0 
11. .LINK 
12.     This script posted to: 
13.         http://pshscripts.blogspot.com/2010/05/write-xmlps1.html 
14.     MSDN Sample posted at: 
15.        http://msdn.microsoft.com/en-us/library/system.xml.xmlwritersettings.aspx  
16. .EXAMPLE 
17.     PSH [C:\foo]: .\Write-XML.ps1' 
18.     <?xml version="1.0" encoding="IBM437"?> 
19.     <order 
20.       orderID="367A54" 
21.       date="2001-05-03"> 
22.       <price>19.95</price> 
23.     </order>PSH [C:\foo]: 
24. #> 
25. # Create a new writer settings object 
26. # And set settings 
27. $settings = New-Object system.Xml.XmlWriterSettings 
28. $settings.Indent = $true 
29. $settings.OmitXmlDeclaration = $false 
30. $settings.NewLineOnAttributes = $true 
31.  
32. # Create a new Writer 
33. $writer = [system.xml.XmlWriter]::Create([system.console]::Out, $settings) 
34.  
35. #Write some XML 
36. $writer.WriteStartElement("order") 
37. $writer.WriteAttributeString("orderID", "367A54") 
38. $writer.WriteAttributeString("date", "2001-05-03") 
39. $writer.WriteElementString("price", "19.95") 
40. $writer.WriteEndElement() 
41. # Flush the writer (and close the file)     
42. $writer.Flush() 
43. $writer.Close() 

Technorati Tags: PowerShell,script,code,System.XML.XMLWriterSettings,System.XML.XMLWriter

Start-Process2.ps1

1. <# 
2. .SYNOPSIS 
3.     This script starts up a process using System.Diagnostics.Process  
4. .DESCRIPTION 
5.     This script creates 7 occurences of IExplore.exe, using 
6.     diffrent start up options, based on a sample script in MSDN. 
7. .NOTES 
8.     File Name  : Start-process2.ps1 
9.     Author     : Thomas Lee - tfl@psp.co.uk 
10.     Requires   : PowerShell Version 2.0 
11. .LINK 
12.     This script posted to: 
13.         http://pshscripts.blogspot.com/2010/05/start-process2ps1.html
14.     MSDN Sample posted at: 
15.         http://msdn.microsoft.com/en-us/library/0w4h05yb.aspx  
16. .EXAMPLE 
17.     PSH [C:\foo]: .\Start-Process2.ps1' 
18.     Starting IE at home page (p1) 
19.     Opening Favourites (p2) 
20.     Opening PSHScripts (p3) 
21.     Opening c:\foo\myfile.htm (p4) 
22.     Opening c:\foo\myfile.asp (p5) 
23.     Opening with Start info (p6) 
24.     Opening with startinfo + www.reskit.net (p7) 
25. #> 
26.  
27. # Helper Functions 
28.  
29. # Opens the Internet Explorer application. 
30. function OpenApplication { 
31. param([string] $FavoritesPath) 
32.  
33. # Start Internet Explorer. Defaults to the home page. 
34. "Starting IE at home page (p1)" 
35. $proc1 = [System.Diagnostics.Process]::start("IExplore.exe"); 
37. # Display the contents of the favorites folder in the browser. 
38. "Opening Favourites (p2)" 
39. $proc2=[System.Diagnostics.Process]::Start($FavoritesPath); 
40. } 
41.  
42. # Opens urls and .html documents using Internet Explorer. 
43. function OpenWithArguments {  
45. # url's are not considered documents. They can only be opened 
46. # by passing them as arguments. 
47. "Opening PSHScripts (p3)" 
48. $proc3 = [System.Diagnostics.Process]::Start("IExplore.exe", "www.pshscripts.blogspot.com") 
49.  
50. # Start a Web page using a browser associated with .html and .asp files. 
51. "Opening c:\foo\myfile.htm (p4)" 
52. $proc4 = [System.Diagnostics.Process]::Start("IExplore.exe", "C:\foo\myFile.htm") 
53. "Opening c:\foo\myfile.asp (p5)" 
54. $proc5 = [System.Diagnostics.Process]::Start("IExplore.exe", "C:\foo\myFile.asp") 
55. } 
56.  
57. # Uses the ProcessStartInfo class to start new processes, 
58. # both in a minimized mode. 
59. function OpenWithStartInfo { 
60. $StartInfo = New-Object System.Diagnostics.ProcessStartInfo "IExplore.exe" 
61. $StartInfo.WindowStyle = [System.Diagnostics.ProcessWindowStyle]::Minimized; 
62. "Opening with Start info (p6)" 
63. $proc6 = [System.Diagnostics.Process]::Start($StartInfo) 
64. "Opening with startinfo + www.reskit.net (p7)" 
65. $StartInfo.Arguments = "www.reskit.net"; 
66. $proc7 = [System.Diagnostics.Process]::Start($startInfo) 
67. } 
68.  
69. ## 
70. # Start of script 
71. ## 
72.  
73. # First, get Favourites path 
74. $FavoritesPath = [system.Environment]::GetFolderPath('Favorites') 
75.  
76. # Open two windows - one pointing to IE's home page, the other 
77. # to my favourites folder (p1, p2) 
78. OpenApplication $FavoritesPath 
79.  
80. # Here call function to open pshscripts, c:\foo\myfile.htm c:\foo\myfile.asp 
81. #p3, p3, p5 
82. OpenWithArguments 
83.  
84. #Here open two processes using Startinfo object 
85. # p6, p7 
86. OpenWithStartInfo 
87. #End of script 

Technorati Tags: PowerShell,Code,PowerShell Scripts,Systems.Diagnostics.Process,Start

Start-Process.ps1

1. <# 
2. .SYNOPSIS 
3.     This script creates and starts a Process using .NET 
4. .DESCRIPTION 
5.     This script Creates a process object and sets 
6.     the executable to notepad. The script then starts 
7.     the process. 
8. .NOTES 
9.     File Name  : Start-Process.ps1 
10.     Author     : Thomas Lee - tfl@psp.co.uk 
11.     Requires   : PowerShell Version 2.0 
12. .LINK 
13.     This script posted to: 
14.         http://pshscripts.blogspot.com/2010/05/start-processps1.html
15.     MSDN Sample posted at: 
16.         http://msdn.microsoft.com/en-us/library/system.diagnostics.process.aspx  
17. .EXAMPLE 
18.    When this script runs - you see a copy of notepad popup. 
19. #> 
20.  
21. ## 
22. # Start of Script 
23. ## 
24.  
25. # Create a new process object 
26. $Process = new-object System.Diagnostics.Process  
27. try  { 
28. $Process.StartInfo.UseShellExecute = $false 
29.  
30. # Pick process to start  now - for excitement, use notepad.exe 
31. $Process.StartInfo.FileName = "C:\windows\system32\notepad.exe" 
32.  
33. # Start process  
34. $Process.Start() 
35. } 
36. catch { 
37.   " Error:";$Error[0]  
38. } 

Technorati Tags: PowerShell,.NET,Code,Script,System.Diagnostics.Process

New-MailAddress.ps1

1. <# 
2. .SYNOPSIS 
3.     This script demonstrates the constructors for system.net.mail.mailaddress  
4. .DESCRIPTION 
5.     This script uses the three constructors for new objects of the type 
6.     system.net.mail.mailaddress using PowerShell. These constructors are: 
7.     . single string 
8.     . two strings 
9.     . two strings and an encoding.  
10. .NOTES 
11.     File Name  : New-MailAddress.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.     MSDN Sample posted at: 
18.         http://pshscripts.blogspot.com/2010/05/get-utf8encoding.html 
19. .EXAMPLE 
20. PSH [C:\foo]: .\New-MailAddress.ps1' 
21.     Creating mail address for: tfl@psp.co.uk 
22.     User Host      Display Name To String 
23.     ---- ----      ------------ --------- 
24.     tfl  psp.co.uk              tfl@psp.co.uk 
25.  
26.     Creating mail address for: Thomas Lee <tfl@psp.co.uk> 
27.     User Host      Display Name To String 
28.     ---- ----      ------------ --------- 
29.     tfl  psp.co.uk Thomas Lee   "Thomas Lee" <tfl@psp.co.uk> 
30.  
31.     Creating mail address for: "Thomas Lee" and "tfl@psp.co.uk" 
32.     User Host      Display Name To String 
33.     ---- ----      ------------ --------- 
34.     tfl  psp.co.uk Thomas Lee   "Thomas Lee" <tfl@psp.co.uk> 
35.    Creating mail address for: "Thomas Lee","tfl@psp.co.uk", and Ascii encoding 
36.     User Host      Display Name    To String 
37.     ---- ----      ------------    --------- 
38.     tfl  psp.co.uk ThOmas Lee - πΣ "ThOmas Lee - πΣ" <tfl@psp.co.uk> 
39.  
40.     Creating mail address for: "Thomas Lee","tfl@psp.co.uk", and UTF8 encoding 
41.     User Host      Display Name    To String 
42.     ---- ----      ------------    --------- 
43.     tfl  psp.co.uk ThOmas Lee - πΣ "ThOmas Lee - πΣ" <tfl@psp.co.uk> 
44. #> 
45. ## 
46. # Start of script 
47. ## 
49. # Define helper functions 
50. # nma - creates a new mail address 
51. # uses single string constuctor 
52. function nma { 
53. param ([string] $addr) 
54. new-object system.net.Mail.MailAddress $addr 
55. } 
56. # nma2 - creates a new mail address 
57. # uses twin string constuctor 
58. function nma2 { 
59. param ([string] $addr, 
60.        [string] $dspnam 
61.        ) 
62. new-object system.net.Mail.MailAddress $addr, $dspnam 
63. } 
64. # nma3 - creates a new mail address 
65. # uses twin string+encoding constuctor 
66. function nma3 { 
67. param ([string] $addr, [string] $dspnam, $enc) 
68. new-object system.net.Mail.MailAddress $addr, $dspnam, $enc 
69. } 
70.  
71. # Create hash tables for display of email addresses 
72. $ts=@{label="To String";    expression={$_.tostring()}} 
73. $dn=@{label="Display Name"; expression={$_.displayname}} 
74.  
75. # Look at single string constructor usage 
76. # Create and display for address: tfl@psp.co.uk 
77. $ad="tfl@psp.co.uk"  
78. "Creating mail address for: $ad" 
79. nma  $ad | ft user,host,$dn,$ts -a 
80.  
81. # Create and display for address: Thomas Lee <tfl@psp.co.uk> 
82. $ad = "Thomas Lee <tfl@psp.co.uk>" 
83. "Creating mail address for: $ad" 
84. nma  $ad | ft user,host,$dn,$ts -a 
85.  
86. # Twin string constructor 
87. # Create and display for address: tfl@psp.co.uk, "Thomas Lee" 
88. $ad   = "tfl@psp.co.uk" 
89. $dnam = "Thomas Lee" 
90. "Creating mail address for: `"$dname`" and `"$ad`"" 
91. nma2  $ad $dnam | ft user,host,$dn,$ts -a 
92.  
93. # Using 3rd constructor - two strings and  and encoding 
94. # Create and display for address: tfl@psp.co.uk, "Thomas Lee" in Ascii 
95. $c=[char]0xd8 
96. $ad   = "tfl@psp.co.uk" 
97. $dnam = "Th"+$c+"mas Lee - " + [char] [char]0x03a0 + [char] 0x03a3 
98. $enc  = New-Object System.Text.AsciiEncoding   
99. "Creating mail address for: `"$dname`",`"$ad`", and Ascii encoding" 
100. nma3  $ad $dnam $enc | ft user,host,$dn,$ts -a 
101.  
103. # Create and display for address: tfl@psp.co.uk, "Thomas Lee" in UTF8 
104. $c=[char]0xd8 
105. $ad   = "tfl@psp.co.uk" 
106. $dnam = "Th"+$c+"mas Lee - " + [char] [char]0x03a0 + [char] 0x03a3 
107. $enc  = New-Object System.Text.utf8encoding   
108. "Creating mail address for: `"$dname`",`"$ad`", and UTF8 encoding" 
109. nma3  $ad $dnam $enc | ft user,host,$dn,$ts -a 

Technorati Tags: System.Net.Mail.MailAddress,PowerShell,Code,Script

Get-UTF8Encoding

1. <# 
2. .SYNOPSIS 
3.     This script implements an MSDN Encoding example in PowerShell  
4. .DESCRIPTION 
5.     This script creates an encoding plus a Unicode string then 
6.     manipulates it as per the C# sample. 
7. .NOTES 
8.     File Name  : Get-UTF8Encoding 
9.     Author     : Thomas Lee - tfl@psp.co.uk 
10.     Requires   : PowerShell Version 2.0 
11. .LINK 
12.     This script posted to: 
13.         http://pshscripts.blogspot.com/2010/05/get-utf8encoding.html 
14.     MSDN Sample posted at: 
15.         http://msdn.microsoft.com/en-us/library/system.text.utf8encoding.aspx  
16. .EXAMPLE 
17.     PSH [C:\foo]: .\Get-UTF8Encoding.ps1
18.     Original string:This unicode string contains two characters with
19.     codes outside an 8-bit code range, Pi (π) and Sigma (Σ). 
20.     Encoded bytes: 
21.     <long table omitted> 
22.     Decoded bytes: 
23.     This unicode string contains two characters with codes outside an
24.     8-bit code range, Pi (π) and Sigma (Σ). 
25. #> 
26. #  Start of Script 
27. # Create a UTF-8 encoding. 
28. $utf8 = New-Object System.Text.utf8encoding 
29. $unicodeString = 
30.             "This unicode string contains two characters " + 
31.             "with codes outside an 8-bit code range, " + 
32.             "Pi (" + [char] 0x03a0 + ") and Sigma (" + [char] 0x03a3 + ")." 
33. "Original string:{0}" -f $unicodeString 
34.  
35. # Encode the string. 
36. $encodedBytes = $utf8.GetBytes($unicodeString) 
37. "" 
38. "Encoded bytes:" 
39. foreach($b in $encodedBytes) {"[{0}]" -f $b} 
40.  
41. # Decode bytes back to string 
42. # Notice Pi and Sigma characters are still present 
43. $decodedString = $utf8.GetString($encodedBytes) 
44. "";"Decoded bytes:" 
45. $decodedString    
46. # End of Script 

Technorati Tags: powershell,code,System.Text.UTFencoding,getbytes

Get-ProfileFile.ps1

1. <# 
2. .SYNOPSIS 
3.     This script gets the details of the PowerShell profile files
4.     related to a given host. 
5. .DESCRIPTION 
6.     This script gets the 4 script file names from the $profile
7.    variable and creates a custom object containing the name and
8.     path or each profile, and whether that profile actually exists. 
9. .NOTES 
10.     File Name  : Get-ProfileFile.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/2010/04/get-profilefileps1.html 
16. .EXAMPLE 
17.     [PS] C:\foo:> .\Get-ProfileFile.ps1' 
18.     Name   : AllUsersAllHosts 
19.     Path   : C:\Windows\System32\WindowsPowerShell\v1.0\profile.ps1 
20.     Exists : True 
21.     Name   : AllUsersCurrentHosts 
22.     Path   : C:\Windows\System32\WindowsPowerShell\v1.0\Microsoft.PowerShell_profile.ps1 
23.     Exists : False 
24.     Name   : CurrentUserAllHosts 
25.     Path   : C:\Users\tfl\Documents\WindowsPowerShell\profile.ps1 
26.     Exists : True 
27.     Name   : CurrentUserCurrentHost 
28.     Path   : C:\Users\tfl\Documents\WindowsPowerShell\Microsoft.PowerShell_profile.ps1 
29.     Exists : True 
30. #> 
31.  
32. ##  
33. # Start of Script 
34. ## 
35.  
36. $profile | gm *Host* | % { $_.Name } | % { 
37. $rv = @{}; $rv.Name = $_ ;$rv.Path = $profile.$_; 
38. $rv.Exists= (Test-Path $profile.$_); 
39. New-Object PSObject -Property $rv  
40. } | Format-List  
41.  
42. # End of script 

Technorati Tags: PowerShell,PowerShell Script,Profile,PowerShell Profile,PowerShell Profile File

Get-FirewallStatus.ps1

1. <# 
2. .SYNOPSIS 
3.     This script gets the status of the host firewall 
4.     and ensures the firewall IS running! 
5. .DESCRIPTION 
6.     This script gets the status and displays it to the 
7.     console. The script also turns on the firewall if it's 
8.     currently off. It's a simpler script than in MSDN for VBScript! 
9. .NOTES 
10.     File Name  : Get-FirewallStatus.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/2010/03/get-firewallstatusps1.html 
16.     MSDN Sample posted at: 
17.         http://msdn.microsoft.com/en-us/library/aa366442%28VS.85%29.aspx 
18. .EXAMPLE 
19.     PSH [C:\foo]: .\Get-FirewallStatus.ps1 
20.     Firewall Enabled               : True 
21.     Firewall Exceptions Not Allowed: False 
22. #> 
23.  
24. ## 
25. # Start Script 
26. ## 
27.   
28. # Create the firewall manager object. 
29. $fwMgr = New-Object -com HNetCfg.FwMgr 
30.   
31. # Get the current profile for the local firewall policy. 
32. $profile = $fwMgr.LocalPolicy.CurrentProfile 
33.   
34. # Verify that the Firewall is enabled. If it isn't, then enable it. 
35. if (!$profile.FirewallEnabled)  
36.     {$profile.FirewallEnabled = $TRUE} 
37.  
38. # Display details 
39. "Firewall Enabled               : {0}" -f $profile.FirewallEnabled 
40. "Firewall Exceptions Not Allowed: {0}" -f $profile.ExceptionsNotAllowed 
41. # End Script 

Technorati Tags: PowerShell,PowerShell scripts,HnetCfg.FwMgr

Get-FWAuthorisedApplications.ps1

1. <# 
2. .SYNOPSIS 
3.     This script displays each Firewall Authorised Application 
4. .DESCRIPTION 
5.     This script gets the list of authorised applications, then 
6.     displays them. This is a re-write of a MSDN Script written in 
7.     VBScript. 
8. .NOTES 
9.     File Name  : Get-FWAuthorisedApplications.ps1 
10.     Author     : Thomas Lee - tfl@psp.co.uk 
11.     Requires   : PowerShell Version 2.0 
12. .LINK 
13.     This script posted to: 
14.         http://www.pshscripts.blogspot.com 
15.     MSDN Sample posted at: 
16.         http://msdn.microsoft.com/en-us/library/aa366181%28VS.85%29.aspx 
17. .EXAMPLE 
18.     PSH [C:\foo]: .\Get-FWAuthorisedApplications.ps1 
19.     2 Authorised Applications: 
20.       Name:          : Delivery Manager Service 
21.       Image Filename : C:\Program Files (x86)\Kontiki\KService.exe 
22.       IP Version     : ANY 
23.       Scope          : All subnets 
24.       RemoteAddresses: * 
25.       Enabled        : True 
26.      
27.       Name:          : BitTorrent 
28.       Image Filename : C:\Program Files (x86)\BitTorrent\bittorrent.ex 
29.       IP Version     : ANY 
30.       Scope          : All subnets 
31.       RemoteAddresses: * 
32.       Enabled        : True 
33. #> 
34.  
35. ## 
36. # Start of script 
37. ## 
38.  
39. # IP Version Constants 
40. $NET_FW_IP_VERSION_V4 = 0 
41. $NET_FW_IP_VERSION_V4_NAME = "IPv4" 
42. $NET_FW_IP_VERSION_V6 = 1 
43. $NET_FW_IP_VERSION_V6_NAME = "IPv6" 
44. $NET_FW_IP_VERSION_ANY = 2 
45. $NET_FW_IP_VERSION_ANY_NAME = "ANY" 
46.  
47. # Scope constants 
48. $NET_FW_SCOPE_ALL = 0 
49. $NET_FW_SCOPE_ALL_NAME = "All subnets" 
50. $NET_FW_SCOPE_LOCAL_SUBNET = 1 
51. $NET_FW_SCOPE_LOCAL_SUBNET_NAME = "Local subnet only" 
52. $NET_FW_SCOPE_CUSTOM = 2 
53. $NET_FW_SCOPE_CUSTOM_NAME = "Custom Scope (see RemoteAddresses)" 
54.  
55. # Create the firewall manager object 
56. $fwMgr = new-object -com HNetCfg.FwMgr 
57.  
58. # Get the current profile for the local firewall policy 
59. $profile = $fwMgr.LocalPolicy.CurrentProfile 
60.  
61. #Display authorised applications 
62.  
63. "{0} Authorised Applications:" -f $profile.AuthorizedApplications.Count 
64. foreach ($app in $profile.AuthorizedApplications) { 
65.  
66.     "  Name:          : {0}" -f $app.Name 
67.     "  Image Filename : {0}" -f $app.ProcessImageFileName 
68.  
69.     switch ($app.IpVersion) { 
70.         $NET_FW_IP_VERSION_V4  {"  IP Version     : {0}" -f $NET_FW_IP_VERSION_V4_NAME} 
71.         $NET_FW_IP_VERSION_V6  {"  IP Version     : {0}" -f $NET_FW_IP_VERSION_V6_NAME} 
72.         $NET_FW_IP_VERSION_ANY {"  IP Version     : {0}" -f $NET_FW_IP_VERSION_ANY_NAME} 
73.     } 
74.     switch ($app.Scope) { 
75.         $NET_FW_SCOPE_ALL          {"  Scope          : {0}" -f $NET_FW_SCOPE_ALL_NAME} 
76.         $NET_FW_SCOPE_LOCAL_SUBNET {"  Scope          : {0}" -f $NET_FW_SCOPE_LOCAL_SUBNET_NAME} 
77.         $NET_FW_SCOPE_CUSTOM       {"  Scope          : {0}" -f $NET_FW_SCOPE_CUSTOM_NAME} 
78.     } 
79.     "  RemoteAddresses: {0}" -f $app.RemoteAddresses 
80.     "  Enabled        : {0}" -f $app.Enabled 
81.     "" 
82. }  

Technorati Tags: powershell,code,script,scripts,HnetCfg.FwMgr