Configure-DC1-1.ps1

1. # Configure-DC1-1.ps1
2. # Converts Server to DC
3. # Version 1.0.0 - 14 Jan 2013
4. # See http://tfl09.blogspot.com for more details
7. # Config script block
8. $conf = {
10. # Install the AD - the reboot is or should be automagic
11. Install-Windowsfeature AD-Domain-Services -IncludeManagementTools
13. # Now install the AD to DC1
14. $PasswordSS = ConvertTo-SecureString -string 'Pa$$w0rd' -AsPlainText -Force
15. Install-ADDSForest -DomainName Reskit.Org -SafeModeAdministratorPassword $PasswordSS -force -InstallDNS -DomainMode Win2012 -ForestMode Win2012
16. }
18. # Here is start of script
20. $Username = "DC1\administrator"
21. $PasswordSS = ConvertTo-SecureString 'Pa$$w0rd' -AsPlainText -Force
22. $Creddc1 = New-Object system.management.Automation.PSCredential $username,$PasswordSS
24. # First, run a simple script block to check that the server is actually running and is the one we think it is
25. Invoke-Command -ComputerName DC1 -ScriptBlock { ipconfig;hostname} -Credential $Creddc1 -verbose
26. Pause
28. # Now add create our forest/domain/dc
29. Invoke-Command -ComputerName DC1 -Scriptblock $conf -Credential $Creddc1 -verbose

Technorati Tags: Deployment,VM,Hyper-V,PowerShell

Create-VM.PS1

1. # Create-VM.ps1 
2. # Script that creates VMs 
3. # Version 1.0.0 - 20 Jan 2013 
4. # See http://tfl09.blogspot.co.uk/2013/01/building-hyper-v-test-lab-on-windows-8.html 
5.  
6. # First define the Create-VM Function 
7.  
8. Function Create-VM { 
9. #=================================================== 
10. # Create a New VM 
11. #=================================================== 
12.  
13. # Parameters are Name, Virtual Machine Path, path to reference Vhdx,
14. # network switch to use, VM Memory, Unattend file, IP address and DNS
15. # Server to set. Default values are specified in the Param block,
16. # but these are normally overridden in the call to Create0VM 
17.  
18.  
19. [Cmdletbinding()] 
20. Param (  
21.  $Name         = "Server", 
22.  $VmPath       = "C:\v3", 
23.  $ReferenceVHD = "C:\v3\Ref2012.vhdx", 
24.  $Network      = "Internal", 
25.  $VMMemory     = 512mb, 
26.  $UnattendXML  = "C:\v3\unattend.xml", 
27.  $IPAddr       = '10.0.0.250/24', 
28.  $DnsSvr       = '10.0.0.10' 
29. ) 
30.  
31. $Starttime = Get-Date 
32. Write-Verbose "Starting Create-VM at $Starttime" 
33. Write-verbose "Creating VM: [$name]" 
34. Write-verbose "Path to VM : [$VMpath]" 
35.  
36. #    Set path to differencing disk location 
37. $path = "$vmpath\$name.vhdx" 
38. Write-Verbose "Creating Disk at [$path]" 
39.  
40. #    Add a new differencing VHDX, Based on parent parent 
41. $vmDisk01 = New-VHD –Path $path -Differencing –ParentPath $ReferenceVHD -ErrorAction Stop 
42. Write-Verbose "Added VM Disk [$VMdisk01], pointing to [ReferenceVHD]" 
43.  
44. #    Create a New VM 
45. $VM = New-VM –Name $name –MemoryStartupBytes $VMMemory –VHDPath $VMDisk01.path -SwitchName $Network -Path $vmPath 
46. Write-Verbose "VM [$name] created" 
47.  
48. # Mount the Disk into the VM 
49. Mount-DiskImage -ImagePath $path 
50. $VHDDisk = Get-DiskImage -ImagePath $path | Get-Disk 
51. $VHDPart = Get-Partition -DiskNumber $VHDDisk.Number 
52. $VHDVolumeName = [string]$VHDPart.DriveLetter 
53. $VHDVolume = [string]$VHDPart.DriveLetter + ":" 
54. Write-verbose "Volume [$Volumename] created in VM [$name]" 
55.  
56.  
57. #    Get Unattended.XML file 
58. Write-Verbose "Using Unattended XML file [$unattendXML]" 
59.  
60. #    Open XML file 
61. $Xml = [xml](get-content $UnattendXML) 
62.  
63. #    Change ComputerName 
64. Write-Verbose "Setting VM ComputerName to: [$name]" 
65. $Xml.unattend.settings.component | Where-Object { $_.Name -eq "Microsoft-Windows-Shell-Setup" } | 
66.  ForEach-Object { 
67.    if($_.ComputerName) { 
68.      $_.ComputerName = $name 
69.    } 
70. } 
71.  
72. #    Change IP address 
73. Write-Verbose "Setting VM ComputerName to: [$name]" 
74. $Xml.unattend.settings.component | Where-Object { $_.Name -eq "Microsoft-Windows-TCPIP" } | 
75.   ForEach-Object { 
76.  
77.     if($_.Interfaces) { 
78.       $ht='#text' 
79.       $_.interfaces.interface.unicastIPaddresses.ipaddress.$ht = $IPAddr 
80.   } 
81. } 
82.  
83. #    Change DNS Server address 
84. #    Use obscure way to create the #TEXT node 
85. Write-Verbose "Setting VM DNS address to: [$DNSSvr]" 
86. $Xml.Unattend.Settings.Component | Where-Object { $_.Name -eq "Microsoft-Windows-DNS-Client" } | 
87.   ForEach-Object { 
88.       if($_.Interfaces) { 
89.       $ht='#text' 
90.       $_.Interfaces.Interface.DNSServerSearchOrder.Ipaddress.$ht = $DNSSvr 
91.   } 
92. } 
93.  
94. #    Save XML File on Mounted VHDX differencing disk 
95. $xml.Save("$VHDVolume\Unattend.XML") 
96. Write-Verbose "Unattended XML file saved to vhd [$vhdvolume\unattend.xml]" 
97.  
98. #    Dismount VHDX  
99. Write-Verbose "Dismounting disk image: [$Path]" 
100. Dismount-DiskImage -ImagePath $path 
101.  
102. #    Update additional VM settings 
103. Write-Verbose 'Setting additional VM settings' 
104. Set-VM -Name $name -DynamicMemory 
105. Set-VM -Name $name -MemoryMinimumBytes $VMMemory 
106. Set-VM -Name $name -AutomaticStartAction Nothing 
107. Set-Vm -Name $name -AutomaticStopAction ShutDown 
108.  
109. #    Show what has been created! 
110. "VM Created:" 
111. Get-VM -Name $name | fl * 
112.  
113. #    Start VM 
114. Write-verbose "VM [$Name] being started" 
115. Start-VM -Name $name 
116.  
117. #    Now work out and write how long it took to create the VM 
118. $Finishtime = Get-Date 
119. Write-Verbose ("Creating VB ($name) took {0} seconds" -f ($FinishTime - $Starttime).totalseconds) 
120. }  # End of Create-VM function 
121.  
122.  
123. ####################################################################################################### 
124. #       CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS     # 
125. #       CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS     # 
126. #       CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS     # 
127.  
128. # Location of Server 2012 DVD Iso Image 
129. $iso   = 'c:\Builds\9200.16384.120725-1247_x64frev_Server_Datacenter_VL_HRM_SSS_X64FREV_EN-US_DVD.iso' 
130. # Where we put the reference VHDX 
131. $ref   = 'c:\v3\Ref2012.vhdx' 
132. # Path were VMs, VHDXs and unattend.txt files live 
133. $path  = 'c:\V3' 
134. # Location of Unattend.xml - first for workstation systems, second for domain joined systems  
135. $una   = 'c:\V3\UnAttend.xml' 
136. $unadj = 'c:\V3\UnAttend.dj.xml' 
137.  
138. #       CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS     # 
139. #       CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS     # 
140. #       CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS     # 
141. ####################################################################################################### 
142.  
143. #   Now run the script to create the VMs as appropriate. 
144. $Start = Get-Date 
145. "Create-VM --- Started at: $Start" 
146.  
147. #################################################################### 
148. # Comment out VMs you do NOT want to create then run the entire script 
149. # To comment out a VM creation, just add a '#" at the start of the line.  
150. #        Removing the comment line means you want to create that VM.  
151. #        BE creful!  If you make a mistake, stop the script. Kill any VMs created, then remove the 
152. #        storage for the VMs.  
153. ####################################################################################################### 
154.  
155. #    Create the DC - NON-domained joined 
156. # Create-VM -name "DC1"  -VmPath $path -ReferenceVHD $ref -Network "Internal" -UnattendXML $una -Verbose -IPAddr '10.0.0.10/24' -DNSSvr 10.0.0.10  -VMMemory 1gb 
157.  
158. #    Remaining VMs use the domain-join version of unattend.xml 
159. # Create-VM -name "Srv1"  -VmPath $path -ReferenceVHD $ref -Network "Internal" -UnattendXML $unadj -Verbose -IPAddr '10.0.0.30/24' -DNSSvr 10.0.0.10  -VMMemory 512mb 
160. # Create-VM -name "Srv2"  -VmPath $path -ReferenceVHD $ref -Network "Internal" -UnattendXML $unadj -Verbose -IPAddr '10.0.0.31/24' -DNSSvr 10.0.0.10  -VMMemory 512mb 
161. # Create-VM -name "Sql1"  -VmPath $path -ReferenceVHD $ref -Network "Internal" -UnattendXML $unadj -Verbose -IPAddr '10.0.0.20/24' -DNSSvr 10.0.0.10  -VMMemory 768mb 
162. # Create-VM -name "Exch1" -VmPath $path -ReferenceVHD $ref -Network "Internal" -UnattendXML $unadj -Verbose -IPAddr '10.0.0.21/24' -DNSSvr 10.0.0.10  -VMMemory 768mb 
163.  
164. #    DHCP 1,2 for advanced networking class 
165. # Create-VM -name "DHCP1" -VmPath $path -ReferenceVHD $ref -Network "Internal" -UnattendXML $unadj -Verbose -IPAddr '10.0.0.51/24' -DNSSvr 10.0.0.10 -VMMemory 512mb 
166. # Create-VM -name "DHCP2" -VmPath $path -ReferenceVHD $ref -Network "Internal" -UnattendXML $unadj -Verbose -IPAddr '10.0.0.52/24' -DNSSvr 10.0.0.10 -VMMemory 512mb 
167.  
168. #    Create a second DC for reskit.org for advanced class 
169. # Create-VM -name "DC2"  -vmPath $path -ReferenceVHD $ref -network "Internal" -UnattendXML $unadj -Verbose -IPAddr '10.0.0.11/24' -DNSSvr 10.0.0.10  -VMMemory 512mb 
170.  
171.  
172. #  script is all done - just say nice things and quit. 
173. $Finish = Get-Date 
174. "Create-VM --- Finished at: $Finish" 
175. "Elapsed Time :  $(($Finish-$Start).totalseconds) seconds" 
176.   

Technorati Tags: Deployment,VM,Hyper-V,PowerShell

Open-FunctionInISE

1. Function Open-FunctioninISE {
2. <#
3. .SYNOPSIS
4. Opens a function in ISE
5. .DESCRIPTION
6.     This enables you to specify the function to open. The definition
   
7.     comes from (Get-Command <command>).definition.
8.     You specify the name of the function to open, or select it
9.     in the ISE
10. .NOTES
11.     File Name : Open-FunctionInIse.ps1
12.     Author : Thomas Lee - tfl@psp.co.uk
13.     Requires : PowerShell Version 3.0
14.     Based on a technet script published at http://gallery.technet.microsoft.com/scriptcenter/Open-defined-functions-in-22788d0f 
15. .LINK
16.     This script posted to:
17.         http://www.pshscripts.blogspot.com
18. .PARAMETER Function
19.     The name of a defined function to open in new PowerShell ISE tab.
20. .EXAMPLE
21.     C:\Psh> Open-FunctionInIse Open-FunctioninISE
23.     Opens Open-FunctionInIse in a new PowerShell ISE tab
24. .EXAMPLE
25.     Select a function name in an open edit window, then hit
26.     Ctrl+Shift+E (or use the Add-ons menu)
27. #>
29. # Define parameters
30. [Cmdletbinding()]
31. Param(
32. [Parameter(Position=0)]
33. [ValidateScript({ Get-Command -commandtype function -name $_ })]
34. [String] $function
35. )
37. # Start of the function.
38. Process{
40. # Get the function name (i.e. the selected text) and ensure it's not empty
41. $fn = $psise.currentfile.Editor.selectedText
42. # if nothing selected, see if we got called with it
43. If (!$fn -or ($fn.length -LE 0)) {
44. if ($function -and ($function.length -GT 0)){
45. $fn = $function}
46. Else {
47. $fn = Read-Host -Prompt "Enter function name to view"
48. }
49. }
51. If (!$Fn) {'No function to edit';return}
53. # Get the definition, if there is one
54. $definition = (Get-Command -commandtype function -name $fn).definition
55. If (!$definition -or ($Definition.Length -le 0)) {return "Function [$fn] not found"}
57. # Create What to see
58. $FunctionHeader = "Function $fn {`n"
59. $comments = "`# Description : $($definition.description)`n"
60. $comments += "`# Module : $($definition.module)`n`n"
61. $FunctionTrailer = "`n}"
63. # Wrap it all up
64. $definition = $functionHeader + $Comments + $Definition + $FunctionTrailer
65. "function $fn {" + $definition + "}"
67. # Add a tab, add text to the tab, set caret position to first character
68. $tab = $Psise.CurrentPowerShellTab.Files.Add()
69. $tab.Editor.text = $definition
70. $tab.Editor.SetCaretPosition(1,1)
72. # Sleep for a moment. Ran into issues without this.
73. Start-Sleep -Milliseconds 200
74. } # End process block
75. } # End Function
77. Set-ALias OFISE .\Open-FunctionInISE
79. # Here we could test the function from the command line.
80. # Function test123 {'testing 1-2-3'}
81. # Open-FunctioninISE test123
83. # I assume you'll just use this function so I've left the following
84. # Code in place to add this as a menu item
86. # Here add to the ISE as long as it's not there already!
87. $x = ($psise.CurrentPowerShellTab.AddOnsMenu.Submenus).displayname
88. if (! ($x -contains "_Edit Function in ISE")) {
89. $Psise.CurrentPowerShellTab.AddOnsMenu.Submenus.Add("_Edit Function in ISE", {Open-FunctioninISE},
90. "Ctrl+Shift+E") | Out-Null
91. }
92. Else {
93. 'Function already added in ISE'
94. }

Technorati Tags: PowerShell,ISE,Open Function in ISE

Create-ReferenceVHDX.ps1

1. # Create-ReferenceVHDX.ps1
2. # Script that will create a reference VHDX for later VM Creation
3. # Version 1.0.0 - 14 Jan 2013
5. # Define a function to create a reference VHDX.
7. Function Create-ReferenceVHDX {
9. [Cmdletbinding()]
10. Param (
11. # ISO of OS
12. [string] $Iso = 'C:\downloads\9200.16384.120725-1247_x64frev_Server_Datacenter_VL_HRM_SSS_X64FREV_EN-US_DVD.iso',
14. # Path to reference VHD
15. [string] $RefVHDXPath = "C:\vhd\Ref2012.vhdx"
16. )
18. # Get start time
19. $StartTime = Get-Date
20. Write-Verbose "Beginning at $StartTime"
22. #--------------------------------------------------+
23. # Mount an ISO and check out available OS versions!
24. #--------------------------------------------------+
26. # Import the DISM module
27. Write-Verbose 'Loading DISM module' -Verbose:$false
28. Import-Module -Name DISM -Verbose:$False
30. # Mount the OS ISO image onto the local machine
31. Write-Verbose "Mounting ISO image [$iso]"
32. Mount-DiskImage -ImagePath $iso
34. # Get the Volume the Image is mounted to
35. Write-Verbose 'Getting disk image of the ISO'
36. $ISOImage = Get-DiskImage -ImagePath $ISO | Get-Volume
37. Write-Verbose "Got disk image [$($ISOImage.DriveLetter)]"
39. # And get the drive Letter of the dirve where the image is mounted
40. # add the drive letter separator (:)
41. $ISODrive = [string]$ISOImage.DriveLetter+":"
42. Write-Verbose "OS ISO mounted on drive letter [$ISODrive]"
44. # Next we will get the installation versions from the install.wim.
45. # $Indexlist is the index of WIMs on the DVD - display the versions
46. # available in the DVD and let user select the one to serve as the base
47. # image - probably DataCentre Full Install
48. $IndexList = Get-WindowsImage -ImagePath $ISODrive\sources\install.wim
49. Write-Verbose 'Got Index list - displaying it now!'
51. # Display the list and return the index
52. $item = $IndexList | Out-GridView -OutputMode Single
53. $index = $item.ImageIndex
54. Write-Verbose "Selected image index [$index]"
56. #---------------------------------+
57. # Create a Reference Image !
58. #---------------------------------+
60. # Create the VHDX for the reference image
61. $VMDisk01 = New-VHD –Path $RefVHDXPath -SizeBytes 15GB
62. Write-Verbose "Created VHDX File [$($vmdisk01.path)]"
64. # Get the disk number
65. Mount-DiskImage -ImagePath $RefVHDXPath
66. $VHDDisk = Get-DiskImage -ImagePath $RefVHDXPath | Get-Disk
67. $VHDDiskNumber = [string]$VHDDisk.Number
68. Write-Verbose "IReference image is on disk number [$VhddiskNumber]"
70. # Create a New Partition
71. Initialize-Disk -Number $VHDDiskNumber -PartitionStyle MBR
72. $VHDDrive = New-Partition -DiskNumber $VHDDiskNumber -UseMaximumSize -AssignDriveLetter -IsActive | Format-Volume -Confirm:$false
73. $VHDVolume = [string]$VHDDrive.DriveLetter+":"
74. Write-Verbose "VHD drive [$vhddrive], Vhd volume [$vhdvolume]"
76. # Execute DISM to apply image to base disk
77. Write-Verbose 'Using DISM to apply image to the volume'
78. Write-Verbose 'This will take some time'
79. Dism.exe /apply-Image /ImageFile:$ISODrive\Sources\install.wim /index:$Index /ApplyDir:$VHDVolume\
81. # Execute BCDBoot so volume will boot
82. Write-Verbose 'Setting BCDBoot'
83. BCDBoot.exe $VHDVolume\Windows /s $VHDVolume /f BIOS
85. # Dismount the Images
86. Write-Verbose "Dismounting ISO and new disk"
87. Dismount-DiskImage -ImagePath $ISO
88. Dismount-DiskImage -ImagePath $RefVHDXPath
90. Write-Verbose "Created Reference Disk [$RefVHDXPath]"
91. Get-ChildItem $RefVHDXPath
93. $FinishTime = Get-Date
94. $tt= $FinishTime - $StartTime
95. Write-Verbose "Finishing at $FinishTime"
96. Write-verbose "Creating base image took [$($tt.totalminutes)] minutes"
97. } # End of Create-ReferenceVHDX
99. ################################################################################################################
100. # CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS #
101. # CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS #
102. # CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS #
103. # Path to Server 2012 DVD
104. $iso = 'C:\Builds\9200.16384.120725-1247_x64frev_Server_Datacenter_VL_HRM_SSS_X64FREV_EN-US_DVD.iso'
105. # PathTo the reference VDHX is to go
106. $refvhdxpath = 'C:\V3\ref2012.vhdx'
107. # CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS #
108. # CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS #
109. # CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS ===== CHECK THESE PATHS #
110. #################################################################################################################
113. Create-ReferenceVHDX -iso $iso -RefVHDXPath $RefVHDXPath -Verbose

Show-Exceptions.ps1

1. <# 
2. .SYNOPSIS 
3.     This script gets all the exceptions you can trap by PowerShell 
4. .DESCRIPTION 
5.     This script looks at all the loaded assemblies to get all 
6.     the exceptions you can trap/catch using PowerShell. The 
7.     display only covers those parts of the .NET framework are loaded. 
8. .NOTES 
9.     File Name  : Show-Exceptions.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. .EXAMPLE 
16.     Psh> .\Show-Exceptions.ps1 -Summary 
17.     In 69 loaded assemblies, you have 418 exceptions: 
18.  
19. .EXAMPLE 
20.     Psh> .\Show-Exceptions.ps1 
21.     In 69 loaded assemblies, you have 418 exceptions: 
22.  
23.     Name                     FullName                                                 
24.     ----                     --------                                                 
25.     _Exception               System.Runtime.InteropServices._Exception                
26.     AbandonedMutexException  System.Threading.AbandonedMutexException                 
27.     AccessViolationException System.AccessViolationException                      
28.     ... 
29.      
30. #> 
31.  
32. [CMDLETBINDING()] 
33. Param ( 
34. [switch] $summary 
35. ) 
36. #    Get all the exceptions 
37. $assemblies = [System.AppDomain]::CurrentDomain.GetAssemblies() 
38. $exceptions = $Assemblies | ForEach { 
39.      $_.GetTypes() | where { $_.FullName -Match "System$filter.*Exception$" } } 
40.  
41. # Now display the numbers checking for summary flag 
42. "In {0} loaded assemblies, you have {1} exceptions:" -f $assemblies.count, $exceptions.count 
43. If (-not $summary) { 
44. $Exceptions | sort name | format-table name, fullname 
45. } 

Technorati Tags: Exceptions

Get-LyncAutoLogonStatus.ps1

1. <# 
2. .SYNOPSIS 
3.     This script reports on whether Lync should 
4.     automatically start on a machine when a user 
5.     logs in. 
6. .DESCRIPTION 
7.     This script looks in the registry at a chosen machine 
8.     to determine if the Lync client should automatically 
9.     attempt to login when a user logs onto that system. 
10. .NOTES 
11.     File Name  : Get-LyncAutoLogonStatus 
12.     Author     : Thomas Lee - tfl@psp.co.uk 
13.     Requires   : PowerShell Version 2.0 
14.                  Lync 2010 or later 
15. .LINK 
16.     This script posted to: 
17.         http://www.pshscripts.blogspot.com 
18. .EXAMPLE 
19.     Psh> .\Get-LyncAutoLogonStatus     
20.     Automatically start Lync when I log on to Windows: True 
21. #> 
22.  
23.  
24. [Cmdletbinding()] 
25. Param ( 
26. [string] $computer = "Cookham8.Cookham.net") 
27.  
28.  
29. # Get the relevant registry key 
30. $registry = [Microsoft.Win32.RegistryKey]::OpenRemoteBaseKey("CurrentUser", $computer) 
31. $key = $registry.OpenSubKey("SOFTWARE\Microsoft\Communicator", $True) 
32.   
33. # now write to host the details 
34. Write-Host "Automatically start Lync when I log on to Windows:",` 
35.     ([boolean] $key.GetValue("AutoRunWhenLogonToWindows",$null)) 

Technorati Tags: Lync,AutoLogon Status

Set-AdminLogon.ps1

1. <# 
2. .SYNOPSIS 
3.     This script defines a function that sets autologon 
4. .DESCRIPTION 
5.     Autologon enables the system to logon after a reboot without 
6.     you needing to enter credentials. This is an ideal scenario 
7.     for lab or training room systems. This script defines 
8.     a function that sets a userid/password and autologon.
9. .NOTES 
10.     File Name  : Set-AdminLogon 
11.     Author     : Thomas Lee - tfl@psp.co.uk 
12.     Requires   : PowerShell Version 2.0 
13. .LINK 
14.     This script posted to: 
15.         http://www.pshscripts.blogspot.com 
16. .EXAMPLE 
17.     Psh> New-AdminLogon -user cookham\tfl -password 'JerryGarciaR0cks!' 
18.     Auto logon created for [Cookham\tfl] with password: [JerryGarciaR0cks]          
19.  
20. #> 
21.  
22. Function New-AdminLogon { 
23.  
24. [cmdletbinding()] 
25. Param( 
26. [string] $User     = $(Throw 'No user id specified'), 
27. [string] $Password = $(Throw 'No password specified') 
28. ) 
29.  
30. # Define registry path for autologon 
31. $RegPath = 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon' 
32.  
33. # Set autologon 
34. Set-ItemProperty -Path $RegPath -Name AutoAdminLogon -Value 1  
35.  
36. # Set userid and password 
37. Set-ItemProperty -Path $RegPath -Name DefaultUserName -Value $User  
38. Set-ItemProperty -Path $regPath -Name DefaultPassword -Value $Password  
39.  
40. # Say nice things and exit! 
41. Write-Host ("Auto logon [{0}] set to password: [{1}]" -f $user, $password) 
42. } 
43.  
44. Set-AdminLogon -User 'Cookham\tfl' -Password 'JerryGarciaR0cks' 

Technorati Tags: secuirty,admin logon

Remove-AdminLogon.ps1

1. <#
2. .SYNOPSIS
3. This script defines a function that removes autologon
4. .DESCRIPTION
5. Autologon enables the system to logon after a reboot without
6. you needing to enter credentials. This is an ideal scenario
7. for lab or training room systems. This script defines
8. a function that removes the autologon registry keys
9. .NOTES
10. File Name : Remove-AdminLogon
11. Author : Thomas Lee - tfl@psp.co.uk
12. Requires : PowerShell Version 2.0
13. .LINK
14. This script posted to:
15. http://www.pshscripts.blogspot.com
16. .EXAMPLE
17. Psh> Remove-AdminLogon
18. Auto logon settings removed
20. #>
22. Function Remove-AdminLogon {
24. [Cmdletbinding()]
25. Param()
27. # Define registry path for autologon
28. $RegPath = 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon'
30. # Remove autologon property
31. Remove-ItemProperty -Path $RegPath -Name AutoAdminLogon
33. # Remove userid and password
34. Remove-ItemProperty -Path $RegPath -Name DefaultUserName
35. Remove-ItemProperty -Path $RegPath -Name DefaultPassword
37. # Say nice things and exit!
38. Write-Host ("Auto logon removed")
39. }
41. Remove-AdminLogon

Technorati Tags: security,admin logon

New-AutoAdminLogon.ps1

1. <# 
2. .SYNOPSIS 
3.     This script defines a function that sets autologon 
4. .DESCRIPTION 
5.     Autologon enables the system to logon after a reboot without 
6.     you needing to enter credentials. This is an ideal scenario 
7.     for lab or training room systems. This script defines 
8.     a function that sets a userid/password and autologon. It does NOT 
9.     check to see if the value entries already exist. 
10. .NOTES 
11.     File Name  : Set-AutoAdminLogon 
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> Set-AutoAdminLogon -user cookham\tfl -password 'JerryGarciaR0cks!' 
19.     Auto logon set for [Cookham\tfl] with password: [JerryGarciaR0cks]          
20.  
21. #> 
22.  
23. Function Set-AdminLogon { 
24.  
25. [cmdletbinding()] 
26. Param( 
27. [string] $User     = $(Throw 'No user id specified'), 
28. [string] $Password = $(Throw 'No password specified') 
29. ) 
30.  
31. # Define registry path for autologon 
32. $RegPath = 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon' 
33.  
34. # Set autologon 
35. New-ItemProperty -Path $RegPath -Name AutoAdminLogon -Value 1 -EA 0 
36.  
37. # Set userid and password 
38. New-ItemProperty -Path $RegPath -Name DefaultUserName -Value $User -EA 0 
39. New-ItemProperty -Path $regPath -Name DefaultPassword -Value $Password -EA 0 
40.  
41. # Say nice things and exit! 
42. Write-Host ("Auto logon set for [{0}] with password: [{1}]" -f $user, $password) 
43. } 
44.  
45. Set-AdminLogon -User 'Cookham\tfl' -Password 'JerryGarciaR0cks' 

Technorati Tags: secuirty,admin logon

Convert-PptxToPDF.ps1

1. <# 
2. .SYNOPSIS 
3.     This function converts a PPTx file into a PDF file 
4. .DESCRIPTION 
5.     The Convert-PptxToPDF function first creates an  
6.     instance of PowerPoint, opens the $ifile and saves 
7.     this to $ofile as a PDF file. 
8. .NOTES 
9.     File Name  : Convert-PptxToPDF 
10.     Author     : Thomas Lee - tfl@psp.co.uk 
11.     Requires   : PowerShell Version 3.0, Office 2010 
12. .LINK 
13.     This script posted to: 
14.         http://www.pshscripts.blogspot.com 
15.      
16. .EXAMPLE 
17.     There is nothing to see, except a set of new PDF Files in the output folder         
18.  
19. #> 
20.  
21. Function Convert-PptxToPDF { 
22.  
23. [CmdletBinding()] 
24. Param( 
25. $IFile, 
26. $OFile 
27. ) 
28.  
29. # add key assemblies 
30. Add-type -AssemblyName office -ErrorAction SilentlyContinue 
31. Add-Type -AssemblyName microsoft.office.interop.powerpoint -ErrorAction SilentlyContinue 
32.  
33. # Open PowerPoint 
34. $ppt = new-object -com powerpoint.application 
35. $ppt.visible = [Microsoft.Office.Core.MsoTriState]::msoFalse 
36.  
37.  
38. # Open the $Ifile presentation 
39. $pres = $ppt.Presentations.Open($ifile) 
40.  
41. # Now save it away as PDF 
42. $opt= [Microsoft.Office.Interop.PowerPoint.PpSaveAsFileType]::ppSaveAsPDF 
43. $pres.SaveAs($ofile,$opt) 
44.  
45. # and Tidy-up 
46. $pres.Close() 
47. $ppt.Quit() 
48. $ppt=$null 
49.  
50. } 
51.  
52.  
53. # Test it 
54.  
55. $ipath = "E:\SkyDrive\PowerShell V3 Geek Week\" 
56.  
57. Foreach ($ifile in $(ls $ipath -Filter "*.pptx")) { 
58.   # Build name of output file 
59.   $pathname = split-path $ifile 
60.   $filename = split-path $ifile -leaf  
61.   $file     = $filename.split(".")[0] 
62.   $ofile    = $pathname + $file + ".pdf" 
63.  
64.   # Convert _this_ file to PDF 
65.    Convert-PptxToPDF -ifile $ifile -OFile $ofile 
66. } 

Technorati Tags: PowerPoint,PDF,SaveAsPDF,Office