├── MDT
    ├── Applications
    │   ├── Microsoft Internet Explorer 11
    │   │   └── Readme_IE11.txt
    │   ├── Microsoft Office 365 C2R 2016
    │   │   ├── CustomSettings.xml
    │   │   └── Readme_O365_2016.txt
    │   ├── Microsoft Office ProPlus 2013
    │   │   └── Readme_Office_2013.txt
    │   ├── Microsoft Office ProPlus 2016
    │   │   └── Readme_Office_2016.txt
    │   ├── Microsoft Windows Performance Toolkit 10 10240
    │   │   └── Readme_WPT.txt
    │   ├── Microsoft Windows Performance Toolkit 10 10586
    │   │   └── Readme_WPT.txt
    │   └── Microsoft Windows Performance Toolkit 8.1
    │   │   └── Readme_WPT.txt
    ├── Bootstrap.ini
    ├── CreateMDTShare.ps1
    ├── CustomSettings.ini
    ├── MDTScripts
    │   ├── AMD64
    │   │   └── readme_powercfg.txt
    │   ├── ChangeWallpaper.ps1
    │   ├── ConfigWin10.ps1
    │   ├── ConfigureIPv6.ps1
    │   ├── ConfigureWMI.ps1
    │   ├── ConfigureWU.ps1
    │   ├── DisableIEESC.ps1
    │   ├── DisableServerManager.ps1
    │   ├── DisableWUService.ps1
    │   ├── EnableMSUpdate.ps1
    │   ├── EnableRDP.ps1
    │   ├── EnableWUService.ps1
    │   ├── Settings.xml
    │   ├── UACSettings.ps1
    │   ├── X86
    │   │   └── readme_powercfg.txt
    │   ├── ZTIGather.wsf
    │   └── img0.jpg
    ├── Packages
    │   └── Readme_Packages.txt
    └── Settings.xml
└── README.md


/MDT/Applications/Microsoft Internet Explorer 11/Readme_IE11.txt:
--------------------------------------------------------------------------------
1 | Download IE11-Windows6.1-x64-en-us.exe and place in the root of this folder:
2 | https://www.microsoft.com/en-us/download/internet-explorer-11-for-windows-7-details.aspx


--------------------------------------------------------------------------------
/MDT/Applications/Microsoft Office 365 C2R 2016/CustomSettings.xml:
--------------------------------------------------------------------------------
1 | <Configuration>
2 |     <Add SourcePath="\\Server\Share\MDT\Applications\Microsoft Office 365 C2R 2016" OfficeClientEdition="32" Branch="Current">
3 |         <Product ID="O365ProPlusRetail" >
4 |             <Language ID="en-us" />
5 |             <ExcludeApp ID="Lync" />
6 |         </Product>
7 |     </Add>
8 |     <Display Level="None" AcceptEULA="TRUE" />
9 | </Configuration>


--------------------------------------------------------------------------------
/MDT/Applications/Microsoft Office 365 C2R 2016/Readme_O365_2016.txt:
--------------------------------------------------------------------------------
1 | Download the Office 365 2016 administrative setup installer from:
2 | http://www.microsoft.com/en-us/download/details.aspx?id=49117
3 | 
4 | Run downloaded "OfficeDeploymentTool.exe" and extract to this folder using setup.exe:
5 | setup.exe /download \\server\Share\MDT\Applications\Microsoft Office 365 C2R 2016\CustomSettings.xml
6 | 
7 | 
8 | More O365 Administrative setup information can be found here:
9 | https://technet.microsoft.com/en-us/library/jj219424.aspx


--------------------------------------------------------------------------------
/MDT/Applications/Microsoft Office ProPlus 2013/Readme_Office_2013.txt:
--------------------------------------------------------------------------------
1 | Place your Office 2013 Standard, Professional, or ProPlus installation contents in this folder.
2 | 
3 | If you wish to install other Office 2013 components like Visio, Project, and/or SharePoint Designer,
4 | copy the contents of those into this folder as well (overwriting files/folders when prompted).


--------------------------------------------------------------------------------
/MDT/Applications/Microsoft Office ProPlus 2016/Readme_Office_2016.txt:
--------------------------------------------------------------------------------
1 | Place your Office 2016 Standard, Professional, or ProPlus installation contents in this folder.
2 | 
3 | If you wish to install other Office 2016 components like Visio, Project, and/or SharePoint Designer,
4 | copy the contents of those into this folder as well (overwriting files/folders when prompted).


--------------------------------------------------------------------------------
/MDT/Applications/Microsoft Windows Performance Toolkit 10 10240/Readme_WPT.txt:
--------------------------------------------------------------------------------
1 | Note - the Windows 10 10240 ADK appears to have been removed from the Microsoft download center.
2 | If you already have a copy, fantastic.  If not, it may be available from non-Microsoft sources of questionable legality.
3 | 
4 | The files should be placed in this folder once the ADK has been downloaded - the files are
5 | WPTx64-x86_en-us.msi and WPTx86-x86_en-us.msi (change languages as appropriate).
6 | These can be found in the download or install location.


--------------------------------------------------------------------------------
/MDT/Applications/Microsoft Windows Performance Toolkit 10 10586/Readme_WPT.txt:
--------------------------------------------------------------------------------
1 | The Windows Performance Toolkit MSI packages can be downloaded via the Windows 10 ADK:
2 | http://go.microsoft.com/fwlink/p/?LinkId=526740
3 | 
4 | The files should be placed in this folder once the ADK has been downloaded - the files are
5 | WPTx64-x86_en-us.msi and WPTx86-x86_en-us.msi (change languages as appropriate).
6 | These can be found in the download or install location.


--------------------------------------------------------------------------------
/MDT/Applications/Microsoft Windows Performance Toolkit 8.1/Readme_WPT.txt:
--------------------------------------------------------------------------------
1 | The Windows Performance Toolkit MSI packages can be downloaded via the Windows 8.1 ADK:
2 | http://www.microsoft.com/en-us/download/details.aspx?id=39982
3 | 
4 | The files should be placed in this folder once the ADK has been downloaded - the files are
5 | WPTx64-x86_en-us.msi and WPTx86-x86_en-us.msi (change languages as appropriate).
6 | These can be found in the download or install location.


--------------------------------------------------------------------------------
/MDT/Bootstrap.ini:
--------------------------------------------------------------------------------
 1 | [Settings]
 2 | Priority=Default, DefaultGateway
 3 | 
 4 | [Default]
 5 | SkipBDDWelcome=YES
 6 | UserID=mdtuser
 7 | UserDomain=domain
 8 | UserPassword=Password
 9 | 
10 | [DefaultGateway]
11 | 10.1.10.1=SITE01
12 | 10.2.10.1=SITE02
13 | 
14 | [Site01]
15 | DeployRoot=\\SITE01SERVER\DeploymentShare$
16 | 
17 | [Site02]
18 | DeployRoot=\\SITE02SERVER\DeploymentShare$
19 | 


--------------------------------------------------------------------------------
/MDT/CreateMDTShare.ps1:
--------------------------------------------------------------------------------
  1 | <#
  2 | .SYNOPSIS
  3 |     This script creates an MDT deployment share.
  4 | 
  5 | .DESCRIPTION
  6 |     This script creates an MDT deployment share with default task sequences.
  7 | 
  8 |     Note that you may need to edit the CustomSettings.xml file in MDT\Applications\Microsoft Office 365 C2R 2016\ if adding Office365
  9 |     via this script, so that it points to the correct share and folder name in your deployment share.
 10 | 
 11 |     You may also need to edit the ChangeWallpaper.ps1 script to point to your deployment share.  You may also wish to replace the file
 12 |     \MDT\MDTScripts\img0.jpg with your own wallpaper image.
 13 | 
 14 | 
 15 | 
 16 |     // *************
 17 |     // *  CAUTION  *
 18 |     // *************
 19 | 
 20 |     Please review this script THOROUGHLY before applying, and disable changes below as necessary to suit your current environment.
 21 | 
 22 |     This script is provided AS-IS - usage of this source assumes that you are at the very least familiar with PowerShell, and the
 23 |     tools used to create and debug this script.
 24 | 
 25 |     In other words, if you break it, you get to keep the pieces.
 26 |     
 27 | .EXAMPLE
 28 |     .\CreateMDTShare.ps1
 29 | 
 30 | .NOTES
 31 |     Author:       Carl Luberti
 32 |     Last Update:  27th November 2013
 33 |     Version:      1.0.0
 34 | #>
 35 | 
 36 | 
 37 | # Variables
 38 | 
 39 | # Share where source will be pulled from
 40 | $DataShare = "\\Server\Share"
 41 | 
 42 | # Folder locally where deployment share will be created
 43 | $MDTFolderPath = "X:\_Build"
 44 | 
 45 | # Name of the deployment share in MDT Deployment Workbench
 46 | $MDTShareName = "Build"
 47 | 
 48 | # Install prereqs (True/False)
 49 | $ADK = "True"
 50 | $MDT = "True"
 51 | 
 52 | # Install WDS (True/False)
 53 | $WDS = "False"
 54 | 
 55 | 
 56 | 
 57 | # Create folder for Deployment Share
 58 | If (Test-Path $MDTFolderPath)
 59 | {
 60 |     Write-Error "Folder $MDTFolderPath already exists - exiting!" -ForegroundColor Yellow
 61 |     Exit
 62 | }
 63 | Write-Host "Creating $MDTFolderPath..." -ForegroundColor Cyan
 64 | New-Item -Path $MDTFolderPath -ItemType directory | Out-Null
 65 | 
 66 | 
 67 | 
 68 | # Install ADK/MDT/WDS
 69 | #ADK
 70 | If ($ADK -eq "True")
 71 | {
 72 |     $Mount = (Mount-DiskImage -ImagePath "$DataShare\ISO\MDT\ADK10_10240.iso" -StorageType ISO -PassThru | Get-Volume).DriveLetter
 73 |     $Drive = $Mount + ":"
 74 | 
 75 |     Write-Host "Installing ADK..." -ForegroundColor Cyan
 76 |     Start-Process -wait "$Drive\adksetup.exe" -ArgumentList "/features OptionId.DeploymentTools OptionId.WindowsPreinstallationEnvironment OptionId.ImagingAndConfigurationDesigner OptionId.UserStateMigrationTool /norestart /quiet /ceip off"
 77 |     Start-Sleep -Seconds 5
 78 |     Dismount-DiskImage -ImagePath "$DataShare\ISO\MDT\ADK10_10240.iso"
 79 | }
 80 | 
 81 | #MDT
 82 | If ($MDT -eq "True")
 83 | {
 84 |     Write-Host "Installing MDT..." -ForegroundColor Cyan
 85 |     $Mount = (Mount-DiskImage -ImagePath "$DataShare\ISO\MDT\MDT2013U1.iso" -StorageType ISO -PassThru | Get-Volume).DriveLetter
 86 |     $Drive = $Mount + ":"
 87 | 
 88 |     Start-Process -wait "msiexec" -ArgumentList "/i $Drive\MicrosoftDeploymentToolkit2013_x64.msi /qb!"
 89 |     Start-Sleep -Seconds 5
 90 |     Dismount-DiskImage -ImagePath "$DataShare\ISO\MDT\MDT2013U1.iso"
 91 | }
 92 | 
 93 | #WDS
 94 | If ($WDS -eq "True")
 95 | {
 96 |     Write-Host "Installing WDS..." -ForegroundColor Cyan
 97 |     If ((Get-CimInstance Win32_OperatingSystem).Caption -like "*2012*")
 98 |     {
 99 |         Install-WindowsFeature -Name WDS -IncludeAllSubFeature -IncludeManagementTools
100 |     }
101 |     Else
102 |     {
103 |         Write-Host "MDT 2013 Update 1 requires server 2012 or higher to properly support UEFI, and Server 2012R2 for Windows 10 support" -ForegroundColor Cyan
104 |         Write-Host "Windows Server 2012 or 2012R2 not found, skipping WDS install." -ForegroundColor Cyan
105 |         Write-Host ""
106 |         Write-Host "You may choose to install it via Server Manager or PowerShell after this script completes if this is in error, or" -ForegroundColor Cyan
107 |         Write-Host "You wish to run Server 2008 or 2008R2 WDS." -ForegroundColor Cyan
108 |     }
109 | }
110 | 
111 | 
112 | # Import MDT PowerShell module
113 | Import-Module "C:\Program Files\Microsoft Deployment Toolkit\bin\MicrosoftDeploymentToolkit.psd1"
114 | 
115 | 
116 | 
117 | # Create SMB Share
118 | Write-Host "Creating SMB Share $MDTShareName$..." -ForegroundColor Cyan
119 | New-SmbShare -Name "$MDTShareName$" -Path $MDTFolderPath | Out-Null
120 | Grant-SmbShareAccess -Name "$MDTShareName$" -AccountName Everyone -AccessRight Full –Force | Out-Null
121 | 
122 | 
123 | 
124 | # Set Deployment Share as permanent in Deployment Workbench for current user, add custom settings
125 | Write-Host "Copying custom content to $MDTFolderPath\Control and $MDTFolderPath\Scripts..." -ForegroundColor Cyan
126 | New-PSDrive -Name "DS001" -PSProvider "MDTProvider" -Root $MDTFolderPath -Description $MDTShareName -NetworkPath "\\$env:COMPUTERNAME\$MDTShareName$" | Add-MDTPersistentDrive | Out-Null
127 | Copy-Item -Path "$DataShare\MDT\MDTScripts\*" -Recurse -Destination "$MDTFolderPath\Scripts" -Force
128 | Copy-Item -Path "$DataShare\MDT\CustomSettings.ini" -Destination "$MDTFolderPath\Control" -Force
129 | Copy-Item -Path "$DataShare\MDT\Bootstrap.ini" -Destination "$MDTFolderPath\Control" -Force
130 | Copy-Item -Path "$DataShare\MDT\Settings.xml" -Destination "$MDTFolderPath\Control" -Force
131 | Add-Content "$MDTFolderPath\Control\Bootstrap.ini" "`r`n"
132 | Add-Content "$MDTFolderPath\Control\Bootstrap.ini" "DeployRoot=\\$env:COMPUTERNAME\$MDTShareName$"
133 | Add-Content "$MDTFolderPath\Control\CustomSettings.ini" "`r`n"
134 | Add-Content "$MDTFolderPath\Control\CustomSettings.ini" "BackupShare=\\$env:COMPUTERNAME\$MDTShareName$"
135 | 
136 | # Config WinPE settings
137 | Write-Host "Updating WinPE settings for $MDTShareName share..." -ForegroundColor Cyan
138 | $SettingsXML = "$MDTFolderPath\Control\Settings.xml"
139 | $xml = [xml](Get-Content $SettingsXML)
140 | $xml.Settings.UNCPath="\\$env:COMPUTERNAME\$MDTShareName$"
141 | $xml.Settings.PhysicalPath="$MDTFolderPath"
142 | $xml.Settings."Boot.x86.UseBootWim"="False"
143 | $xml.Settings."Boot.x86.GenerateGenericWIM"="False"
144 | $xml.Settings."Boot.x86.GenerateGenericISO"="False"
145 | $xml.Settings."Boot.x86.GenerateLiteTouchISO"="False"
146 | $xml.Settings."Boot.x86.SelectionProfile"="Nothing"
147 | $xml.Settings."Boot.x86.LiteTouchWIMDescription"="$MDTShareName WinPE (x64)"
148 | $xml.Settings."Boot.x86.LiteTouchISOName"="$MDTShareName-WinPE-x86.iso"
149 | $xml.Settings."Boot.x86.SelectionProfile"="Nothing"
150 | $xml.Settings."Boot.x64.UseBootWim"="False"
151 | $xml.Settings."Boot.x64.GenerateGenericWIM"="False"
152 | $xml.Settings."Boot.x64.GenerateGenericISO"="False"
153 | $xml.Settings."Boot.x64.GenerateLiteTouchISO"="False"
154 | $xml.Settings."Boot.x64.SelectionProfile"="Nothing"
155 | $xml.Settings."Boot.x64.LiteTouchWIMDescription"="$MDTShareName WinPE (x64)"
156 | $xml.Settings."Boot.x64.LiteTouchISOName"="$MDTShareName-WinPE-x64.iso"
157 | $xml.Settings."Boot.x64.SelectionProfile"="Nothing"
158 | $xml.Save($SettingsXML)
159 | 
160 | 
161 | 
162 | # Create PE WIMs
163 | Write-Host "Updating WinPE WIMs for deployment share $MDTShareName..." -ForegroundColor Cyan
164 | Update-MDTDeploymentShare -path "DS001:" -Force
165 | 
166 | 
167 | 
168 | # Add OS from ISO
169 | Function Add-OS {
170 |     param($ISO, $OSVersion, $DestinationFolder, $Architecture, $Template)
171 | 
172 |     $Mount = (Mount-DiskImage -ImagePath $ISO -StorageType ISO -PassThru | Get-Volume).DriveLetter
173 |     $Drive = $Mount + ":"
174 | 
175 |     If (!(Test-Path "DS001:\Operating Systems\$OSVersion"))
176 |     {
177 |         New-Item -path "DS001:\Operating Systems" -enable "True" -Name $OSVersion -Comments "" -ItemType "folder" | Out-Null
178 |     }
179 | 
180 |     If (!(Test-Path "DS001:\Operating Systems\$OSVersion\$Architecture"))
181 |     {
182 |         New-Item -path "DS001:\Operating Systems\$OSVersion" -enable "True" -Name $Architecture -Comments "" -ItemType "folder" | Out-Null
183 |     }
184 |     Import-MdtOperatingSystem -path "DS001:\Operating Systems\$OSVersion\$Architecture" -SourcePath $Drive -DestinationFolder "$DestinationFolder$Architecture" | Out-Null
185 |     Dismount-DiskImage -ImagePath $ISO
186 | 
187 |     If (!(Test-Path "DS001:\Task Sequences\$OSVersion"))
188 |     {
189 |         New-Item -path "DS001:\Task Sequences" -enable "True" -Name $OSVersion -Comments "" -ItemType "folder"| Out-Null
190 |     }
191 |     $OSWIMs = Get-ChildItem -Path "DS001:\Operating Systems\$OSVersion\$Architecture" -Recurse
192 |     ForEach ($OSWIM in $OSWIMs)
193 |     {
194 |         $TSOS = $OSWIM.Name
195 |         $TSName = $OSWIM.Description
196 |         $Date = Get-Date -Format yyyy.MM.dd.HHmm
197 | 
198 |         # Server SKUs
199 |         If ($OSWIM.ImageName -like "*SERVERSTANDARDCORE")
200 |         {
201 |             Import-MdtTaskSequence -path "DS001:\Task Sequences\$OSVersion" -Name "$TSName $Architecture" -Template "$Template.xml" -Comments "" -ID "$DestinationFolder-STDCORE-$Architecture" -Version "$Date" -OperatingSystemPath "DS001:\Operating Systems\$OSVersion\$Architecture\$TSOS" -FullName "User" -OrgName "Org" -HomePage "about:blank" -Verbose
202 |         }
203 |         ElseIf ($OSWIM.ImageName -like "*SERVERSTANDARD")
204 |         {
205 |             Import-MdtTaskSequence -path "DS001:\Task Sequences\$OSVersion" -Name "$TSName $Architecture" -Template "$Template.xml" -Comments "" -ID "$DestinationFolder-STD-$Architecture" -Version "$Date" -OperatingSystemPath "DS001:\Operating Systems\$OSVersion\$Architecture\$TSOS" -FullName "User" -OrgName "Org" -HomePage "about:blank" -Verbose
206 |         }
207 |         ElseIf ($OSWIM.ImageName -like "*SERVERDATACENTERCORE")
208 |         {
209 |             Import-MdtTaskSequence -path "DS001:\Task Sequences\$OSVersion" -Name "$TSName $Architecture" -Template "$Template.xml" -Comments "" -ID "$DestinationFolder-DCCORE-$Architecture" -Version "$Date" -OperatingSystemPath "DS001:\Operating Systems\$OSVersion\$Architecture\$TSOS" -FullName "User" -OrgName "Org" -HomePage "about:blank" -Verbose
210 |         }
211 |         ElseIf ($OSWIM.ImageName -like "*SERVERDATACENTER")
212 |         {
213 |             Import-MdtTaskSequence -path "DS001:\Task Sequences\$OSVersion" -Name "$TSName $Architecture" -Template "$Template.xml" -Comments "" -ID "$DestinationFolder-DC-$Architecture" -Version "$Date" -OperatingSystemPath "DS001:\Operating Systems\$OSVersion\$Architecture\$TSOS" -FullName "User" -OrgName "Org" -HomePage "about:blank" -Verbose
214 |         }
215 |         ElseIf ($OSWIM.ImageName -like "*SERVERENTERPRISECORE")
216 |         {
217 |             Import-MdtTaskSequence -path "DS001:\Task Sequences\$OSVersion" -Name "$TSName $Architecture" -Template "$Template.xml" -Comments "" -ID "$DestinationFolder-ENTCORE-$Architecture" -Version "$Date" -OperatingSystemPath "DS001:\Operating Systems\$OSVersion\$Architecture\$TSOS" -FullName "User" -OrgName "Org" -HomePage "about:blank" -Verbose
218 |         }
219 |         ElseIf ($OSWIM.ImageName -like "*SERVERENTERPRISE")
220 |         {
221 |             Import-MdtTaskSequence -path "DS001:\Task Sequences\$OSVersion" -Name "$TSName $Architecture" -Template "$Template.xml" -Comments "" -ID "$DestinationFolder-ENT-$Architecture" -Version "$Date" -OperatingSystemPath "DS001:\Operating Systems\$OSVersion\$Architecture\$TSOS" -FullName "User" -OrgName "Org" -HomePage "about:blank" -Verbose
222 |         }
223 |         ElseIf ($OSWIM.ImageName -like "*SERVERWEBCORE")
224 |         {
225 |             Import-MdtTaskSequence -path "DS001:\Task Sequences\$OSVersion" -Name "$TSName $Architecture" -Template "$Template.xml" -Comments "" -ID "$DestinationFolder-WEBCORE-$Architecture" -Version "$Date" -OperatingSystemPath "DS001:\Operating Systems\$OSVersion\$Architecture\$TSOS" -FullName "User" -OrgName "Org" -HomePage "about:blank" -Verbose
226 |         }
227 |         ElseIf ($OSWIM.ImageName -like "*SERVERWEB")
228 |         {
229 |             Import-MdtTaskSequence -path "DS001:\Task Sequences\$OSVersion" -Name "$TSName $Architecture" -Template "$Template.xml" -Comments "" -ID "$DestinationFolder-WEB-$Architecture" -Version "$Date" -OperatingSystemPath "DS001:\Operating Systems\$OSVersion\$Architecture\$TSOS" -FullName "User" -OrgName "Org" -HomePage "about:blank" -Verbose
230 |         }
231 |         # Client SKUs
232 |         Elseif ($OSWIM.Flags -like "*Enterprise*")
233 |         {
234 |             Import-MdtTaskSequence -path "DS001:\Task Sequences\$OSVersion" -Name "$TSName $Architecture" -Template "$Template.xml" -Comments "" -ID "$DestinationFolder-ENT-$Architecture" -Version "$Date" -OperatingSystemPath "DS001:\Operating Systems\$OSVersion\$Architecture\$TSOS" -FullName "User" -OrgName "Org" -HomePage "about:blank" -Verbose
235 |         }
236 |         Elseif ($OSWIM.Flags -like "*Professional*")
237 |         {
238 |             Import-MdtTaskSequence -path "DS001:\Task Sequences\$OSVersion" -Name "$TSName $Architecture" -Template "$Template.xml" -Comments "" -ID "$DestinationFolder-PRO-$Architecture" -Version "$Date" -OperatingSystemPath "DS001:\Operating Systems\$OSVersion\$Architecture\$TSOS" -FullName "User" -OrgName "Org" -HomePage "about:blank" -Verbose
239 |         }
240 |         # Fallback
241 |         Else
242 |         {
243 |             Import-MdtTaskSequence -path "DS001:\Task Sequences\$OSVersion" -Name "$TSName $Architecture" -Template "$Template.xml" -Comments "" -ID "$DestinationFolder$Architecture" -Version "$Date" -OperatingSystemPath "DS001:\Operating Systems\$OSVersion\$Architecture\$TSOS" -FullName "User" -OrgName "Org" -HomePage "about:blank" -Verbose
244 |         }
245 |     }
246 | }
247 | 
248 | # Add Hotfixes / Create Selection Profile
249 | Function Add-Packages {
250 |     param($PackagePath, $OSVersion, $Architecture)
251 | 
252 |     If (!(Test-Path "DS001:\Packages\$OSVersion"))
253 |     {
254 |         New-Item -path "DS001:\Packages" -enable "True" -Name $OSVersion -Comments "" -ItemType "folder" | Out-Null
255 |     }
256 | 
257 |     If (!(Test-Path "DS001:\Packages\$OSVersion\$Architecture"))
258 |     {
259 |         New-Item -path "DS001:\Packages\$OSVersion" -enable "True" -Name $Architecture -Comments "" -ItemType "folder" | Out-Null
260 |     }
261 |     Import-MdtPackage -path "DS001:\Packages\$OSVersion\$Architecture" -SourcePath $PackagePath | Out-Null
262 |     New-Item -path "DS001:\Selection Profiles" -enable "True" -Name "$OSVersion $Architecture" -Comments "" -Definition "<SelectionProfile><Include path=`"Packages\$OSVersion\$Architecture`" /></SelectionProfile>" -ReadOnly "False" | Out-Null
263 | }
264 | 
265 | # Add Applications
266 | Function Add-ApplicationWithSource {
267 |     param($Vendor, $Application, $Name, $ShortName, $Architecture, $Command, $AppFolder, $SourcePath)
268 | 
269 |     If (!(Test-Path "DS001:\Applications\$Vendor"))
270 |     {
271 |         New-Item -path "DS001:\Applications" -enable "True" -Name "$Vendor" -Comments "" -ItemType "folder" | Out-Null
272 |     }
273 | 
274 |     If (!(Test-Path "DS001:\Applications\$Vendor\$Application"))
275 |     {
276 |         New-Item -path "DS001:\Applications\$Vendor" -enable "True" -Name "$Application" -Comments "" -ItemType "folder" | Out-Null
277 |     }
278 |     Import-MdtApplication -path "DS001:\Applications\$Vendor\$Application" -enable "True" -Name "$Name" -ShortName "$Shortname" -Version $Architecture -Publisher $Vendor -Language "" -CommandLine "$Command" -WorkingDirectory ".\Applications\$AppFolder" -ApplicationSourcePath "$SourcePath" -DestinationFolder "$AppFolder" | Out-Null
279 | }
280 | 
281 | Function Add-ApplicationWithoutSource {
282 |     param($Vendor, $Application, $Name, $ShortName, $Architecture, $Command, $AppFolder)
283 | 
284 |     If (!(Test-Path "DS001:\Applications\$Vendor"))
285 |     {
286 |         New-Item -path "DS001:\Applications" -enable "True" -Name "$Vendor" -Comments "" -ItemType "folder" | Out-Null
287 |     }
288 | 
289 |     If (!(Test-Path "DS001:\Applications\$Vendor\$Application"))
290 |     {
291 |         New-Item -path "DS001:\Applications\$Vendor" -enable "True" -Name "$Application" -Comments "" -ItemType "folder" | Out-Null
292 |     }
293 |     Import-MdtApplication -path "DS001:\Applications\$Vendor\$Application" -enable "True" -Name "$Name" -ShortName "$Shortname" -Version $Architecture -Publisher $Vendor -Language "" -CommandLine "$Command" -WorkingDirectory ".\Applications\$AppFolder" -NoSource | Out-Null
294 | }
295 | 
296 | 
297 | 
298 | # ISOs
299 | $Win7x86ISO = "$DataShare\ISO\Windows\Client\Win7\Win7_Ent_SP1_x86.iso"
300 | $Win7x64ISO = "$DataShare\ISO\Windows\Client\Win7\Win7_Ent_SP1_x64.iso"
301 | $Win81x861ISO = "$DataShare\ISO\Windows\Client\Win81\Win81_Ent_Update1_x86.iso"
302 | $Win81x641ISO = "$DataShare\ISO\Windows\Client\Win81\Win81_Ent_Update1_x64.iso"
303 | $Win10x86ISO = "$DataShare\ISO\Windows\Client\Win10\10586\Win10_Ent_x86.iso"
304 | $Win10x64ISO = "$DataShare\ISO\Windows\Client\Win10\10586\Win10_Ent_x64.iso"
305 | $Win2008R2ISO = "$DataShare\ISO\Windows\Server\2008R2\x64\WindowsServer2008R2SP1.iso"
306 | $Win2012ISO = "$DataShare\ISO\Windows\Server\2012\x64\WindowsServer2012.iso"
307 | $Win2012R2ISO = "$DataShare\ISO\Windows\Server\2012R2\x64\WindowsServer2012R2_Update1.iso"
308 | 
309 | # Windows 7
310 | Write-Host "Adding Windows 7 to deployment share $MDTShareName..." -ForegroundColor Cyan
311 | Add-OS $Win7x86ISO "Windows 7" "W7ENTSP1" "x86" "Client"
312 | Add-OS $Win7x64ISO "Windows 7" "W7ENTSP1" "x64" "Client"
313 | # Windows 8.1
314 | Write-Host "Adding Windows 8.1 to deployment share $MDTShareName..." -ForegroundColor Cyan
315 | Add-OS $Win81x861ISO "Windows 8.1" "W81ENTU1" "x86" "Client"
316 | Add-OS $Win81x641ISO "Windows 8.1" "W81ENTU1" "x64" "Client"
317 | # Windows 10
318 | Write-Host "Adding Windows 10 to deployment share $MDTShareName..." -ForegroundColor Cyan
319 | Add-OS $Win10x86ISO "Windows 10" "W10ENT10586" "x86" "Client"
320 | Add-OS $Win10x64ISO "Windows 10" "W10ENT10586" "x64" "Client"
321 | # Windows Server 2008R2
322 | Write-Host "Adding Windows Server 2008R2 to deployment share $MDTShareName..." -ForegroundColor Cyan
323 | Add-OS $Win2008R2ISO "Windows Server 2008R2" "W2008R2SP1" "x64" "Server"
324 | # Windows Server 2012
325 | Write-Host "Adding Windows Server 2012 to deployment share $MDTShareName..." -ForegroundColor Cyan
326 | Add-OS $Win2012ISO "Windows Server 2012" "W2012" "x64" "Server"
327 | # Windows Server 2012R2
328 | Write-Host "Adding Windows Server 2012R2 to deployment share $MDTShareName..." -ForegroundColor Cyan
329 | Add-OS $Win2012R2ISO "Windows Server 2012R2" "W2012R2U1" "x64" "Server"
330 | 
331 | 
332 | <#
333 | # Patches / packages here
334 | Write-Host "Adding patches/hotfixes for Windows 7 / IE11 to deployment share $MDTShareName..." -ForegroundColor Cyan
335 | Add-Packages "$DataShare\MDT\Packages" "Windows 7" "x64"
336 | 
337 | 
338 | 
339 | # Applications here
340 | ##########################
341 | ## Internet Explorer 11 ##
342 | ##########################
343 | $Vendor = "Microsoft"
344 | $Application = "Internet Explorer"
345 | $Version = "11"
346 | $Architecture = "x64"
347 | $Name = "$Vendor $Application $Version $Architecture"
348 | $ShortName = "$Application $Version"
349 | $InstallCommand = "IE11-Windows6.1-x64-en-us.exe /passive /update-no /norestart"
350 | $AppFolder = "MSIE11x64"
351 | $SourcePath = "$DataShare\MDT\Applications\Microsoft Internet Explorer 11"
352 | Write-Host "Adding IE11 to deployment share $MDTShareName..." -ForegroundColor Cyan
353 | Add-ApplicationWithSource $Vendor $Application $Name $Shortname $Architecture $InstallCommand $AppFolder $SourcePath
354 | 
355 | #########################
356 | ## Office 2016 ProPlus ##
357 | #########################
358 | $Vendor = "Microsoft"
359 | $Application = "Office 2016"
360 | $Version = "ProPlus"
361 | $Architecture = "x86"
362 | $Name = "$Vendor $Application $Version $Architecture"
363 | $ShortName = "$Application $Version"
364 | $InstallCommand = "setup.exe /config proplus.ww\config.xml"
365 | $AppFolder = "MSO2016x86"
366 | $SourcePath = "$DataShare\MDT\Applications\Microsoft Office ProPlus 2016"
367 | Write-Host "Adding Office 2016 to deployment share $MDTShareName..." -ForegroundColor Cyan
368 | Add-ApplicationWithSource $Vendor $Application $Name $ShortName $Architecture $InstallCommand $AppFolder $SourcePath
369 | 
370 | $Vendor = "Microsoft"
371 | $Application = "Visio 2016"
372 | $Version = "Professional"
373 | $Architecture = "x86"
374 | $Name = "$Vendor $Application $Version $Architecture"
375 | $ShortName = "$Application $Version"
376 | $InstallCommand = "setup.exe /config vispro.ww\config.xml"
377 | $AppFolder = "MSO2016x86"
378 | Write-Host "Adding Visio 2016 Professional to deployment share $MDTShareName..." -ForegroundColor Cyan
379 | Add-ApplicationWithoutSource $Vendor "Office 2016" $Name $ShortName $Architecture $InstallCommand $AppFolder
380 | 
381 | $Vendor = "Microsoft"
382 | $Application = "Project 2016"
383 | $Version = "Professional"
384 | $Architecture = "x86"
385 | $Name = "$Vendor $Application $Version $Architecture"
386 | $ShortName = "$Application $Version"
387 | $InstallCommand = "setup.exe /config prjpro.ww\config.xml"
388 | $AppFolder = "MSO2016x86"
389 | Write-Host "Adding Project 2016 Professional to deployment share $MDTShareName..." -ForegroundColor Cyan
390 | Add-ApplicationWithoutSource $Vendor "Office 2016" $Name $ShortName $Architecture $InstallCommand $AppFolder
391 | 
392 | ##########################
393 | ## Windows Perf Toolkit ##
394 | ##########################
395 | $Vendor = "Microsoft"
396 | $Application = "Windows Performance Toolkit"
397 | $Version = "8.1"
398 | $Architecture = "x64"
399 | $Name = "$Vendor $Application $Version $Architecture"
400 | $ShortName = "$Application $Version"
401 | $InstallCommand = "msiexec /i WPTx64-x86_en-us.msi /qb!"
402 | $AppFolder = "WPT81"
403 | $SourcePath = "$DataShare\MDT\Applications\Microsoft Windows Performance Toolkit 8.1"
404 | Write-Host "Adding WPT 8.1 to deployment share $MDTShareName..." -ForegroundColor Cyan
405 | Add-ApplicationWithSource $Vendor $Application $Name $ShortName $Architecture $InstallCommand $AppFolder $SourcePath
406 | 
407 | $Vendor = "Microsoft"
408 | $Application = "Windows Performance Toolkit"
409 | $Version = "10.0 10240"
410 | $Architecture = "x64"
411 | $Name = "$Vendor $Application $Version $Architecture"
412 | $ShortName = "$Application $Version"
413 | $InstallCommand = "msiexec /i WPTx64-x86_en-us.msi /qb!"
414 | $AppFolder = "WPT10-10240"
415 | $SourcePath = "$DataShare\MDT\Applications\Microsoft Windows Performance Toolkit 10 10240"
416 | Write-Host "Adding WPT 10 (10240) to deployment share $MDTShareName..." -ForegroundColor Cyan
417 | Add-ApplicationWithSource $Vendor $Application $Name $ShortName $Architecture $InstallCommand $AppFolder $SourcePath
418 | 
419 | $Vendor = "Microsoft"
420 | $Application = "Windows Performance Toolkit"
421 | $Version = "10.0 10586"
422 | $Architecture = "x64"
423 | $Name = "$Vendor $Application $Version $Architecture"
424 | $ShortName = "$Application $Version"
425 | $InstallCommand = "msiexec /i WPTx64-x86_en-us.msi /qb!"
426 | $AppFolder = "WPT10-10586"
427 | $SourcePath = "$DataShare\MDT\Applications\Microsoft Windows Performance Toolkit 10 10586"
428 | Write-Host "Adding WPT 10 (10586) to deployment share $MDTShareName..." -ForegroundColor Cyan
429 | Add-ApplicationWithSource $Vendor $Application $Name $ShortName $Architecture $InstallCommand $AppFolder $SourcePath
430 | #>
431 | 
432 | 
433 | # Clean up
434 | Write-Host "Updating WinPE WIMs for deployment share $MDTShareName..." -ForegroundColor Cyan
435 | Update-MDTDeploymentShare -path "DS001:"
436 | Remove-PSDrive -Name "DS001"
437 | 
438 | 
439 | # Done
440 | Write-Host ""
441 | Write-Host ""
442 | Write-Host ""
443 | Write-Host "Script complete.  Check $MDTFolderPath and the Deployment Workbench to validate success." -ForegroundColor Cyan


--------------------------------------------------------------------------------
/MDT/CustomSettings.ini:
--------------------------------------------------------------------------------
 1 | [Settings]
 2 | Priority=Default
 3 | Properties=MyCustomProperty
 4 | 
 5 | [Default]
 6 | OSInstall=Y
 7 | 
 8 | _SMSTSORGNAME=MDT Image Build/Capture
 9 | _SMSTSPackageName=%TaskSequenceID%
10 | 
11 | UserID=mdtuser
12 | UserDomain=domain
13 | UserPassword=Password
14 | 
15 | OrgName=Organization
16 | FullName=User
17 | 
18 | JoinWorkgroup=WORKGROUP
19 | ;JoinDomain=DOMAIN
20 | ;DomainAdmin=Administrator
21 | ;DomainAdminDomain=DOMAIN
22 | ;DomainAdminPassword=Password
23 | 
24 | WSUSServer=http://WSUSSERVER:8530
25 | 
26 | DriverSelectionProfile=Nothing
27 | DriverInjectionMode=ALL
28 | DriverGroup001=%Make%\%Model%
29 | DriverGroup002=%Make%\%Version%
30 | 
31 | BDEInstallSupporess=YES
32 | ;BDEInstallSuppress=NO
33 | ;BDEInstall=TPMPin
34 | ;BDEKeyLocation=C:
35 | ;BDEPin=12345678
36 | ;BDERecoveryKey=AD
37 | ;BDEWaitForEncryption=FALSE
38 | 
39 | UILanguage=en-us
40 | UserLocale=en-us
41 | KeyboardLocale=en-us;0409:00000409
42 | TimeZone=004
43 | TimeZoneName=Pacific Standard Time
44 | 
45 | SkipAdminPassword=YES
46 | SkipApplications=YES
47 | SkipAppsOnUpgrade=YES
48 | SkipBDDWelcome=YES
49 | SkipBitLocker=YES
50 | SkipBitLockerDetails=YES
51 | SkipCapture=YES
52 | SkipComputerName=YES
53 | SkipDomainMembership=YES
54 | SkipFinalSummary=NO
55 | SkipLocaleSelection=YES
56 | SkipPackageDisplay=YES
57 | SkipProductKey=YES
58 | SkipRoles=YES
59 | SkipSummary=YES
60 | SkipTaskSequence=NO
61 | SkipTimeZone=YES
62 | SkipUserData=YES
63 | 
64 | UserDataLocation=NONE
65 | FinishAction=
66 | 
67 | DoCapture=NO
68 | ComputerBackupLocation=NETWORK
69 | BackupDir=Captures
70 | BackupFile=%TaskSequenceID%_#month(date) & "-" & day(date) & "-" & year(date)#.wim


--------------------------------------------------------------------------------
/MDT/MDTScripts/AMD64/readme_powercfg.txt:
--------------------------------------------------------------------------------
1 | Place 64bit powercfg.exe from a Windows 10 64bit install (\Windows\System32\) here to change the power scheme to high perf during deployment:
2 | http://blogs.technet.com/b/deploymentguys/archive/2015/03/27/reducing-windows-deployment-time-using-power-management.aspx
3 | 
4 | 
5 | Call from MDT task sequence as a "Run command" step during WinPE to execute (run after "Gather Local" steps):
6 | %SCRIPTROOT%\%PROCESSOR_ARCHITECTURE%\powercfg.exe /s 8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c


--------------------------------------------------------------------------------
/MDT/MDTScripts/ChangeWallpaper.ps1:
--------------------------------------------------------------------------------
 1 | $DeployRoot="\\MDTServer\Build$"
 2 | $ScriptRoot="\\MDTServer\Build$\Scripts"
 3 | $Source="$ScriptRoot\img0.jpg"
 4 | $Destination="C:\Windows\Web\Wallpaper\Windows"
 5 | 
 6 | $Filepath = "C:\Windows\Web\wallpaper\windows"
 7 | $Filename = $Filepath + "\img0.jpg"
 8 | 
 9 | function setaccess
10 | {
11 |     param($FileName)
12 |     &takeown /F $FileName | Out-Null
13 |     $User = [System.Security.Principal.WindowsIdentity]::GetCurrent().User
14 |     $Acl = Get-Acl $FileName
15 |     $Acl.SetOwner($User)
16 |     $AccessRule = New-Object System.Security.AccessControl.FileSystemAccessRule($User, "FullControl", "Allow")
17 |     $User = [System.Security.Principal.WindowsIdentity]::GetCurrent().User
18 |     $Acl.SetAccessRule($AccessRule)
19 |     $Filename = "\\{0}\{1}" -f $env:COMPUTERNAME,($filename -replace ':','$')
20 |     Set-Acl $FileName $Acl
21 | }
22 | 
23 | function Set-Wallpaper
24 | {
25 |     param(
26 |         [Parameter(Mandatory=$true)]
27 |         $Path,
28 |         
29 |         [ValidateSet('Center', 'Stretch')]
30 |         $Style = 'Stretch'
31 |     )
32 |     
33 |     Add-Type @"
34 | using System;
35 | using System.Runtime.InteropServices;
36 | using Microsoft.Win32;
37 | namespace Wallpaper
38 | {
39 | public enum Style : int
40 | {
41 | Center, Stretch
42 | }
43 | public class Setter {
44 | public const int SetDesktopWallpaper = 20;
45 | public const int UpdateIniFile = 0x01;
46 | public const int SendWinIniChange = 0x02;
47 | [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
48 | private static extern int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni);
49 | public static void SetWallpaper ( string path, Wallpaper.Style style ) {
50 | SystemParametersInfo( SetDesktopWallpaper, 0, path, UpdateIniFile | SendWinIniChange );
51 | RegistryKey key = Registry.CurrentUser.OpenSubKey("Control Panel\\Desktop", true);
52 | switch( style )
53 | {
54 | case Style.Stretch :
55 | key.SetValue(@"WallpaperStyle", "2") ; 
56 | key.SetValue(@"TileWallpaper", "0") ;
57 | break;
58 | case Style.Center :
59 | key.SetValue(@"WallpaperStyle", "1") ; 
60 | key.SetValue(@"TileWallpaper", "0") ; 
61 | break;
62 | }
63 | key.Close();
64 | }
65 | }
66 | }
67 | "@
68 |     
69 |     [Wallpaper.Setter]::SetWallpaper( $Path, $Style )
70 | }
71 | 
72 | setaccess $Filename
73 | 
74 | Rename-Item -Path $Filename -NewName "C:\Windows\Web\Wallpaper\Windows\img1.jpg" -Force
75 | Copy-Item -Path $Source -Destination $Destination -Force
76 | 
77 | Set-Wallpaper -Path $Filename


--------------------------------------------------------------------------------
/MDT/MDTScripts/ConfigWin10.ps1:
--------------------------------------------------------------------------------
 1 | <#
 2 | .SYNOPSIS
 3 |     This script reconfigures Windows 10.
 4 | 
 5 | .DESCRIPTION
 6 |     This script makes considerable changes to Windows 10.
 7 | 
 8 |     // *************
 9 |     // *  CAUTION  *
10 |     // *************
11 | 
12 |     THIS SCRIPT MAKES CONSIDERABLE CHANGES TO THE DEFAULT CONFIGURATION OF WINDOWS 10.
13 | 
14 |     Please review this script THOROUGHLY before applying, and disable changes below as necessary to suit your current environment.
15 | 
16 |     This script is provided AS-IS - usage of this source assumes that you are at the very least familiar with PowerShell, and the
17 |     tools used to create and debug this script.
18 | 
19 |     In other words, if you break it, you get to keep the pieces.
20 | 
21 | 
22 | .EXAMPLE
23 |     .\ConfigWin10.ps1
24 | .NOTES
25 |     Author:       Carl Luberti
26 |     Last Update:  18th November 2015
27 |     Version:      1.0.1
28 | .LOG
29 |     1.0.1: Updated for TH2
30 | #>
31 | 
32 | 
33 | # Remove OneDrive (not guaranteed to be permanent - see https://support.office.com/en-US/article/Turn-off-or-uninstall-OneDrive-f32a17ce-3336-40fe-9c38-6efb09f944b0)
34 | # Note - best to run this after installing Office 2013/2016/365, as those may update or reinstall OneDrive:
35 | Write-Host "Removing OneDrive..." -ForegroundColor Yellow
36 | C:\Windows\SysWOW64\OneDriveSetup.exe /uninstall
37 | Start-Sleep -Seconds 30
38 | New-PSDrive -Name HKCR -PSProvider Registry -Root HKEY_CLASSES_ROOT | Out-Null
39 | New-Item -Path 'HKLM:\SOFTWARE\Policies\Microsoft\Windows\' -Name 'Skydrive' | Out-Null
40 | New-ItemProperty -Path 'HKLM:\SOFTWARE\Policies\Microsoft\Windows\Skydrive' -Name 'DisableFileSync' -PropertyType DWORD -Value '1' | Out-Null
41 | New-ItemProperty -Path 'HKLM:\SOFTWARE\Policies\Microsoft\Windows\Skydrive' -Name 'DisableLibrariesDefaultSaveToSkyDrive' -PropertyType DWORD -Value '1' | Out-Null 
42 | Remove-Item -Path 'HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\FolderDescriptions\{A52BBA46-E9E1-435f-B3D9-28DAA648C0F6}' -Recurse
43 | Remove-Item -Path 'HKLM:\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Explorer\FolderDescriptions\{A52BBA46-E9E1-435f-B3D9-28DAA648C0F6}' -Recurse
44 | Set-ItemProperty -Path 'HKCR:\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}' -Name 'System.IsPinnedToNameSpaceTree' -Value '0'
45 | Set-ItemProperty -Path 'HKCR:\Wow6432Node\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}' -Name 'System.IsPinnedToNameSpaceTree' -Value '0'
46 | 
47 | 
48 | # Set PeerCaching to Local Network PCs only (1):
49 | Write-Host "Configuring PeerCaching..." -ForegroundColor Cyan
50 | Set-ItemProperty -Path 'HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\DeliveryOptimization\Config' -Name 'DODownloadMode' -Value '1'
51 | 
52 | 
53 | # Configure Services:
54 | Write-Host "Configuring Network List Service to start Automatic..." -ForegroundColor Green
55 | Set-Service netprofm -StartupType Automatic
56 | 
57 | 
58 | # Disable System Restore
59 | Write-Host "Disabling System Restore..." -ForegroundColor Green
60 | Disable-ComputerRestore -Drive "C:\"
61 | 
62 | 
63 | # Remove Previous Versions:
64 | Write-Host "Removing Previous Versions Capability..." -ForegroundColor Green
65 | Set-ItemProperty -Path 'HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer' -Name 'NoPreviousVersionsPage' -Value '1'
66 | 
67 | 
68 | # Change Explorer Default View to Windows 7 defaults:
69 | Write-Host "Configuring Windows Explorer..." -ForegroundColor Green
70 | New-ItemProperty -Path 'HKCU:\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced' -Name 'LaunchTo' -PropertyType DWORD -Value '1' | Out-Null
71 | 
72 | 
73 | # Configure Search Options:
74 | Write-Host "Configuring Search Options..." -ForegroundColor Green
75 | New-ItemProperty -Path 'HKCU:\SOFTWARE\Microsoft\Windows\CurrentVersion\Search' -Name 'SearchboxTaskbarMode' -PropertyType DWORD -Value '1' | Out-Null


--------------------------------------------------------------------------------
/MDT/MDTScripts/ConfigureIPv6.ps1:
--------------------------------------------------------------------------------
 1 | #Set IPv6 settings to favor IPv4 and disable all transition interfaces
 2 | function New-RegKey {
 3 |   param($key)
 4 |   
 5 |   $key = $key -replace ':',''
 6 |   $parts = $key -split '\\'
 7 |   
 8 |   $tempkey = ''
 9 |   $parts | ForEach-Object {
10 |     $tempkey += ($_ + "\")
11 |     if ( (Test-Path "Registry::$tempkey") -eq $false)  {
12 |       New-Item "Registry::$tempkey" | Out-Null
13 |     }
14 |   }
15 | }
16 | 
17 | $RegPath = "HKLM:\SYSTEM\CurrentControlSet\Services\TCPIP6\Parameters"
18 | New-RegKey $RegPath
19 | New-ItemProperty -Path $RegPath -Name "DisabledComponents" -Value 174 -PropertyType "DWORD" -Force


--------------------------------------------------------------------------------
/MDT/MDTScripts/ConfigureWMI.ps1:
--------------------------------------------------------------------------------
 1 | # Connect to the ProviderHostQuotaConfiguration base class of the root namespace
 2 | $oWMI=get-wmiobject -Namespace root -Class __ProviderHostQuotaConfiguration
 3 | 
 4 | # Set memory per WMI process to a max of 1GB (default is 512MB)
 5 | $oWMI.MemoryPerHost=1024*1024*1024
 6 | 
 7 | # Set max memory in use by WMI across all processes on the same machine to top off at 4GB (default is 1GB)
 8 | $oWMI.MemoryAllHosts=4096*1024*1024
 9 | 
10 | # Commit changes back to the system
11 | $oWMI.put()
12 | 
13 | # Move WMI into the COM Infrastructure startup group - this will improve WMI startup performance
14 | Set-ItemProperty -Path HKLM:\SYSTEM\CurrentControlSet\Services\Winmgmt -Name 'Group' -Value 'COM Infrastructure'
15 | 
16 | # Set WMI to run in it's own svchost process in the event it needs to be debugged or restarted
17 | winmgmt /standalonehost
18 | 


--------------------------------------------------------------------------------
/MDT/MDTScripts/ConfigureWU.ps1:
--------------------------------------------------------------------------------
1 | # Run Windows Update service in a separate svchost process
2 | sc.exe config wuauserv type= own


--------------------------------------------------------------------------------
/MDT/MDTScripts/DisableIEESC.ps1:
--------------------------------------------------------------------------------
1 | # Disable IE Enhanced Security on Server 2012/2012R2
2 | Set-ItemProperty -Path "HKLM:\SOFTWARE\Microsoft\Active Setup\Installed Components\{A509B1A8-37EF-4b3f-8CFC-4F3A74704073}" -Name "IsInstalled" -Value 0
3 | Set-ItemProperty -Path "HKLM:\SOFTWARE\Microsoft\Active Setup\Installed Components\{A509B1A7-37EF-4b3f-8CFC-4F3A74704073}" -Name "IsInstalled" -Value 0


--------------------------------------------------------------------------------
/MDT/MDTScripts/DisableServerManager.ps1:
--------------------------------------------------------------------------------
 1 | #Disable Server Manager from opening at logon globally
 2 | function New-RegKey {
 3 |   param($key)
 4 |   
 5 |   $key = $key -replace ':',''
 6 |   $parts = $key -split '\\'
 7 |   
 8 |   $tempkey = ''
 9 |   $parts | ForEach-Object {
10 |     $tempkey += ($_ + "\")
11 |     if ( (Test-Path "Registry::$tempkey") -eq $false)  {
12 |       New-Item "Registry::$tempkey" | Out-Null
13 |     }
14 |   }
15 | }
16 | 
17 | $RegPath = "HKLM:\SOFTWARE\Microsoft\ServerManager"
18 | New-RegKey $RegPath
19 | New-ItemProperty -Path $RegPath -Name "DoNotOpenServerManagerAtLogon" -Value 1 -PropertyType "DWORD" -Force


--------------------------------------------------------------------------------
/MDT/MDTScripts/DisableWUService.ps1:
--------------------------------------------------------------------------------
1 | sc.exe config wuauserv start= disabled


--------------------------------------------------------------------------------
/MDT/MDTScripts/EnableMSUpdate.ps1:
--------------------------------------------------------------------------------
1 | #Enable Microsoft Update provider
2 | $MicrosoftUpdate = New-Object -ComObject Microsoft.Update.ServiceManager -Strict
3 | $MicrosoftUpdate.AddService2("7971f918-a847-4430-9279-4a52d1efe18d",7,"")


--------------------------------------------------------------------------------
/MDT/MDTScripts/EnableRDP.ps1:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/cluberti/MDT/266d6c51b385e6c2643af6f33a2640b2be2b9f0a/MDT/MDTScripts/EnableRDP.ps1


--------------------------------------------------------------------------------
/MDT/MDTScripts/EnableWUService.ps1:
--------------------------------------------------------------------------------
1 | sc.exe config wuauserv start= auto


--------------------------------------------------------------------------------
/MDT/MDTScripts/Settings.xml:
--------------------------------------------------------------------------------
 1 | <Settings>
 2 |   <Version>True</Version>
 3 |   <Description>Build Share</Description>
 4 |   <Comments>
 5 |   </Comments>
 6 |   <EnableMulticast>False</EnableMulticast>
 7 |   <SupportX86>True</SupportX86>
 8 |   <SupportX64>True</SupportX64>
 9 |   <UNCPath>\\MDTServer\Build$</UNCPath>
10 |   <PhysicalPath>X:\_Build</PhysicalPath>
11 |   <MonitorHost>
12 |   </MonitorHost>
13 |   <MonitorEventPort>9800</MonitorEventPort>
14 |   <MonitorDataPort>9801</MonitorDataPort>
15 |   <SkipWimSplit>True</SkipWimSplit>
16 |   <Boot.x86.UseBootWim>True</Boot.x86.UseBootWim>
17 |   <Boot.x86.ScratchSpace>32</Boot.x86.ScratchSpace>
18 |   <Boot.x86.IncludeAllDrivers>False</Boot.x86.IncludeAllDrivers>
19 |   <Boot.x86.IncludeNetworkDrivers>True</Boot.x86.IncludeNetworkDrivers>
20 |   <Boot.x86.IncludeMassStorageDrivers>True</Boot.x86.IncludeMassStorageDrivers>
21 |   <Boot.x86.IncludeVideoDrivers>False</Boot.x86.IncludeVideoDrivers>
22 |   <Boot.x86.IncludeSystemDrivers>False</Boot.x86.IncludeSystemDrivers>
23 |   <Boot.x86.BackgroundFile>%INSTALLDIR%\Samples\Background.bmp</Boot.x86.BackgroundFile>
24 |   <Boot.x86.ExtraDirectory>
25 |   </Boot.x86.ExtraDirectory>
26 |   <Boot.x86.GenerateGenericWIM>False</Boot.x86.GenerateGenericWIM>
27 |   <Boot.x86.GenerateGenericISO>False</Boot.x86.GenerateGenericISO>
28 |   <Boot.x86.GenericWIMDescription>Generic Windows PE (x86)</Boot.x86.GenericWIMDescription>
29 |   <Boot.x86.GenericISOName>Generic_x86.iso</Boot.x86.GenericISOName>
30 |   <Boot.x86.GenerateLiteTouchISO>False</Boot.x86.GenerateLiteTouchISO>
31 |   <Boot.x86.LiteTouchWIMDescription>Lite Touch Windows PE (x86)</Boot.x86.LiteTouchWIMDescription>
32 |   <Boot.x86.LiteTouchISOName>LiteTouchPE_x86.iso</Boot.x86.LiteTouchISOName>
33 |   <Boot.x86.SelectionProfile>Nothing</Boot.x86.SelectionProfile>
34 |   <Boot.x86.SupportUEFI>True</Boot.x86.SupportUEFI>
35 |   <Boot.x86.FeaturePacks>winpe-mdac</Boot.x86.FeaturePacks>
36 |   <Boot.x64.UseBootWim>True</Boot.x64.UseBootWim>
37 |   <Boot.x64.ScratchSpace>32</Boot.x64.ScratchSpace>
38 |   <Boot.x64.IncludeAllDrivers>False</Boot.x64.IncludeAllDrivers>
39 |   <Boot.x64.IncludeNetworkDrivers>True</Boot.x64.IncludeNetworkDrivers>
40 |   <Boot.x64.IncludeMassStorageDrivers>True</Boot.x64.IncludeMassStorageDrivers>
41 |   <Boot.x64.IncludeVideoDrivers>False</Boot.x64.IncludeVideoDrivers>
42 |   <Boot.x64.IncludeSystemDrivers>False</Boot.x64.IncludeSystemDrivers>
43 |   <Boot.x64.BackgroundFile>%INSTALLDIR%\Samples\Background.bmp</Boot.x64.BackgroundFile>
44 |   <Boot.x64.ExtraDirectory>
45 |   </Boot.x64.ExtraDirectory>
46 |   <Boot.x64.GenerateGenericWIM>False</Boot.x64.GenerateGenericWIM>
47 |   <Boot.x64.GenerateGenericISO>False</Boot.x64.GenerateGenericISO>
48 |   <Boot.x64.GenericWIMDescription>Generic Windows PE (x64)</Boot.x64.GenericWIMDescription>
49 |   <Boot.x64.GenericISOName>Generic_x64.iso</Boot.x64.GenericISOName>
50 |   <Boot.x64.GenerateLiteTouchISO>False</Boot.x64.GenerateLiteTouchISO>
51 |   <Boot.x64.LiteTouchWIMDescription>Lite Touch Windows PE (x64)</Boot.x64.LiteTouchWIMDescription>
52 |   <Boot.x64.LiteTouchISOName>LiteTouchPE_x64.iso</Boot.x64.LiteTouchISOName>
53 |   <Boot.x64.SelectionProfile>Nothing</Boot.x64.SelectionProfile>
54 |   <Boot.x64.SupportUEFI>True</Boot.x64.SupportUEFI>
55 |   <Boot.x64.FeaturePacks>winpe-mdac</Boot.x64.FeaturePacks>
56 |   <Database.SQLServer>
57 |   </Database.SQLServer>
58 |   <Database.Instance>
59 |   </Database.Instance>
60 |   <Database.Port>
61 |   </Database.Port>
62 |   <Database.Netlib>
63 |   </Database.Netlib>
64 |   <Database.Name>
65 |   </Database.Name>
66 |   <Database.SQLShare>
67 |   </Database.SQLShare>
68 | </Settings>


--------------------------------------------------------------------------------
/MDT/MDTScripts/UACSettings.ps1:
--------------------------------------------------------------------------------
 1 | #Set UAC parameters - no prompt for Admin, unfilter Admin tokens for remote admin tasks
 2 | function New-RegKey {
 3 |   param($key)
 4 |   
 5 |   $key = $key -replace ':',''
 6 |   $parts = $key -split '\\'
 7 |   
 8 |   $tempkey = ''
 9 |   $parts | ForEach-Object {
10 |     $tempkey += ($_ + "\")
11 |     if ( (Test-Path "Registry::$tempkey") -eq $false)  {
12 |       New-Item "Registry::$tempkey" | Out-Null
13 |     }
14 |   }
15 | }
16 | 
17 | $RegPath = "HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System"
18 | New-RegKey $RegPath
19 | New-ItemProperty -Path $RegPath -Name "ConsentPromptBehaviorAdmin" -Value 0 -PropertyType "DWORD" -Force
20 | New-ItemProperty -Path $RegPath -Name "LocalAccountTokenFilterPolicy" -Value 1 -PropertyType "DWORD" -Force


--------------------------------------------------------------------------------
/MDT/MDTScripts/X86/readme_powercfg.txt:
--------------------------------------------------------------------------------
1 | Place 32bit powercfg.exe from a Windows 10 64bit install (\Windows\SysWOW64\) here to change the power scheme to high perf during deployment:
2 | http://blogs.technet.com/b/deploymentguys/archive/2015/03/27/reducing-windows-deployment-time-using-power-management.aspx
3 | 
4 | 
5 | Call from MDT task sequence as a "Run command" step during WinPE to execute (run after "Gather Local" steps):
6 | %SCRIPTROOT%\%PROCESSOR_ARCHITECTURE%\powercfg.exe /s 8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c


--------------------------------------------------------------------------------
/MDT/MDTScripts/ZTIGather.wsf:
--------------------------------------------------------------------------------
   1 | <job id="ZTIGather">
   2 | 	<script language="VBScript" src="ZTIUtility.vbs"/>
   3 | 	<script language="VBScript" src="ZTIDataAccess.vbs"/>
   4 | 	<script language="VBScript">
   5 | 
   6 | ' // ***************************************************************************
   7 | ' // 
   8 | ' // Copyright (c) Microsoft Corporation.  All rights reserved.
   9 | ' // 
  10 | ' // Microsoft Deployment Toolkit Solution Accelerator
  11 | ' //
  12 | ' // File:      ZTIGather.wsf
  13 | ' // 
  14 | ' // Version:   6.3.8298.1000
  15 | ' // 
  16 | ' // Purpose:   Gather information and process rules controlling deployment
  17 | ' //            process.
  18 | ' // 
  19 | ' // Usage:     cscript.exe [//nologo] ZTIGather.wsf [/debug:true] [/localonly]
  20 | ' //
  21 | ' //     cluberti - 4/16/2015 - add sVersion
  22 | ' //     Required to Capture Make\Model via WMI on some systems that use Version
  23 | ' //     instead of Name in Win32_ComputerSystemProduct to store the model type
  24 | ' //     (%Make%\%Version%)
  25 | ' // 
  26 | ' // ***************************************************************************
  27 | 
  28 | Option Explicit
  29 | RunNewInstance
  30 | 
  31 | 
  32 | '//----------------------------------------------------------------------------
  33 | '//  Global Constants
  34 | '//----------------------------------------------------------------------------
  35 | 
  36 | Public Const iDRVariant = 200
  37 | Public Const iDRMaxChar = 255
  38 | 
  39 | Public Const sSectionSettings = "Settings"
  40 | Public Const sSectionDefaultGateway = "DefaultGateway"
  41 | 
  42 | 
  43 | '//----------------------------------------------------------------------------
  44 | '//  Main Class
  45 | '//----------------------------------------------------------------------------
  46 | 
  47 | Class ZTIGather
  48 | 
  49 | 	Dim iRetVal
  50 | 	Dim bSkip
  51 | 	Dim sIniFile
  52 | 	Dim dicProperties, dicLists, dicOverwrite
  53 | 	Dim bLocalOnly
  54 | 
  55 | 
  56 | 	'//----------------------------------------------------------------------------
  57 | 	'//  Constructor to initialize needed objects
  58 | 	'//----------------------------------------------------------------------------
  59 | 
  60 | 	Private Sub Class_Initialize
  61 | 
  62 | 
  63 | 		'//----------------------------------------------------------------------------
  64 | 		'//  Create dictionary objects
  65 | 		'//----------------------------------------------------------------------------
  66 | 
  67 | 		oLogging.CreateEntry "------------------------- Object Initialization -------------------------", LogTypeInfo
  68 | 
  69 | 		Set dicProperties = CreateObject("Scripting.Dictionary")
  70 | 		dicProperties.CompareMode = TextCompare
  71 | 
  72 | 		Set dicLists = CreateObject("Scripting.Dictionary")
  73 | 		dicLists.CompareMode = TextCompare
  74 | 
  75 | 		Set dicOverwrite = CreateObject("Scripting.Dictionary")
  76 | 		dicOverwrite.CompareMode = TextCompare
  77 | 
  78 | 	End Sub
  79 | 
  80 | 
  81 | 	'//----------------------------------------------------------------------------
  82 | 	'//  Main routine
  83 | 	'//----------------------------------------------------------------------------
  84 | 
  85 | 	Function Main
  86 | 
  87 | 		oLogging.CreateEntry "------------------------- Initialization -------------------------", LogTypeInfo
  88 | 
  89 | 		oLogging.ReportProgress "Initializing.", 1
  90 | 
  91 | 		'//----------------------------------------------------------------------------
  92 | 		'//  Make sure the environment is in sync
  93 | 		'//----------------------------------------------------------------------------
  94 | 	
  95 | 		SyncEnvironment
  96 | 
  97 | 
  98 | 		'//----------------------------------------------------------------------------
  99 | 		'//  Get information about the machine and OS (unless skipped)
 100 | 		'//----------------------------------------------------------------------------
 101 | 
 102 | 		If not oUtility.Arguments.Exists("nolocalonly") then
 103 | 
 104 | 			oLogging.ReportProgress "Getting local computer information: Operating system", 10
 105 | 			iRetVal = GetOSVersion
 106 | 			TestAndLog iRetVal, "GetOSVersion for Gather process"
 107 | 
 108 | 			oLogging.ReportProgress "Getting local computer information: HAL", 15
 109 | 			iRetVal = GetHAL
 110 | 			TestAndLog iRetVal , "GetHAL for Gather process"
 111 | 
 112 | 			oLogging.ReportProgress "Getting local computer information: Networking", 20
 113 | 			iRetVal = GetNetworkInfo
 114 | 			TestAndLog iRetVal , "GetNetworkInfo for Gather process"
 115 | 
 116 | 			oLogging.ReportProgress "Getting local computer information: Distribution point", 25
 117 | 			iRetVal = GetDP
 118 | 			TestAndLog iRetVal , "GetDP for Gather process"
 119 | 
 120 | 			oLogging.ReportProgress "Getting local computer information: Windows Deployment Services", 30
 121 | 			iRetVal = GetWDS
 122 | 			TestAndLog iRetVal ,"GetWDS for Gather process"
 123 | 
 124 | 			oLogging.ReportProgress "Getting local computer information: Host name", 30
 125 | 			iRetVal = GetHostName
 126 | 			TestAndLog iRetVal , "GetHostName for Gather process"
 127 | 
 128 | 			oLogging.ReportProgress "Getting local computer information: Asset information", 30
 129 | 			iRetVal = GetAssetInfo
 130 | 			TestAndLog iRetVal ,"GetAssetInfo for Gather process"
 131 | 
 132 | 			oLogging.ReportProgress "Getting local computer information: Operating system", 35
 133 | 			iRetVal = GetOSSKU
 134 | 			TestAndLog iRetVal ,"GetOSSKU for Gather process"
 135 | 			
 136 | 			oLogging.ReportProgress "Getting local computer information: Operating system", 40
 137 | 			iRetVal = GetCurrentOSInfo
 138 | 			TestAndLog iRetVal ,"GetCurrentOSInfo for Gather process"
 139 | 			
 140 | 			oLogging.ReportProgress "Getting local computer information: Virtualization", 45
 141 | 			On Error Resume Next
 142 | 			iRetVal = GetVirtualizationInfo
 143 | 			TestAndLog iRetVal ,"GetVirtualizationInfo for Gather process"
 144 | 			On Error Goto 0
 145 | 
 146 | 			oLogging.ReportProgress "Getting local computer information: BitLocker", 48
 147 | 			On Error Resume Next
 148 | 			iRetVal = GetBitLockerInfo
 149 | 			TestAndLog iRetVal ,"GetBitLockerInfo for Gather process"
 150 | 			On Error Goto 0
 151 | 
 152 | 		Else
 153 | 			oLogging.CreateEntry "Skipping local settings gathering because it has already been done.", LogTypeInfo
 154 | 		End if
 155 | 
 156 | 
 157 | 		'//----------------------------------------------------------------------------
 158 | 		'//  Send a discovery event
 159 | 		'//----------------------------------------------------------------------------
 160 | 
 161 | 		oLogging.CreateEvent 41000, LogTypeInfo, "Processing the " & oEnvironment.Item("Phase") & " phase.", oLogging.GetDiscoveryArray
 162 | 
 163 | 
 164 | 		'//----------------------------------------------------------------------------
 165 | 		'//  Check if localonly was specified
 166 | 		'//----------------------------------------------------------------------------
 167 | 
 168 | 		If oUtility.Arguments.Exists("localonly") or UCase(oEnvironment.Item("GatherLocalOnly")) = "TRUE" then
 169 | 
 170 | 			oLogging.CreateEntry "Only gathering local settings (no rules processing).", LogTypeInfo
 171 | 			bLocalOnly = true
 172 | 
 173 | 		Else
 174 | 			bLocalOnly = false
 175 | 		End if
 176 | 
 177 | 
 178 | 		'//----------------------------------------------------------------------------
 179 | 		'//  Determine what INI file to use
 180 | 		'//----------------------------------------------------------------------------
 181 | 
 182 | 		sIniFile = LocateIni
 183 | 		If sIniFile = "" and (not bLocalOnly) then
 184 | 			oLogging.ReportProgress "Gathering complete, but no INI file found.", 100
 185 | 			If oUtility.Arguments.Exists("optional") then
 186 | 				oLogging.CreateEntry "Unable to find optional rules INI file, rc = " & iRetVal & ", exiting", LogTypeInfo
 187 | 				Main = 0
 188 | 			Else
 189 | 				oLogging.CreateEntry "Unable to find rules INI file, rc = " & iRetVal, LogTypeError
 190 | 				Main = 8000
 191 | 			End if
 192 | 			EXIT FUNCTION
 193 | 		End if
 194 | 
 195 | 
 196 | 		'//----------------------------------------------------------------------------
 197 | 		'//  Process rules and save results
 198 | 		'//----------------------------------------------------------------------------
 199 | 
 200 | 
 201 | 		If not bLocalOnly then
 202 | 
 203 | 			oLogging.ReportProgress "Processing rules.", 50
 204 | 
 205 | 
 206 | 			' Gather properties
 207 | 
 208 | 			iRetVal = GetProperties(sIniFile, sSectionSettings)
 209 | 
 210 | 
 211 | 			' Process rules
 212 | 
 213 | 			iRetVal = ProcessRules(sIniFile, sSectionSettings)
 214 | 			If iRetVal <> Success then
 215 | 				oLogging.CreateEntry "ERROR processing Ini settings.  No further processing.", LogTypeError
 216 | 				Main = iRetVal
 217 | 				EXIT FUNCTION
 218 | 			End if
 219 | 
 220 | 
 221 | 			' If an event service was specified ask for settings
 222 | 
 223 | 			If oEnvironment.Item("EventService") <> "" then
 224 | 				If oEnvironment.Item("LTIGUID") = "" then
 225 | 					oLogging.CreateEvent 41000, LogTypeInfo, "Identifying the client.", oLogging.GetDiscoveryArray
 226 | 				End if
 227 | 				QueryWebService ""
 228 | 			End if
 229 | 
 230 | 		Else
 231 | 
 232 | 			oLogging.CreateEntry "Skipping rules processing.", LogTypeInfo
 233 | 			iRetVal = Success
 234 | 
 235 | 		End if
 236 | 
 237 | 
 238 | 		'//----------------------------------------------------------------------------
 239 | 		'//  Verify OSDComputerName is set for ConfigMgr deployments
 240 | 		'//----------------------------------------------------------------------------
 241 | 
 242 | 		If oEnvironment.Item("DeploymentMethod") = "SCCM" and oEnvironment.Item("OSDComputerName") = "" Then
 243 | 			oEnvironment.Item("OSDComputerName") = oEnvironment.Item("_SMSTSMACHINENAME")
 244 | 		End If
 245 | 
 246 | 
 247 | 		'//----------------------------------------------------------------------------
 248 | 		'//  Remap variables
 249 | 		'//----------------------------------------------------------------------------
 250 | 
 251 | 		RemapVariables
 252 | 
 253 | 
 254 | 		' All done
 255 | 
 256 | 		oLogging.ReportProgress "Gathering complete.", 100
 257 | 
 258 | 		Main = Success
 259 | 
 260 | 
 261 | 	End Function
 262 | 
 263 | 
 264 | 	'//----------------------------------------------------------------------------
 265 | 	'//  Routines for getting information about the local machine
 266 | 	'//----------------------------------------------------------------------------
 267 | 
 268 | 
 269 | 	'//---------------------------------------------------------------------------
 270 | 	'//  Function:	GetOSVersion()
 271 | 	'//  Purpose:	Determine what OS is being used
 272 | 	'//---------------------------------------------------------------------------
 273 | 	Function GetOSVersion
 274 | 
 275 | 		Dim iRetVal, sOSCurrentVersion, sOSCurrentBuild, sCurrentBuildNumber, sProductType, sOSVersion
 276 | 		Dim bIsServerOS, bIsServerCoreOS, oInstances, oInstance
 277 | 
 278 | 
 279 | 		oLogging.CreateEntry "Getting OS info", LogTypeInfo
 280 | 
 281 | 
 282 | 		' Initialization
 283 | 
 284 | 		iRetVal = Success
 285 | 		bIsServerOS = False
 286 | 		bIsServerCoreOS = False
 287 | 
 288 | 
 289 | 		' Make sure WMI is available
 290 | 
 291 | 		If objWMI is Nothing then
 292 | 			oLogging.CreateEntry "Unable to obtain OS details since WMI is unavailable.", LogTypeError
 293 | 			GetOSVersion = 8001
 294 | 			Exit Function
 295 | 		End if
 296 | 
 297 | 
 298 | 		' Get the current OS version and build from WMI
 299 | 
 300 | 		Set oInstances = objWMI.ExecQuery("select * from Win32_OperatingSystem")
 301 | 		For Each oInstance In oInstances
 302 | 			sOSCurrentVersion = oInstance.Version
 303 | 			sOSCurrentBuild = oInstance.BuildNumber
 304 | 		Next
 305 | 		oEnvironment.Item("OSCurrentVersion") = sOSCurrentVersion 
 306 | 		oEnvironment.Item("OSCurrentBuild") = sOSCurrentBuild
 307 | 
 308 | 
 309 | 		' For WinPE (which reports itself as "XP"), look for a registry key
 310 | 
 311 | 		If KeyExists("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\MiniNT\") then
 312 | 			sOSVersion = "WinPE"
 313 | 		End if
 314 | 
 315 | 
 316 | 		' Check the version we are running
 317 | 
 318 | 		If sOSVersion = "WinPE" then
 319 | 			bIsServerOS = False
 320 | 			bIsServerCoreOS = False
 321 | 		Else
 322 | 
 323 | 			' Check for server core by seeing if Explorer.exe is missing
 324 | 
 325 | 			If not oFSO.FileExists(oEnv("WINDIR") & "\Explorer.exe") and sOSVersion <> "WinPE" then
 326 | 				bIsServerCoreOS = true
 327 | 			End if
 328 | 
 329 | 
 330 | 			' Get the current build number from the registry
 331 | 
 332 | 			sCurrentBuildNumber = oShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentBuildNumber")
 333 | 
 334 | 
 335 | 			' Check the product type
 336 | 
 337 | 			sProductType = oShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions\ProductType")
 338 | 			If Err then
 339 | 				oLogging.CreateEntry "WARNING - Unexpected error checking ProductType registry key: " & Err.Description & " (" & Err.Number & ")", LogTypeWarning
 340 | 			ElseIf sProductType = "ServerNT" or sProductType = "LanmanNT" then
 341 | 				bIsServerOS = True
 342 | 			End if
 343 | 			Err.Clear
 344 | 
 345 | 
 346 | 			Select Case sCurrentBuildNumber
 347 | 			Case "1381"
 348 | 				sOSVersion = "NT"
 349 | 			Case "2195"
 350 | 				sOSVersion = "2000"
 351 | 			Case "2600"
 352 | 				sOSVersion = "XP"
 353 | 			Case "3790"
 354 | 				sOSVersion = "2003"
 355 | 			Case Else
 356 | 				
 357 | 				oUtility.GetMajorMinorVersion(sOSCurrentVersion)
 358 | 				If oUtility.VersionMajor = 6 and oUtility.VersionMinor = 1  Then
 359 | 					If bIsServerOS then
 360 | 						sOSVersion = "2008R2"
 361 | 					Else
 362 | 						sOSVersion = "Win7Client"
 363 | 					End if
 364 | 				ElseIf oUtility.VersionMajor = 6 and oUtility.VersionMinor = 0  Then
 365 | 					If bIsServerOS then
 366 | 						sOSVersion = "2008"
 367 | 					Else
 368 | 						sOSVersion = "Vista"
 369 | 					End if
 370 | 				Else
 371 | 					oLogging.CreateEntry "Unknown operating system build number " & sCurrentBuildNumber & " found, setting OSVersion to 'Other'.", LogTypeInfo
 372 | 					sOSVersion = "Other"
 373 | 				End if
 374 | 			End Select
 375 | 
 376 | 		End if
 377 | 
 378 | 		oEnvironment.Item("OSVersion") = sOSVersion
 379 | 		oEnvironment.Item("IsServerOS") = oUtility.ConvertBooleanToString(bIsServerOS)
 380 | 		oEnvironment.Item("IsServerCoreOS") = oUtility.ConvertBooleanToString(bIsServerCoreOS)
 381 | 
 382 | 		oLogging.CreateEntry "Finished getting OS info", LogTypeInfo
 383 | 
 384 | 		GetOSVersion = iRetVal
 385 | 
 386 | 	End function
 387 | 
 388 | 
 389 | 	'//---------------------------------------------------------------------------
 390 | 	'//  Function:	GetAssetInfo()
 391 | 	'//  Purpose:	Get asset information using WMI
 392 | 	'//---------------------------------------------------------------------------
 393 | 	Function GetAssetInfo
 394 | 
 395 | 
 396 | 	 	Dim bIsLaptop, bIsDesktop, bIsServer, bOnBattery, bFoundBattery, bFoundAC
 397 | 	'// cluberti - 4/16/2015 - add sVersion
 398 | 	'// Required to Capture Make\Model via WMI on some systems that use Version instead of Name in
 399 | 	'// Win32_ComputerSystemProduct to store the model type (%Make%\%Version%)
 400 | 		Dim sAssetTag, sSerialNumber, sMake, sModel, sProduct, sUUID, sVersion, sMemory, sArchitecture, sProcessorSpeed, sCapableArchitecture
 401 | 	'//
 402 | 	'// End
 403 | 	'//
 404 | 
 405 | 		Dim objResults, objInstance
 406 | 		Dim i
 407 | 		Dim bisX64, bIsUEFI, bSupportsSLAT, bSupportsX64, bSupportsX86
 408 | 
 409 | 
 410 | 		oLogging.CreateEntry "Getting asset info", LogTypeInfo
 411 | 
 412 | 
 413 | 		' Get the SMBIOS asset tag from the Win32_SystemEnclosure class
 414 | 
 415 | 		Set objResults = objWMI.InstancesOf("Win32_SystemEnclosure")
 416 | 		bIsLaptop = false
 417 | 		bIsDesktop = false
 418 | 		bIsServer = false
 419 | 		For each objInstance in objResults
 420 | 
 421 | 			If objInstance.ChassisTypes(0) = 12 or objInstance.ChassisTypes(0) = 21 then
 422 | 				' Ignore docking stations
 423 | 			Else
 424 | 
 425 | 				If not IsNull(objInstance.SMBIOSAssetTag) then
 426 | 					sAssetTag = Trim(objInstance.SMBIOSAssetTag)
 427 | 				End if
 428 | 				Select Case objInstance.ChassisTypes(0)
 429 | 				Case "8", "9", "10", "11", "12", "14", "18", "21"
 430 | 					bIsLaptop = true
 431 | 				Case "3", "4", "5", "6", "7", "15", "16"
 432 | 					bIsDesktop = true
 433 | 				Case "23"
 434 | 					bIsServer = true
 435 | 				Case Else
 436 | 					' Do nothing
 437 | 				End Select
 438 | 
 439 | 			End if
 440 | 
 441 | 		Next
 442 | 		If sAssetTag = "" then
 443 | 			oLogging.CreateEntry "Unable to determine asset tag via WMI.", LogTypeInfo
 444 | 		End if
 445 | 
 446 | 
 447 | 		' Get the serial number from the Win32_BIOS class.
 448 | 
 449 | 		Set objResults = objWMI.InstancesOf("Win32_BIOS")
 450 | 		For each objInstance in objResults
 451 | 
 452 | 	                ' Get the serial number
 453 | 
 454 | 			If not IsNull(objInstance.SerialNumber) then
 455 | 				sSerialNumber = Trim(objInstance.SerialNumber)
 456 | 			End if
 457 | 
 458 | 		Next
 459 | 		If sSerialNumber = "" then
 460 | 			oLogging.CreateEntry "Unable to determine serial number via WMI.", LogTypeInfo
 461 | 		End if
 462 | 
 463 | 
 464 | 		' Figure out the architecture from the environment
 465 | 
 466 | 		If oEnv("PROCESSOR_ARCHITEW6432") <> "" then
 467 | 			If UCase(oEnv("PROCESSOR_ARCHITEW6432")) = "AMD64" then
 468 | 				sArchitecture = "X64"
 469 | 			Else
 470 | 				sArchitecture = UCase(oEnv("PROCESSOR_ARCHITEW6432"))
 471 | 			End if
 472 | 		ElseIf UCase(oEnv("PROCESSOR_ARCHITECTURE")) = "AMD64" then
 473 | 			sArchitecture = "X64"
 474 | 		Else
 475 | 			sArchitecture = UCase(oEnv("PROCESSOR_ARCHITECTURE"))
 476 | 		End if
 477 | 		
 478 | 		
 479 | 
 480 | 		' Get the processor speed from the Win32_Processor class.
 481 | 
 482 | 		bSupportsX86 = false
 483 | 		bSupportsX64 = false
 484 | 		bSupportsSLAT = false
 485 | 		Set objResults = objWMI.InstancesOf("Win32_Processor")
 486 | 		For each objInstance in objResults
 487 | 
 488 | 			' Get the processor speed
 489 | 
 490 | 			If not IsNull(objInstance.MaxClockSpeed) then
 491 | 				sProcessorSpeed = Trim(objInstance.MaxClockSpeed)
 492 | 			End if
 493 | 
 494 | 
 495 | 			' Determine if the machine supports SLAT (only supported with Windows 8)
 496 | 
 497 | 			On Error Resume Next
 498 | 			bSupportsSLAT = objInstance.SecondLevelAddressTranslationExtensions
 499 | 			On Error Goto 0
 500 | 			
 501 | 
 502 | 			' Get the capable architecture
 503 | 
 504 | 			If not IsNull(objInstance.Architecture) then
 505 | 				Select Case objInstance.Architecture
 506 | 				Case 0
 507 | 			
 508 | 					' If the processor is running a x86 OS, then there is *Still* the possibility that it can 
 509 | 					' support a x64 OS. We need to run a quick processor check to see if it supports x64.
 510 | 
 511 | 					bisX64 = FALSE
 512 | 					On Error Resume Next
 513 | 					bisX64 = oUtility.BDDUtility.Is64Bit
 514 | 					On Error Goto 0
 515 | 
 516 | 					If bisX64 = TRUE then
 517 | 						sCapableArchitecture = "AMD64 X64 X86"
 518 | 						bSupportsX86 = true
 519 | 						bSupportsX64 = true
 520 | 					Else
 521 | 						sCapableArchitecture = "X86"
 522 | 						bSupportsX86 = true
 523 | 					End if
 524 | 
 525 | 				Case 6
 526 | 					sCapableArchitecture = "IA64"
 527 | 				Case 9
 528 | 					sCapableArchitecture = "AMD64 X64 X86"
 529 | 					bSupportsX86 = true
 530 | 					bSupportsX64 = true
 531 | 				Case Else
 532 | 					SCapableArchitecture = "Unknown"
 533 | 				End Select
 534 | 			End if
 535 | 
 536 | 
 537 | 			' Stop after first processor since all should match
 538 | 
 539 | 			Exit For
 540 | 
 541 | 		Next
 542 | 		If sProcessorSpeed = "" then
 543 | 			oLogging.CreateEntry "Unable to determine processor speed via WMI.", LogTypeInfo
 544 | 		End if
 545 | 		If sCapableArchitecture = "" then
 546 | 			oLogging.CreateEntry "Unable to determine capable architecture via WMI.", LogTypeInfo
 547 | 		End if
 548 | 
 549 | 
 550 | 		' Get the make, model, and memory from the Win32_ComputerSystem class
 551 | 
 552 | 		Set objResults = objWMI.InstancesOf("Win32_ComputerSystem")
 553 | 		For each objInstance in objResults
 554 | 
 555 | 			If not IsNull(objInstance.Manufacturer) then
 556 | 				sMake = Trim(objInstance.Manufacturer)
 557 | 			End if
 558 | 			If not IsNull(objInstance.Model) then
 559 | 				sModel = Trim(objInstance.Model)
 560 | 			End if
 561 | 			If not IsNull(objInstance.TotalPhysicalMemory) then
 562 | 				sMemory = Trim(Int(objInstance.TotalPhysicalMemory / 1024 / 1024))
 563 | 			End if
 564 | 
 565 | 		Next
 566 | 		If sMake = "" then
 567 | 			oLogging.CreateEntry "Unable to determine make via WMI.", LogTypeInfo
 568 | 		End if
 569 | 		If sModel = "" then
 570 | 			oLogging.CreateEntry "Unable to determine model via WMI.", LogTypeInfo
 571 | 		End if
 572 | 
 573 | 
 574 | 		' Get the UUID from the Win32_ComputerSystemProduct class
 575 | 
 576 | 		Set objResults = objWMI.InstancesOf("Win32_ComputerSystemProduct")
 577 | 		For each objInstance in objResults
 578 | 
 579 | 			If not IsNull(objInstance.UUID) then
 580 | 				sUUID = Trim(objInstance.UUID)
 581 | 			End if
 582 | 
 583 | 		Next
 584 | 		If sUUID = "" then
 585 | 			oLogging.CreateEntry "Unable to determine UUID via WMI.", LogTypeInfo
 586 | 		End if
 587 | 
 588 | 
 589 | 	'// cluberti - 4/16/2015 - add sVersion
 590 | 	'// Required to Capture Make\Model via WMI on some systems that use Version instead of Name in
 591 | 	'// Win32_ComputerSystemProduct to store the model type (%Make%\%Version%)
 592 | 		' Get the Version from the Win32_ComputerSystemProduct class
 593 | 
 594 | 		Set objResults = objWMI.InstancesOf("Win32_ComputerSystemProduct")
 595 | 		For each objInstance in objResults
 596 | 
 597 | 			If not IsNull(objInstance.Version) then
 598 | 				sVersion = Trim(objInstance.Version)
 599 | 			End if
 600 | 
 601 | 		Next
 602 | 		If sVersion = "" then
 603 | 			oLogging.CreateEntry "Unable to determine Win32_CSProduct Version (Version make\model detection) via WMI.", LogTypeInfo
 604 | 		End if
 605 | 	'//
 606 | 	'// End
 607 | 	'//
 608 | 
 609 | 
 610 | 		' Get the product from the Win32_BaseBoard class
 611 | 
 612 | 		Set objResults = objWMI.InstancesOf("Win32_BaseBoard")
 613 | 		For each objInstance in objResults
 614 | 
 615 | 			If not IsNull(objInstance.Product) then
 616 | 				sProduct = Trim(objInstance.Product)
 617 | 			End if
 618 | 
 619 | 		Next
 620 | 		If sProduct = "" then
 621 | 			oLogging.CreateEntry "Unable to determine product via WMI.", LogTypeInfo
 622 | 		End if
 623 | 
 624 | 
 625 | 		' Determine if we are running UEFI
 626 | 
 627 | 		bIsUEFI = FALSE
 628 | 		On Error Resume Next
 629 | 		bIsUEFI = oUtility.BDDUtility.IsUEFI
 630 | 		On Error Goto 0
 631 | 
 632 | 
 633 | 		' See if we are running on battery
 634 | 
 635 | 		If oEnv("SystemDrive") = "X:" and oFSO.FileExists("X:\Windows\Inf\Battery.inf") then
 636 | 			
 637 | 			' Load the battery driver
 638 | 
 639 | 			oShell.Run "drvload X:\Windows\Inf\Battery.inf", 0, true
 640 | 			
 641 | 		End if
 642 | 
 643 | 		bFoundAC = False
 644 | 		bFoundBattery = False
 645 | 		Set objResults = objWMI.InstancesOf("Win32_Battery")
 646 | 		For each objInstance in objResults
 647 | 			bFoundBattery = True
 648 | 			If objInstance.BatteryStatus = 2 then
 649 | 				bFoundAC = True
 650 | 			End if 
 651 | 		Next
 652 | 		If bFoundBattery and (not bFoundAC) then
 653 | 			bOnBattery = True
 654 | 		Else
 655 | 			bOnBattery = False
 656 | 		End if
 657 | 
 658 | 		oEnvironment.Item("AssetTag") = sAssetTag
 659 | 		oEnvironment.Item("SerialNumber") = sSerialNumber
 660 | 		oEnvironment.Item("Make") = sMake
 661 | 		oEnvironment.Item("Model") = sModel
 662 | 		oEnvironment.Item("Product") = sProduct
 663 | 		oEnvironment.Item("UUID") = sUUID
 664 | 	'// cluberti - 4/16/2015 - add sVersion
 665 | 	'// Required to Capture Make\Model via WMI on some systems that use Version instead of Name in
 666 | 	'// Win32_ComputerSystemProduct to store the model type (%Make%\%Version%)
 667 | 		oEnvironment.Item("Version") = sVersion
 668 | 	'//
 669 | 	'// End
 670 | 	'//
 671 | 		oEnvironment.Item("Memory") = sMemory
 672 | 		oEnvironment.Item("Architecture") = sArchitecture
 673 | 		oEnvironment.Item("ProcessorSpeed") = sProcessorSpeed
 674 | 		oEnvironment.Item("CapableArchitecture") = sCapableArchitecture
 675 | 		oEnvironment.Item("IsLaptop") = oUtility.ConvertBooleanToString(bIsLaptop)
 676 | 		oEnvironment.Item("IsDesktop") = oUtility.ConvertBooleanToString(bIsDesktop)
 677 | 		oEnvironment.Item("IsServer") = oUtility.ConvertBooleanToString(bIsServer)
 678 | 		oEnvironment.Item("IsUEFI") = oUtility.ConvertBooleanToString(bIsUEFI)
 679 | 		oEnvironment.Item("IsOnBattery") = oUtility.ConvertBooleanToString(bOnBattery)
 680 | 		oEnvironment.Item("SupportsX86") = oUtility.ConvertBooleanToString(bSupportsX86)
 681 | 		oEnvironment.Item("SupportsX64") = oUtility.ConvertBooleanToString(bSupportsX64)
 682 | 		If bSupportsSLAT or oEnvironment.Item("SupportsSLAT") = "" then
 683 | 			oEnvironment.Item("SupportsSLAT") = oUtility.ConvertBooleanToString(bSupportsSLAT)
 684 | 		Else
 685 | 			oLogging.CreateEntry "Property SupportsSLAT = " & oEnvironment.Item("SupportsSLAT"), LogTypeInfo
 686 | 		End if
 687 | 
 688 | 		oLogging.CreateEntry "Finished getting asset info", LogTypeInfo
 689 | 
 690 | 		GetAssetInfo = Success
 691 | 
 692 | 	End Function
 693 | 
 694 | 
 695 | 	'//---------------------------------------------------------------------------
 696 | 	'//  Function:	GetOSSKU()
 697 | 	'//  Purpose:	Get OS SKU details using WMI
 698 | 	'//---------------------------------------------------------------------------
 699 | 	Function GetOSSKU ()
 700 | 		Dim oInstance, oInstances,sOSVersion,sOperatingSystemSKU,sOSProductSuite,sSKU
 701 | 
 702 | 
 703 | 		oLogging.CreateEntry "Getting OS SKU info", LogTypeInfo
 704 | 
 705 | 
 706 | 		' If in Windows PE then just exit
 707 | 
 708 | 		If oEnvironment.Item("OSVERSION") = "WinPE" Then
 709 | 			oLogging.CreateEntry "Unable to determine Windows SKU while in Windows PE.", LogTypeInfo
 710 | 			exit function
 711 | 		End If
 712 | 
 713 | 		If not (objWMI is Nothing) then
 714 | 
 715 | 			Set oInstances = objWMI.ExecQuery("select * from Win32_OperatingSystem")
 716 | 			For Each oInstance In oInstances
 717 | 				sOSVersion = oInstance.Version				
 718 | 				oUtility.GetMajorMinorVersion(sOSVersion)
 719 | 				If(oUtility.VersionMajor >= 6 ) Then
 720 | 					sOperatingSystemSKU = oInstance.OperatingSystemSKU
 721 | 				ElseIf oUtility.VersionMajor < 6  Then				
 722 | 					sOSProductSuite = ""
 723 | 					on error resume next
 724 | 					sOSProductSuite = Cint(oInstance.OSProductSuite)
 725 | 					on error goto 0
 726 | 				Else
 727 | 					sOperatingSystemSKU = oInstance.OperatingSystemSKU
 728 | 				End If 
 729 | 			Next	
 730 | 		Else
 731 | 			oLogging.CreateEntry "Unable to obtain OS details since WMI is unavailable.", LogTypeInfo
 732 | 		End if
 733 | 
 734 | 		If sOperatingSystemSKU <> "" Then
 735 | 
 736 | 			Select Case sOperatingSystemSKU
 737 | 			
 738 | 			Case "1"
 739 | 				sSKU = "ULTIMATE"
 740 | 			Case "2"
 741 | 				sSKU = "HOMEBASIC"
 742 | 			Case "3"
 743 | 				sSKU = "HOMEBASICPREMIUM"
 744 | 			Case "4"
 745 | 				sSKU = "ENTERPRISE"
 746 | 			Case "5"
 747 | 				sSKU = "HOMEBASICN"
 748 | 			Case "6"
 749 | 				sSKU = "BUSINESS"
 750 | 			Case "7"
 751 | 				sSKU = "SERVERSTANDARD"
 752 | 			Case "8"
 753 | 				sSKU = "SERVERDATACENTER"
 754 | 			Case "9"
 755 | 				sSKU = "SERVERSMALLBUSINESS"
 756 | 			Case "10"
 757 | 				sSKU = "SERVERENTERPRISE"
 758 | 			Case "11"
 759 | 				sSKU = "STARTER"
 760 | 			Case "12"
 761 | 				sSKU = "SERVERDATACENTERCORE"
 762 | 			Case "13"
 763 | 				sSKU = "SERVERSTANDARDCORE"
 764 | 			Case "14"
 765 | 				sSKU = "SERVERENTERPRISECORE"
 766 | 			Case "15"
 767 | 				sSKU = "SERVERENTERPRISEITANIUM"
 768 | 			Case "16"
 769 | 				sSKU = "BUSINESSN"
 770 | 			Case "17"
 771 | 				sSKU = "SERVERWEB"
 772 | 			Case "18"
 773 | 				sSKU = "SERVERCLUSTER"
 774 | 			Case "19"
 775 | 				sSKU = "SERVERHOME"
 776 | 			Case "20"
 777 | 				sSKU = "SERVERSTORAGEEXPRESS"
 778 | 			Case "21"
 779 | 				sSKU = "SERVERSTORAGESTANDARD"
 780 | 			Case "22"
 781 | 				sSKU = "SERVERSTORAGEWORKGROUP"
 782 | 			Case "23"
 783 | 				sSKU = "SERVERSTORAGEENTERPRISE"
 784 | 			Case "24"
 785 | 				sSKU = "SERVERFORSMALLBUSINESS"
 786 | 			Case "25"
 787 | 				sSKU = "SERVERSMALLBUSINESSPREMIUM"
 788 | 			Case "26"
 789 | 				sSKU = "HOMEPREMIUMN"
 790 | 			Case "27"
 791 | 				sSKU = "ENTERPRISEN"
 792 | 			Case "28"
 793 | 				sSKU = "ULTIMATEN"
 794 | 			Case "29"
 795 | 				sSKU = "SERVERWEBCORE"
 796 | 			Case "30"
 797 | 				sSKU = "MEDIUMBUSINESSSERVERMANAGEMENT"
 798 | 			Case "31"
 799 | 				sSKU = "MEDIUMBUSINESSSERVERSECURITY"
 800 | 			Case "32"
 801 | 				sSKU = "MEDIUMBUSINESSSERVERMESSAGING"
 802 | 			Case "33"
 803 | 				sSKU = "SERVERFOUNDATION"
 804 | 			Case "34"
 805 | 				sSKU = "SERVERHOMEPREMIUM"
 806 | 			Case "35"
 807 | 				sSKU = "SERVERFORSMALLBUSINESSV"
 808 | 			Case "36"
 809 | 				sSKU = "STANDARDSERVERV"
 810 | 			Case "37"
 811 | 				sSKU = "DATACENTERSERVERV"
 812 | 			Case "38"
 813 | 				sSKU = "ENTERPRISESERVERV"
 814 | 			Case "39"
 815 | 				sSKU = "DATACENTERSERVERCOREV"
 816 | 			Case "40"
 817 | 				sSKU = "STANDARDSERVERCOREV"
 818 | 			Case "41"
 819 | 				sSKU = "ENTERPRISESERVERCOREV"
 820 | 			Case "42"
 821 | 				sSKU = "HYPERV"
 822 | 			Case "43"
 823 | 				sSKU = "SERVERSTORAGEEXPRESSCORE"
 824 | 			Case "44"
 825 | 				sSKU = "SERVERSTORAGESTANDARDCORE"
 826 | 			Case "45"
 827 | 				sSKU = "SERVERSTORAGEWORKGROUPCORE"
 828 | 			Case "46"
 829 | 				sSKU = "SERVERSTORAGEENTERPRISECORE"
 830 | 			Case "47"
 831 | 				sSKU = "STARTERN"
 832 | 			Case "48"
 833 | 				sSKU = "PROFESSIONAL"
 834 | 			Case "49"
 835 | 				sSKU = "PROFESSIONALN"
 836 | 			Case "50"
 837 | 				sSKU = "SERVERSBSOLUTION"
 838 | 			Case "51"
 839 | 				sSKU = "SERVERFORSBSOLUTIONS"
 840 | 			Case "52"
 841 | 				sSKU = "STANDARDSERVERSOLUTIONS"
 842 | 			Case "53"
 843 | 				sSKU = "STANDARDSERVERSOLUTIONSCORE"
 844 | 			Case "54"
 845 | 				sSKU = "SBSOLUTIONSERVEREM"
 846 | 			Case "55"
 847 | 				sSKU = "SERVERFORSBSOLUTIONSEM"
 848 | 			Case "56"
 849 | 				sSKU = "SERVERSOLUTIONEMBEDDED"
 850 | 			Case "57"
 851 | 				sSKU = "SERVERSOLUTIONEMBEDDEDCORE"
 852 | 			Case "59"
 853 | 				sSKU = "ESSENTIALBUSINESSSERVERMGMT"
 854 | 			Case "60"
 855 | 				sSKU = "ESSENTIALBUSINESSSERVERADDL"
 856 | 			Case "61"
 857 | 				sSKU = "ESSENTIALBUSINESSSERVERMGMTSVC"
 858 | 			Case "62"
 859 | 				sSKU = "ESSENTIALBUSINESSSERVERADDLSVC"
 860 | 			Case "63"
 861 | 				sSKU = "SMALLBUSINESSSERVERPREMIUMCORE"
 862 | 			Case "64"
 863 | 				sSKU = "CLUSTERSERVERV"
 864 | 			Case "65"
 865 | 				sSKU = "EMBEDDED"
 866 | 			Case "66"
 867 | 				sSKU = "STARTERE"
 868 | 			Case "67"
 869 | 				sSKU = "HOMEBASICE"
 870 | 			Case "68"
 871 | 				sSKU = "HOMEPREMIUME"
 872 | 			Case "69"
 873 | 				sSKU = "PROFESSIONALE"
 874 | 			Case "70"
 875 | 				sSKU = "ENTERPRISEE"
 876 | 			Case "71"
 877 | 				sSKU = "ULTIMATEE"
 878 | 			Case "74"
 879 | 				sSKU = "PRERELEASE"
 880 | 			Case else
 881 | 				oLogging.CreateEntry "Unknown OS SKU = " & sOperatingSystemSKU, LogTypeInfo
 882 | 			End Select
 883 | 		End If
 884 | 	
 885 | 		If sOSProductSuite <> "" Then
 886 | 
 887 | 			If sOSProductSuite AND 1 Then
 888 | 				sSKU = "SERVERSMALLBUSINESS"
 889 | 			ElseIF sOSProductSuite AND 2 Then
 890 | 				sSKU = "SERVERENTERPRISE"
 891 | 			ElseIF sOSProductSuite AND 4 Then
 892 | 				sSKU = "SERVERBACKOFFICE"
 893 | 			ElseIF sOSProductSuite AND 8 Then
 894 | 				sSKU = "SERVERCOMMUNICATIONSERVER"
 895 | 			ElseIF sOSProductSuite AND 32 Then
 896 | 				sSKU = "SERVERSMALLBUSINESS"
 897 | 			ElseIF sOSProductSuite AND 64 Then
 898 | 				sSKU = "EMBEDDED"
 899 | 			ElseIF sOSProductSuite AND 128 Then
 900 | 				sSKU = "SERVERDATACENTER"
 901 | 			ElseIF sOSProductSuite AND 512 Then
 902 | 				sSKU = "HOME"
 903 | 			ElseIF sOSProductSuite AND 1024 Then
 904 | 				sSKU = "SERVERWEB"
 905 | 			ElseIF sOSProductSuite AND 8192 Then
 906 | 				sSKU = "SERVERSTORAGESTANDARD"
 907 | 			ElseIF sOSProductSuite AND 16384 Then
 908 | 				sSKU = "SERVERCLUSTER"
 909 | 			Else
 910 | 				If oEnvironment.Item("IsServerOS") Then
 911 | 					sSKU = "SERVERSTANDARD"
 912 | 				Else
 913 | 					sSKU = "PROFESSIONAL"
 914 | 				End if
 915 | 			End IF
 916 | 
 917 | 		End If
 918 | 
 919 | 		oEnvironment.Item("OSSKU") = sSKU
 920 | 
 921 | 		oLogging.CreateEntry "Finished getting OS info", LogTypeInfo
 922 | 				
 923 | 		GetOSSKU = Success
 924 | 
 925 | 	End Function
 926 | 
 927 | 	'//---------------------------------------------------------------------------
 928 | 	'//  Function:	GetCurrentOSInfo()
 929 | 	'//  Purpose:	Get Original OS  details using WMI
 930 | 	'//  Figure out the Original architecture of the environment, this is needed if you upgrade
 931 | 	'//  from X86 to X64 to ensure the correct drivers is added/ deleted when ZTIDrivers run
 932 | 	'//---------------------------------------------------------------------------
 933 | 	Function GetCurrentOSInfo
 934 | 		Dim oAssocs
 935 | 		Dim Assoc
 936 | 
 937 | 		oLogging.CreateEntry "Determining the Disk and Partition Number from the Logical Drive " & oEnv("WinDir"), logTypeInfo
 938 | 
 939 | 		If oEnvironment.Item("OriginalArchitecture") = "" and oEnvironment.Item("OSVersion") <> "WinPE"  Then
 940 | 			On Error Resume Next
 941 | 			oEnvironment.Item("OriginalArchitecture") = oEnvironment.Item("Architecture")
 942 | 
 943 | 			oUtility.SetTagForDrive oEnv("SystemDrive"), "OriginalPartitionIdentifier"
 944 | 
 945 | 			If oEnvironment.Item("OriginalWindir") = "" then
 946 | 				oEnvironment.Item("OriginalWindir") = oEnv("WinDir")
 947 | 				oLogging.CreateEntry "Note: OriginalWindir May change in the new OS, use OriginalDiskIndex and OriginalDiskPartition to determine real drive", logTypeInfo
 948 | 			End if
 949 | 		ElseIf oEnvironment.Item("OriginalArchitecture") = "" and oEnvironment.Item("OSVersion") = "WinPE" Then
 950 | 			For each oDrive in oFSO.Drives
 951 | 				If oDrive.DriveType = 2 then
 952 | 					If oDrive.IsReady Then
 953 | 						If oFSO.FolderExists(oDrive.DriveLetter & ":\Program Files (x86)") and oDrive.DriveLetter<>"X" then
 954 | 
 955 | 							oEnvironment.Item("OriginalArchitecture") = "X64"
 956 | 							Exit For
 957 | 						Else
 958 | 							If oFSO.FolderExists(oDrive.DriveLetter & ":\Program Files") and oDrive.DriveLetter<>"X" then
 959 | 								oEnvironment.Item("OriginalArchitecture") = "X86"
 960 | 								Exit For
 961 | 							Else
 962 | 								oEnvironment.Item("OriginalArchitecture") = ""
 963 | 							End If
 964 | 	
 965 | 						End if
 966 | 					End If
 967 | 				End if
 968 | 			Next
 969 | 
 970 | 			
 971 | 		End if
 972 | 
 973 | 		GetCurrentOSInfo = SUCCESS
 974 | 	End function
 975 | 
 976 | 
 977 | 	'//---------------------------------------------------------------------------
 978 | 	'//  Function:	GetNetworkInfo()
 979 | 	'//  Purpose:	Get network details using WMI
 980 | 	'//---------------------------------------------------------------------------
 981 | 	Function GetNetworkInfo
 982 | 
 983 | 		Dim iRetVal, objNetworkAdapters, objAdapter, sElement, sTmp1, arrTmp
 984 | 		Dim dicIPAddresses, dicMacAddresses, dicDefaultGateways
 985 | 
 986 | 
 987 | 		oLogging.CreateEntry "Getting network info", LogTypeInfo
 988 | 
 989 | 
 990 | 		' Initialization
 991 | 
 992 | 		Set dicIPAddresses = CreateObject("Scripting.Dictionary")
 993 | 		Set dicMacAddresses = CreateObject("Scripting.Dictionary")
 994 | 		Set dicDefaultGateways = CreateObject("Scripting.Dictionary")
 995 | 
 996 | 		iRetVal = Success
 997 | 
 998 | 
 999 | 		' Get a list of IP-enabled adapters
1000 | 
1001 | 		Set objNetworkAdapters = objWMI.ExecQuery("select * from Win32_NetworkAdapterConfiguration where IPEnabled = 1")
1002 | 
1003 | 		For Each objAdapter In objNetworkAdapters
1004 | 
1005 | 			oLogging.CreateEntry "Checking network adapter: " & objAdapter.Caption, LogTypeInfo
1006 | 
1007 | 			' Get the MAC address
1008 | 
1009 | 			If not dicMacAddresses.Exists(objAdapter.MacAddress) then
1010 | 				dicMacAddresses.Add objAdapter.MacAddress, ""
1011 | 			End if
1012 | 			oLogging.CreateEntry "MAC address = " & objAdapter.MacAddress, LogTypeInfo
1013 | 
1014 | 			' Get the IP addresses
1015 | 
1016 | 			If not (IsNull(objAdapter.IPAddress)) then
1017 | 				For each sElement in objAdapter.IPAddress
1018 | 					If sElement = "0.0.0.0" or Left(sElement, 7) = "169.254" or sElement = "" then
1019 | 						oLogging.CreateEntry "Ignoring IP Address " & sElement, LogTypeInfo
1020 | 					Else
1021 | 						If not dicIPAddresses.Exists(sElement) then
1022 | 							dicIPAddresses.Add sElement, ""
1023 | 						End if
1024 | 						oLogging.CreateEntry "IP Address = " & sElement, LogTypeInfo
1025 | 					End if
1026 | 				Next
1027 | 			End if
1028 | 
1029 | 			' Get the default gateway values
1030 | 
1031 | 			If not (IsNull(objAdapter.DefaultIPGateway)) then
1032 | 				For each sElement in objAdapter.DefaultIPGateway
1033 | 					If sElement <> "" then
1034 | 						If not dicDefaultGateways.Exists(sElement) then
1035 | 							dicDefaultGateways.Add sElement, ""
1036 | 						End if
1037 | 						oLogging.CreateEntry "Default Gateway = " & sElement, LogTypeInfo
1038 | 					End if
1039 | 				Next
1040 | 			End if
1041 | 
1042 | 		Next  
1043 | 
1044 | 		oEnvironment.ListItem("IPAddress") = dicIPAddresses
1045 | 		oEnvironment.ListItem("MacAddress") = dicMacAddresses
1046 | 		oEnvironment.ListItem("DefaultGateway") = dicDefaultGateways
1047 | 
1048 | 		GetNetworkInfo = iRetVal
1049 | 		oLogging.CreateEntry "Finished getting network info", LogTypeInfo
1050 | 
1051 | 	End Function
1052 | 
1053 | 
1054 | 
1055 | 	'//---------------------------------------------------------------------------
1056 | 	'//  Function:	GetHAL
1057 | 	'//  Purpose:	Get HAL details using WMI
1058 | 	'//---------------------------------------------------------------------------
1059 | 	Function GetHAL
1060 | 
1061 | 		Dim sHALName, sQueryString, objEntity, objEntities, oHAL
1062 | 		Dim i
1063 | 
1064 | 
1065 | 		oLogging.CreateEntry "Getting HAL information", LogTypeInfo
1066 | 
1067 | 
1068 | 		' First try to get the HAL name from WMI
1069 | 
1070 | 		sQueryString = "SELECT * FROM Win32_PnPEntity WHERE ClassGUID = '{4D36E966-E325-11CE-BFC1-08002BE10318}' or DeviceID LIKE 'ROOT\\%HAL%' "
1071 | 
1072 | 		On Error Resume Next
1073 | 		Set objEntities = objWMI.ExecQuery( sQueryString )
1074 | 		If Err then
1075 | 			oLogging.CreateEntry "Unable to retrieve HAL via WMI: " & Err.Description & " (" & Err.Number & ")", LogTypeInfo
1076 | 		Else
1077 | 
1078 | 			For each objEntity in objEntities
1079 | 
1080 | 				On Error Resume Next
1081 | 				oHAL = oShell.RegRead( "HKLM\SYSTEM\CurrentControlSet\Enum\" & objEntity.DeviceID & "\HardwareID" )      
1082 | 				On error goto 0
1083 | 
1084 | 				sHALName = oHAL
1085 | 				If IsArray(oHAL) then 
1086 | 					sHALName = oHAL(0) 
1087 | 				End if
1088 | 
1089 | 				Exit for 
1090 | 
1091 | 			Next
1092 | 
1093 | 		End if
1094 | 		On Error Goto 0
1095 | 
1096 | 
1097 | 		' If the HAL name is still blank, try to get it from the registry
1098 | 
1099 | 		If sHALName = "" then
1100 | 
1101 | 			For i = 0 to 9999
1102 | 				On Error Resume Next
1103 | 				sHALName = oShell.RegRead("HKLM\System\CurrentControlSet\Control\Class\{4D36E966-E325-11CE-BFC1-08002BE10318}\" & Right("000" & CStr(i), 4) & "\MatchingDeviceID")
1104 | 				If Err then
1105 | 					Exit For  ' Found the last one
1106 | 				End if
1107 | 				On Error Goto 0
1108 | 			Next
1109 | 		End if
1110 | 
1111 | 		oEnvironment.Item("HALName") = sHALName
1112 | 
1113 | 		oLogging.CreateEntry "Finished getting HAL information", LogTypeInfo
1114 | 
1115 | 	End Function
1116 | 
1117 | 
1118 | 
1119 | 	'//---------------------------------------------------------------------------
1120 | 	'//  Function:	GetDP
1121 | 	'//  Purpose:	Get the name of the distribution share being used
1122 | 	'//---------------------------------------------------------------------------
1123 | 	Function GetDP
1124 | 
1125 | 		Dim sSMSDP
1126 | 
1127 | 
1128 | 		oLogging.CreateEntry "Getting DP info", LogTypeInfo
1129 | 
1130 | 
1131 | 		' If OSD, get the DP server
1132 | 
1133 | 		sSMSDP = ""
1134 | 		If oEnvironment.Item("_SMSTSBootImageID") <> "" and oEnvironment.Item("_SMSTSMediaType")<> "FullMedia" then
1135 | 			Dim arrSMSDP,aSMSDP
1136 | 
1137 | 			' Get the first path from the comma-delimited list
1138 | 
1139 | 			arrSMSDP = Split(oEnvironment.Item("_SMSTS" & oEnvironment.Item("_SMSTSBootImageID")),",")
1140 | 			For Each aSMSDP in arrSMSDP
1141 | 				If Instr(aSMSDP,"SMSPXEIMAGES$") = 0 Then
1142 | 					sSMSDP = aSMSDP
1143 | 					Exit For
1144 | 				End If
1145 | 			Next
1146 | 
1147 | 
1148 | 			' Figure out if it is a UNC or a URL, and extract the server name as appropriate
1149 | 
1150 | 			If Left(sSMSDP, 2) = "\\" then
1151 | 				sSMSDP = Mid(sSMSDP, 3)
1152 | 				sSMSDP = Left(sSMSDP, InStr(sSMSDP,"\")-1)
1153 | 			ElseIf Left(sSMSDP, 7) = "http://" then
1154 | 				sSMSDP = Mid(sSMSDP, 8)
1155 | 				sSMSDP = Left(sSMSDP, InStr(sSMSDP,"/")-1)
1156 | 			ElseIf Left(sSMSDP, 8) = "https://" then
1157 | 				sSMSDP = Mid(sSMSDP, 9)
1158 | 				sSMSDP = Left(sSMSDP, InStr(sSMSDP,"/")-1)
1159 | 			End If
1160 | 		End if
1161 | 		If sSMSDP = "" and Left(oUtility.ScriptDir,2) = "\\" then
1162 | 
1163 | 			' Assume we are running from a DP (maybe not always accurate, e.g. NewComputer phase)
1164 | 
1165 | 			sSMSDP = Mid(oUtility.ScriptDir,3)
1166 | 			sSMSDP = Left(sSMSDP, InStr(sSMSDP,"\")-1)
1167 | 
1168 | 		End if
1169 | 
1170 | 		If sSMSDP = "" then
1171 | 			oLogging.CreateEntry "Unable to determine ConfigMgr distribution point", LogTypeInfo
1172 | 		Else
1173 | 			oLogging.CreateEntry "ConfigMgr distribution point = " & sSMSDP, LogTypeInfo
1174 | 			oEnvironment.Item("SMSDP") = sSMSDP
1175 | 		End if
1176 | 
1177 | 		oLogging.CreateEntry "Finished getting DP info", LogTypeInfo
1178 | 	
1179 | 	End function
1180 | 
1181 | 
1182 | 	'//---------------------------------------------------------------------------
1183 | 	'//  Function:	GetWDS
1184 | 	'//  Purpose:	Get the name of the WDS server we may have booted from
1185 | 	'//---------------------------------------------------------------------------
1186 | 	Function GetWDS
1187 | 
1188 | 		Dim sCmd, sWDSServer
1189 | 
1190 | 
1191 | 		oLogging.CreateEntry "Getting WDS server info", LogTypeInfo
1192 | 
1193 | 
1194 | 		' See if we can discover the WDS server name that we may have booted from
1195 | 
1196 | 		If oEnvironment.Item("OSVersion") = "WinPE" then
1197 | 			On Error Resume Next
1198 | 			sCmd = "wpeutil.exe UpdateBootInfo"
1199 | 			oShell.Run sCmd, 0, true
1200 | 			On Error Goto 0	
1201 | 		End if
1202 | 
1203 | 		sWDSServer = ""
1204 | 		On Error Resume Next
1205 | 		sWDSServer = oShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\PEBootServerName")
1206 | 		If Err then
1207 | 			oLogging.CreateEntry "Unable to determine WDS server name, probably not booted from WDS.", LogTypeInfo
1208 | 		Else
1209 | 			oEnvironment.Item("WDSServer") = sWDSServer
1210 | 		End if
1211 | 		On Error Goto 0
1212 | 
1213 | 		oLogging.CreateEntry "Finished getting WDS server info", LogTypeInfo
1214 | 
1215 | 	End function
1216 | 
1217 | 	'//---------------------------------------------------------------------------
1218 | 	'//  Function:	GetVirtualizationInfo()
1219 | 	'//  Purpose:	Get virtualization details
1220 | 	'//---------------------------------------------------------------------------
1221 | 	Function GetVirtualizationInfo
1222 | 
1223 | 		Dim oInstance, oInstances
1224 | 		Dim sVersionString
1225 | 		Dim bIsVM, sVMPlatform
1226 | 		Dim sVMHost, sVMName
1227 | 
1228 | 		oLogging.CreateEntry "Getting virtualization info", LogTypeInfo
1229 | 
1230 | 
1231 | 		' Set variables based on the capabilities of the hardware
1232 | 
1233 | 		oEnvironment.Item("IsHypervisorRunning") = oUtility.ConvertBooleanToString(oUtility.BDDUtility.IsHypervisorRunning)
1234 | 		oEnvironment.Item("SupportsVT") = oUtility.ConvertBooleanToString(oUtility.BDDUtility.SupportsVT)
1235 | 		oEnvironment.Item("SupportsNX") = oUtility.ConvertBooleanToString(oUtility.BDDUtility.SupportsNX)
1236 | 		oEnvironment.Item("Supports64Bit") = oUtility.ConvertBooleanToString(oUtility.BDDUtility.Supports64Bit)
1237 | 		If oUtility.BDDUtility.SupportsVT and oUtility.BDDUtility.SupportsNX and oUtility.BDDUtility.Supports64Bit then
1238 | 			oEnvironment.Item("SupportsHyperVRole") = "True"
1239 | 		Else
1240 | 			oEnvironment.Item("SupportsHyperVRole") = "False"
1241 | 		End if
1242 | 
1243 | 
1244 | 		' Determine what virtual machine environment this might be.  Get the BIOS version information
1245 | 
1246 | 		Set oInstances = objWMI.ExecQuery("Select * from Win32_BIOS")
1247 | 		For each oInstance in oInstances
1248 | 			sVersionString = oInstance.Version
1249 | 		Next
1250 | 
1251 | 
1252 | 		' Check the BIOS version information against known values
1253 | 
1254 | 		bIsVM = false
1255 | 		sVMPlatform = ""
1256 | 
1257 | 		If oEnvironment.Item("Model") = "Virtual Machine" then
1258 | 
1259 | 			' Microsoft virtualization technology detected, assign defaults
1260 | 
1261 | 			sVMPlatform = "Hyper-V"
1262 | 			bIsVM = true
1263 | 
1264 | 
1265 | 			' Try to determine more specific values
1266 | 
1267 | 			Select Case sVersionString
1268 | 			Case "VRTUAL - 1000831"
1269 | 				bIsVM = true
1270 | 				sVMPlatform = "Hyper-V Beta or RC0"
1271 | 			Case "VRTUAL - 5000805", "BIOS Date: 05/05/08 20:35:56  Ver: 08.00.02"
1272 | 				bIsVM = true
1273 | 				sVMPlatform = "Hyper-V"
1274 | 			Case "A M I  - 2000622"
1275 | 				bIsVM = true
1276 | 				sVMPlatform = "VS2005R2SP1 or VPC2007"
1277 | 			Case "A M I  - 9000520"
1278 | 				bIsVM = true
1279 | 				sVMPlatform = "VS2005R2"
1280 | 			Case "A M I  - 9000816", "A M I  - 6000901"
1281 | 				bIsVM = true
1282 | 				sVMPlatform = "Windows Virtual PC"
1283 | 			Case "A M I  - 8000314"
1284 | 				bIsVM = true
1285 | 				sVMPlatform = "VS2005 or VPC2004"
1286 | 			End Select
1287 | 
1288 | 
1289 | 			' Try to get the VM host from the integration components
1290 | 
1291 | 			sVMHost = ""
1292 | 			On Error Resume Next
1293 | 			sVMHost = oShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Virtual Machine\Guest\Parameters\PhysicalHostNameFullyQualified")
1294 | 			If Err then
1295 | 				oLogging.CreateEntry "The VM physical host name was not found.", LogTypeVerbose
1296 | 			Else
1297 | 				oEnvironment.Item("VMHost") = sVMHost
1298 | 			End if
1299 | 			On Error Goto 0
1300 | 
1301 | 
1302 | 			' Try to get the VM namefrom the integration components
1303 | 
1304 | 			sVMName = ""
1305 | 			On Error Resume Next
1306 | 			sVMName = oShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Virtual Machine\Guest\Parameters\VirtualMachineName")
1307 | 			If Err then
1308 | 				oLogging.CreateEntry "The VM name was not found.", LogTypeVerbose
1309 | 			Else
1310 | 				oEnvironment.Item("VMName") = sVMName
1311 | 			End if
1312 | 			On Error Goto 0
1313 | 
1314 | 		ElseIf oEnvironment.Item("Model") = "VMware Virtual Platform" then
1315 | 
1316 | 			' VMware detected
1317 | 
1318 | 			sVMPlatform = "VMware"
1319 | 			bIsVM = true
1320 | 
1321 | 		ElseIf oEnvironment.Item("Model")  = "VirtualBox" then
1322 | 
1323 | 			' VirtualBox detected
1324 | 
1325 | 			bIsVM = true
1326 | 			sVMPlatform = "VirtualBox"
1327 | 
1328 | 		ElseIf oEnvironment.Item("Make")  = "Xen" then
1329 | 
1330 | 			' Xen server detected
1331 | 
1332 | 			bIsVM = true
1333 | 			sVMPlatform = "Xen"
1334 | 
1335 | 		Else 
1336 | 			oLogging.CreateEntry "This computer does not appear to be a virtual machine (BIOS is '" & sVersionString & "').", LogTypeInfo
1337 | 		End if
1338 | 
1339 | 
1340 | 		' Set the appropriate variables
1341 | 
1342 | 		oEnvironment.Item("IsVM") = oUtility.ConvertBooleanToString(bIsVM)
1343 | 		If sVMPlatform <> "" then
1344 | 			oEnvironment.Item("VMPlatform") = sVMPlatform
1345 | 		End if
1346 | 
1347 | 		oLogging.CreateEntry "Finished getting virtualization info", LogTypeInfo
1348 | 
1349 | 	End function
1350 | 
1351 | 
1352 | 	'//---------------------------------------------------------------------------
1353 | 	'//  Function:	GetBitLockerInfo()
1354 | 	'//  Purpose:	Get BitLocker details
1355 | 	'//---------------------------------------------------------------------------
1356 | 	Function GetBitLockerInfo
1357 | 
1358 | 		Dim bIsBDE, objWMIBDE, colEnVol, objVol
1359 | 		Dim iStatus, iPercent
1360 | 
1361 | 		bIsBDE = False
1362 | 		
1363 | 		oUtility.GetMajorMinorVersion(oEnvironment.Item("OSCurrentVersion"))		
1364 | 		If oUtility.BuildNumber >= 6000 then
1365 | 
1366 | 			' Connect to the Bitlocker WMI object
1367 | 
1368 | 			On Error Resume Next
1369 | 			Set objWMIBDE = GetObject("winmgmts:{impersonationLevel=impersonate,authenticationLevel=pktPrivacy}!root\cimv2\Security\MicrosoftVolumeEncryption" )
1370 | 			If Err then 
1371 | 				oLogging.CreateEntry "MicrosoftVolumeEncryption namespace does not exist.  BitLocker is not installed", LogTypeInfo
1372 | 			Else 
1373 | 				oLogging.CreateEntry "Connection succeeded to MicrosoftVolumeEncryption", LogTypeInfo
1374 | 
1375 | 				On Error Goto 0
1376 | 				Err.Clear
1377 | 
1378 | 
1379 | 				' Get the encryptable volumes.  Check the conversion status on each
1380 | 
1381 | 				Set colEnVol = objWMIBDE.ExecQuery("Select * from Win32_EncryptableVolume")
1382 | 				For each objVol in colEnVol
1383 | 					objVol.GetConversionStatus iStatus, iPercent
1384 | 					If iStatus <> 0 then
1385 | 						If IsNull(objVol.DriveLetter) then
1386 | 							oLogging.CreateEntry "Encrypted drive found: " & objVol.DeviceID & ", status = " & iStatus, LogTypeInfo
1387 | 						Else
1388 | 							oLogging.CreateEntry "Encrypted drive found: " & objVol.DriveLetter & ", status = " & iStatus, LogTypeInfo
1389 | 						End if
1390 | 						bIsBde = true
1391 | 					End if
1392 | 				Next
1393 | 				If not bIsBde then
1394 | 					oLogging.CreateEntry "There are no encrypted drives", LogTypeInfo
1395 | 				End if
1396 | 
1397 | 			End if
1398 | 		End if
1399 | 
1400 | 
1401 | 		' Set the IsBDE variable
1402 | 
1403 | 		oEnvironment.Item("IsBDE") = oUtility.ConvertBooleanToString(bIsBDE)
1404 | 
1405 | 	End function
1406 | 
1407 | 
1408 | 	'//---------------------------------------------------------------------------
1409 | 	'//  Function:	GetHostName
1410 | 	'//  Purpose:	Record the current computer name
1411 | 	'//---------------------------------------------------------------------------
1412 | 	Function GetHostName
1413 | 
1414 | 		' Get machine name
1415 | 
1416 | 		oEnvironment.Item("HostName") = oNetwork.ComputerName
1417 | 
1418 | 	End function
1419 | 
1420 | 
1421 | 	'//----------------------------------------------------------------------------
1422 | 	'//  Rule processing routines
1423 | 	'//----------------------------------------------------------------------------
1424 | 
1425 | 
1426 | 	'//---------------------------------------------------------------------------
1427 | 	'//  Function:	ProcessRules()
1428 | 	'//  Purpose:	Get all settings that apply to the current workstation
1429 | 	'//---------------------------------------------------------------------------
1430 | 	Function ProcessRules(sIniFile, sSectionSettings)
1431 | 
1432 | 		Dim sRulePriority, arrRules
1433 | 		Dim sElement, sNewSection, sRule
1434 | 		Dim iRuleCount, iTotalRules
1435 | 
1436 | 
1437 | 		' Determine the rule priority
1438 | 
1439 | 		sRulePriority = oUtility.ReadIni(sIniFile, sSectionSettings, "Priority")
1440 | 		If Len(sRulePriority) = 0 then
1441 | 			oLogging.CreateEntry "ERROR - rule Priority key not set in section [" & sSectionSettings & "]", LogTypeError
1442 | 			ProcessRules = Failure
1443 | 			Exit Function
1444 | 		End if
1445 | 
1446 | 		sRulePriority = UCase(sRulePriority)
1447 | 		oLogging.CreateEntry "Using from [" & sSectionSettings & "]: Rule Priority = " & sRulePriority, LogTypeInfo
1448 | 		arrRules = split(sRulePriority, ",", -1, 1) 
1449 | 
1450 | 
1451 | 		' Process each search until all the required values are found
1452 | 
1453 | 		iTotalRules = UBound(arrRules) + 1
1454 | 		For each sRule in arrRules
1455 | 
1456 | 			sRule = UCase(trim(sRule))
1457 | 
1458 | 			iRuleCount = iRuleCount + 1
1459 | 			oLogging.ReportProgress "Processing rule: " & sRule, 50 + CInt(iRuleCount * 40.0 / iTotalRules)
1460 | 
1461 | 			If sRule = "DEFAULTGATEWAY" then
1462 | 
1463 | 				oLogging.CreateEntry "------ Processing the [" & sRule & "] section ------", LogTypeInfo
1464 | 
1465 | 				' Check each default gateway value to see if a match can be found
1466 | 				For each sElement in oEnvironment.ListItem(sRule)
1467 | 
1468 | 					sNewSection = oUtility.ReadIni(sIniFile, sSectionDefaultGateway, sElement)
1469 | 					If sNewSection = "" then
1470 | 						oLogging.CreateEntry "No match found for default gateway " & sElement & ".", LogTypeInfo
1471 | 					Else
1472 | 						oLogging.CreateEntry "Match found for default gateway " & sElement & ", retrieving settings.", LogTypeInfo
1473 | 						iRetVal = GetIniGenericSettings(sIniFile, sNewSection)
1474 | 						If iRetVal <> Success then
1475 | 							oLogging.CreateEntry "ERROR trying to obtain ini settings for default gateway section " & sElement & ".", LogTypeError
1476 | 							WScript.Quit iRetVal
1477 | 						End if
1478 | 					End if
1479 | 
1480 | 				Next
1481 | 
1482 | 			ElseIf dicLists.Exists(sRule) or oEnvironment.ListItem(sRule).Count > 0 then 
1483 | 
1484 | 				For each sElement in oEnvironment.ListItem(sRule)
1485 | 
1486 | 					iRetVal = GetIniGenericSettings(sIniFile, sElement)
1487 | 					If iRetVal <> Success then
1488 | 						oLogging.CreateEntry "ERROR trying to obtain ini settings.  No further processing.", LogTypeError
1489 | 						WScript.Quit iRetVal
1490 | 					End if
1491 | 
1492 | 				Next
1493 | 
1494 | 			ElseIf oEnvironment.Item(sRule) <> "" then
1495 | 
1496 | 				iRetVal = GetIniGenericSettings(sIniFile, CStr(oEnvironment.Item(sRule)))
1497 | 				If iRetVal <> Success then
1498 | 					oLogging.CreateEntry "ERROR trying to obtain ini settings.  No further processing.", LogTypeError
1499 | 					WScript.Quit iRetVal
1500 | 				End if
1501 | 
1502 | 
1503 | 			Else
1504 | 
1505 | 				iRetVal = GetIniGenericSettings(sIniFile, sRule)
1506 | 				If iRetVal <> Success then
1507 | 					oLogging.CreateEntry "ERROR trying to obtain ini settings.  No further processing.", LogTypeError
1508 | 					WScript.Quit iRetVal
1509 | 				End if
1510 | 
1511 | 			End if
1512 | 
1513 | 		Next
1514 | 
1515 | 		oLogging.CreateEntry "------ Done processing " & sIniFile & " ------", LogTypeInfo
1516 | 
1517 | 	End Function
1518 | 
1519 | 
1520 | 	'//---------------------------------------------------------------------------
1521 | 	'//  Function:	GetProperties()
1522 | 	'//  Purpose:	Get property names from rules INI file and gather XML file
1523 | 	'//---------------------------------------------------------------------------
1524 | 	Function GetProperties(sIniFile, sSectionSettings)
1525 | 
1526 | 		Dim iRetVal
1527 | 
1528 | 		Dim sGatherXML, oGatherXML, iRc
1529 | 		Dim oNode, sElement, sType, sOverwrite
1530 | 
1531 | 		Dim bOEM, sSection
1532 | 		Dim oEntries, sEntry
1533 | 		Dim dicTmp, i
1534 | 		Dim arrTmp
1535 | 		Dim sProperty, oTmp, sTmp
1536 | 
1537 | 
1538 | 		iRetVal = Success
1539 | 
1540 | 
1541 | 		' Check to see if this is an OEM scenario
1542 | 
1543 | 		If oFSO.FileExists(Left(oUtility.LogPath,1) & ":\MININT\OEM.VBS") then
1544 | 			bOEM = true
1545 | 			oEnvironment.Item("ZTISettings") = ""
1546 | 		End if
1547 | 
1548 | 
1549 | 		' Read the XML file for a list of properties
1550 | 
1551 | 		iRc = oUtility.FindFile("ZTIGather.xml", sGatherXML)
1552 | 		If iRc <> Success then
1553 | 			oLogging.CreateEntry "Unable to locate ZTIGather.xml, skipping", LogTypeInfo
1554 | 		Else
1555 | 
1556 | 			Set oGatherXML = oUtility.GetMSXMLDOMDocument
1557 | 			oGatherXML.load sGatherXML
1558 | 
1559 | 
1560 | 			' Process each node
1561 | 
1562 | 			For each oNode in oGatherXML.documentElement.selectNodes("property")
1563 | 
1564 | 				sElement = UCase(oNode.getAttribute("id"))
1565 | 				sType = UCase(oNode.getAttribute("type"))
1566 | 				sOverwrite = UCase(oNode.getAttribute("overwrite"))
1567 | 
1568 | 				If not dicProperties.Exists(sElement) then
1569 | 					dicProperties.Add sElement, ""
1570 | 				End if
1571 | 
1572 | 				If sType = "LIST" then
1573 | 					If not dicLists.Exists(sElement) then
1574 | 						dicLists.Add sElement, ""
1575 | 					End if
1576 | 				End if
1577 | 
1578 | 				If sOverwrite = "TRUE" then
1579 | 					If not dicOverwrite.Exists(sElement) then
1580 | 						dicOverwrite.Add sElement, ""
1581 | 					End if
1582 | 				End if
1583 | 
1584 | 			Next
1585 | 
1586 | 		End if
1587 | 
1588 | 
1589 | 		' Read the INI file for a list of properties
1590 | 
1591 | 		If oFSO.FileExists(sIniFile) then
1592 | 
1593 | 			Set oEntries = oUtility.SectionContents(sIniFile, sSectionSettings)
1594 | 			For each sEntry in oEntries.Keys
1595 | 
1596 | 				Select Case sEntry
1597 | 				Case "CustomKeysUserData", "CustomKeysSysprep", "OSDVariableKeys", "Properties"
1598 | 
1599 | 					' Place each into the dictionary object (with its value, if available)
1600 | 
1601 | 					arrTmp = split(oEntries(sEntry), ",", -1, 1)
1602 | 					For each sElement in arrTmp
1603 | 
1604 | 		 				sElement = uCase(trim(sElement))
1605 | 
1606 | 						If Right(sElement,3) = "(*)" then
1607 | 							sElement = Left(sElement, Len(sElement)-3)
1608 | 							If not dicLists.Exists(sElement) then
1609 | 								dicLists.Add sElement, ""
1610 | 								oLogging.CreateEntry "Added new custom list property " & sElement, LogTypeInfo
1611 | 							End if
1612 | 						End if
1613 | 
1614 | 						If not dicProperties.Exists(sElement) then
1615 | 							dicProperties.Add sElement, ""
1616 | 							oLogging.CreateEntry "Added new custom property " & sElement, LogTypeInfo
1617 | 						End if
1618 | 
1619 | 					Next
1620 | 
1621 | 				End Select
1622 | 
1623 | 			Next
1624 | 
1625 | 		End if
1626 | 
1627 | 
1628 | 		' Check each property to make sure values exist in all environments (sync).  ZTIUtility
1629 | 		' does the real work (see Public Property Get Item, Function GetDAT).
1630 | 
1631 | 		For each sProperty in dicProperties.Keys
1632 | 
1633 | 			If dicLists.Exists(sProperty) then
1634 | 				Set oTmp = oEnvironment.ListItem(sProperty)
1635 | 			Else
1636 | 				sTmp = oEnvironment.Item(sProperty)
1637 | 			End if
1638 | 			
1639 | 		Next
1640 | 
1641 | 		GetProperties = iRetVal
1642 | 
1643 | 	End Function
1644 | 
1645 | 
1646 | 	'//---------------------------------------------------------------------------
1647 | 	'//  Function:	QuerySQL
1648 | 	'//  Purpose:	Query SQL Server to obtain data for a particular rule
1649 | 	'//---------------------------------------------------------------------------
1650 | 	Function QuerySQL(sSection)
1651 | 
1652 | 		Dim oDatabase
1653 | 
1654 | 		Dim iRetVal, sElement, sColumn, objTmp, bFoundColumn, bFirst
1655 | 		Dim objErr
1656 | 		Dim oRS
1657 | 
1658 | 
1659 | 		iRetVal = Success
1660 | 
1661 | 
1662 | 		' Create a database object
1663 | 
1664 | 		Set oDatabase = New Database
1665 | 		oDatabase.IniFile = LocateINI
1666 | 		oDatabase.SectionName = sSection
1667 | 		If (oDatabase.Connect is Nothing) then
1668 | 			oLogging.CreateEvent 41038, LogTypeError, "Unable to establish database connection using [" & sSection & "] properties.", Array()
1669 | 			QuerySQL = Failure
1670 | 			Exit Function
1671 | 		End if
1672 | 
1673 | 
1674 | 		' Issue the SQL statement
1675 | 
1676 | 		Set oRS = oDatabase.Query
1677 | 		If oRS is nothing then
1678 | 			oLogging.CreateEvent 41039, LogTypeWarning, "Unable to execute database query.", Array()
1679 | 			QuerySQL = Failure
1680 | 			Exit Function
1681 | 		ElseIf oRS.RecordCount = 0 then
1682 | 			oRS.Close
1683 | 			iRetVal = Success
1684 | 			oLogging.CreateEntry "Record count from SQL = 0.", LogTypeInfo
1685 | 			QuerySQL = iRetVal
1686 | 			EXIT FUNCTION
1687 | 		End if
1688 | 
1689 | 
1690 | 		' Process the results
1691 | 
1692 | 		oLogging.CreateEntry "Records returned from SQL = " & oRS.RecordCount, LogTypeInfo
1693 | 		On Error Resume Next
1694 | 		oRS.MoveFirst
1695 | 		If Err then
1696 | 			oLogging.CreateEntry "ERROR - Moving to first row (Error Number = " & Err.Number & ") (Error Description: " & Err.Description & ").", LogTypeError
1697 | 			For each objErr in oDatabase.Connection.Errors
1698 | 				oLogging.CreateEntry "  ADO error: " & objErr.Description & " (Error #" & objErr.Number & "; Source: " & objErr.Source & "; SQL State: " & objErr.SQLState & "; NativeError: " & objErr.NativeError & ")", LogTypeError
1699 | 			Next
1700 | 			oRS.Close
1701 | 			iRetVal = Failure
1702 | 			Err.Clear
1703 | 			QuerySQL = iRetVal
1704 | 			EXIT FUNCTION
1705 | 		End if
1706 | 		On Error Goto 0
1707 | 
1708 | 		While not oRS.EOF
1709 | 
1710 | 			For each sElement in dicProperties.Keys
1711 | 
1712 | 				sColumn = oDatabase.TranslateToColumnID(sElement)
1713 | 
1714 | 
1715 | 				'  Make sure the column exists in the recordset
1716 | 
1717 | 				bFoundColumn = False
1718 | 				For each objTmp in oRS.Fields
1719 | 					If Ucase(objTmp.Name) = Ucase(sColumn) then
1720 | 						bFoundColumn = true
1721 | 						Exit For
1722 | 					End if
1723 | 				Next
1724 | 
1725 | 				On Error Resume Next
1726 | 
1727 | 				If not bFoundColumn then
1728 | 					' oLogging.CreateEntry sColumn & " not found in the SQL table.", LogTypeInfo
1729 | 				ElseIf IsNull(oRS.Fields(cStr(sColumn))) then
1730 | 					' oLogging.CreateEntry sColumn & " = NULL in SQL", LogTypeInfo
1731 | 				ElseIf Len(oRS.Fields(cStr(sColumn))) = 0 then
1732 | 					' oLogging.CreateEntry sColumn & " = blank in SQL", LogTypeInfo
1733 | 				Elseif dicLists.Exists(sElement) then  ' Handle array
1734 | 					Set objTmp = oEnvironment.ListItem(sElement)
1735 | 					If not objTmp.Exists(oEnvironment.Substitute(oRS.Fields(cStr(sColumn)).Value)) then
1736 | 						objTmp.Add oEnvironment.Substitute(oRS.Fields(cStr(sColumn)).Value), ""
1737 | 						oEnvironment.ListItem(sElement) = objTmp
1738 | 						oLogging.CreateEntry "Added " & sElement & " value from SQL:  " & sColumn & " = " & oEnvironment.Substitute(oRS.Fields(cStr(sColumn)).Value), LogTypeInfo
1739 | 					Else
1740 | 						' oLogging.CreateEntry "Value " & oRS.Fields(cStr(sColumn)).Value & " already found for " & sElement, LogTypeInfo
1741 | 					End if
1742 | 				ElseIf oEnvironment.Item(sElement) = "" or dicOverwrite.Exists(sElement) then
1743 | 					oEnvironment.Item(sElement) = oEnvironment.Substitute(oRS.Fields(cStr(sColumn)).Value)
1744 | 					oLogging.CreateEntry "Obtained " & sElement & " value from SQL:  " & sColumn & " = " & oEnvironment.Item(sElement), LogTypeInfo
1745 | 				ElseIf oEnvironment.Item(sElement) <> oEnvironment.Substitute(oRS.Fields(CStr(sColumn)).value) then
1746 | 					oLogging.CreateEntry "Value for " & sElement & " is already set to " & oEnvironment.Item(sElement) & " so database value of " & oRS.Fields(cStr(sColumn)).Value & " will be ignored.", LogTypeInfo
1747 | 				Else  ' len(oEnvironment.Item(sElement) > 0
1748 | 					' oLogging.CreateEntry "Value for " & sElement & " is unchanged, database value of " & oRS.Fields(cStr(sColumn)).Value & " will be ignored.", LogTypeInfo
1749 | 				End if
1750 | 		
1751 | 				If Err then
1752 | 					oRS.Close
1753 | 					iRetVal = Failure
1754 | 					oLogging.CreateEntry "ERROR obtaining " & sElement & " from recordset (Error Number = " & Err.Number & ") (Error Description: " & Err.Description & ").", LogTypeError
1755 | 					Err.Clear
1756 | 					QuerySQL = iRetVal
1757 | 					EXIT FUNCTION
1758 | 		 		End if
1759 | 
1760 | 				On Error Goto 0
1761 | 
1762 | 			Next
1763 | 
1764 | 			oRS.MoveNext
1765 | 
1766 | 		Wend	
1767 | 
1768 | 
1769 | 		oRS.Close
1770 | 
1771 | 		iRetVal = Success
1772 | 		QuerySQL = iRetVal
1773 | 
1774 | 	End Function
1775 | 
1776 | 
1777 | 	'//---------------------------------------------------------------------------
1778 | 	'//  Function:	QueryWebService()
1779 | 	'//  Purpose:	Query web service to obtain data
1780 | 	'//---------------------------------------------------------------------------
1781 | 	Function QueryWebService(sSection)
1782 | 
1783 | 		Dim oWebService
1784 | 		Dim oResults
1785 | 		Dim oNode
1786 | 		Dim iRetVal, sElement, sColumn, objTmp
1787 | 
1788 | 
1789 | 		iRetVal = Success
1790 | 
1791 | 
1792 | 		' Create a web service object
1793 | 
1794 | 		Set oWebService = New WebService
1795 | 		If sSection <> "" then
1796 | 			oWebService.IniFile = LocateINI
1797 | 			oWebService.SectionName = sSection
1798 | 		Else
1799 | 			' Handle the EventService special case
1800 | 			oWebService.WebService = oEnvironment.Item("EventService") & "/MDTMonitorEvent/GetSettings?uniqueID=" & oEnvironment.Item("LTIGUID")
1801 | 			oWebService.Method = "GET"
1802 | 			oWebService.Quiet = True
1803 | 		End if
1804 | 
1805 | 
1806 | 		' Make the web service call
1807 | 
1808 | 		On Error Resume Next
1809 | 		Set oResults = oWebService.Query
1810 | 		If oResults is Nothing then
1811 | 			oLogging.CreateEntry "Web service returned no data.", LogTypeInfo
1812 | 			QueryWebService = false
1813 | 			Exit Function
1814 | 		End if
1815 | 		If oResults.DocumentElement is Nothing then
1816 | 			oLogging.CreateEntry "Web service did not return a document element.", LogTypeInfo
1817 | 			QueryWebService = false
1818 | 			Exit Function
1819 | 		End if
1820 | 		On Error Goto 0
1821 | 
1822 | 
1823 | 		' Process the results
1824 | 
1825 | 		For each sElement in dicProperties.Keys
1826 | 
1827 | 			sColumn = oWebService.TranslateToColumnID(sElement)
1828 | 
1829 | 
1830 | 			' Make sure the column exists in the XML result
1831 | 
1832 | 			For each oNode in oResults.DocumentElement.SelectNodes("//*[translate(local-name(), 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')='" & LCase(sColumn) & "']")
1833 | 
1834 | 				If oNode.childNodes.length = 1 then
1835 | 					If (oNode.childNodes(0).nodeType = 3 or oNode.childNodes(0).nodeType = 4) then
1836 | 
1837 | 						If Len(oNode.Text) = 0 then
1838 | 							' oLogging.CreateEntry sColumn & " = blank, ignoring", LogTypeInfo
1839 | 						Elseif dicLists.Exists(sElement) then  ' Handle array
1840 | 							Set objTmp = oEnvironment.ListItem(sElement)
1841 | 							If not objTmp.Exists(oEnvironment.Substitute(oNode.Text)) then
1842 | 								objTmp.Add oEnvironment.Substitute(oNode.Text), ""
1843 | 								oEnvironment.ListItem(sElement) = objTmp
1844 | 								oLogging.CreateEntry "Added " & sElement & " value from web service:  " & sColumn & " = " & oEnvironment.Substitute(oNode.Text), LogTypeInfo
1845 | 							Else
1846 | 								' oLogging.CreateEntry "Value " & oNode.Text & " already found for " & sElement, LogTypeInfo
1847 | 							End if
1848 | 						ElseIf oEnvironment.Item(sElement) = "" or dicOverwrite.Exists(sElement) then
1849 | 							oEnvironment.Item(sElement) = oEnvironment.Substitute(oNode.Text)
1850 | 							oLogging.CreateEntry "Obtained " & sElement & " value from web service:  " & sColumn & " = " & oEnvironment.Item(sElement), LogTypeInfo
1851 | 						ElseIf oEnvironment.Item(sElement) <> oEnvironment.Substitute(oNode.Text) then
1852 | 							oLogging.CreateEntry "Value for " & sElement & " is already set to " & oEnvironment.Item(sElement) & " so database value of " & oNode.Text & " will be ignored.", LogTypeInfo
1853 | 						Else  ' len(oEnvironment.Item(sElement) > 0
1854 | 							' oLogging.CreateEntry "Value for " & sElement & " is unchanged, web service value of " & oNode.Text & " will be ignored.", LogTypeInfo
1855 | 						End if
1856 | 		
1857 | 					End if
1858 | 				End if
1859 | 
1860 | 			Next
1861 | 
1862 | 		Next
1863 | 
1864 | 		QueryWebService = iRetVal
1865 | 
1866 | 	End Function
1867 | 
1868 | 
1869 | 	'//---------------------------------------------------------------------------
1870 | 	'//  Function:	GetIniGenericSettings()
1871 | 	'//  Purpose:	Get data from the INI section specified
1872 | 	'//---------------------------------------------------------------------------
1873 | 	Function GetIniGenericSettings(sIniFile, sSection)
1874 | 
1875 | 		Dim iRetVal, sSectionExit, sSQLDefaultSection, sElement
1876 | 		Dim sSQLDefault, sSQLServer, sDatabase, sTable
1877 | 		Dim sSubsection, sValue, i, bSkipProperties
1878 | 		Dim objTmp, sWebService
1879 | 
1880 | 
1881 | 		iRetVal = Failure
1882 | 
1883 | 		bSkipProperties = false
1884 | 
1885 | 		oLogging.CreateEntry "------ Processing the [" & sSection & "] section ------", LogTypeInfo
1886 | 
1887 | 
1888 | 		' See if a user exit has been specified.  If so, execute it.
1889 | 
1890 | 		sSectionExit = oUtility.ReadIni(sIniFile, sSection, "UserExit")
1891 | 		If sSectionExit <> "" then
1892 | 
1893 | 			iRetVal = ProcessUserExit(sSectionExit, "SECTION", "BEFORE", sSection, bSkip)
1894 | 			If iRetVal <> Success then
1895 | 				oLogging.CreateEntry "ERROR returned from user exit.  No further processing.", LogTypeError
1896 | 				GetIniGenericSettings = Failure
1897 | 				EXIT FUNCTION
1898 | 			End if
1899 | 			If bSkip then
1900 | 				oLogging.CreateEntry "User exit requested to skip processing this section, exiting.", LogTypeInfo
1901 | 				GetIniGenericSettings = Success
1902 | 				EXIT FUNCTION
1903 | 			End if
1904 | 
1905 | 		End if
1906 | 
1907 | 
1908 | 		' See if this is a database section.  If so, process it.
1909 | 
1910 | 		sSqlServer = oUtility.ReadIni(sIniFile, sSection, "SQLServer")
1911 | 		If sSqlServer <> "" then
1912 | 
1913 | 			bSkipProperties = true
1914 | 			iRetVal = QuerySQL(sSection)
1915 | 
1916 | 		End if
1917 | 
1918 | 
1919 | 		' See if this is a web service section.  If so, process it.
1920 | 
1921 | 		sWebService = oUtility.ReadIni(sIniFile, sSection, "WebService")
1922 | 		If sWebService <> "" then
1923 | 
1924 | 			bSkipProperties = true
1925 | 			iRetVal = QueryWebService(sSection)
1926 | 
1927 | 		End if
1928 | 
1929 | 	
1930 | 		' See if a subsection has been specified.  If so, recursively process it before doing the rest of this
1931 | 		' section.
1932 | 
1933 | 		sSubsection = oUtility.ReadIni(sIniFile, sSection, "Subsection")
1934 | 		If sSubsection <> "" then
1935 | 
1936 | 			sSubsection = oEnvironment.Substitute(sSubsection)
1937 | 			iRetVal = GetIniGenericSettings(sIniFile, sSubsection)
1938 | 			If iRetVal <> Success then
1939 | 				oLogging.CreateEntry "ERROR trying to obtain ini settings.  No further processing.", LogTypeError
1940 | 				WSCRIPT.QUIT iRetVal
1941 | 			End if
1942 | 
1943 | 		End if
1944 | 		sSqlDefault = oUtility.ReadIni(sIniFile, sSection, "SQLDefault")
1945 | 		If sSqlDefault <> "" then
1946 | 			sSubsection = oEnvironment.Substitute(sSqlDefault)
1947 | 			iRetVal = GetIniGenericSettings(sIniFile, sSubsection)
1948 | 			If iRetVal <> Success then
1949 | 				oLogging.CreateEntry "ERROR trying to obtain ini settings.  No further processing.", LogTypeError
1950 | 				WSCRIPT.QUIT iRetVal
1951 | 			End if
1952 | 		End if
1953 | 
1954 | 	
1955 | 		' Finally, process the entries in this section
1956 | 
1957 | 		If not bSkipProperties then
1958 | 	
1959 | 			For each sElement in dicProperties.Keys
1960 | 				If dicLists.Exists(sElement) then
1961 | 					For i = 1 to 100
1962 | 						sValue = oUtility.ReadIni(sIniFile, sSection, sElement & CStr(i))
1963 | 						If Len(sValue) = 0 then
1964 | 							sValue = oUtility.ReadIni(sIniFile, sSection, sElement & Right("000" & CStr(i), 3))
1965 | 						End if
1966 | 						If Len(sValue) = 0 then
1967 | 							Exit For
1968 | 						End if
1969 | 						sValue = oEnvironment.Substitute(sValue)
1970 | 						Set objTmp = oEnvironment.ListItem(sElement)
1971 | 						If not objTmp.Exists(sValue) then
1972 | 							objTmp.Add sValue, ""
1973 | 							oEnvironment.ListItem(sElement) = objTmp
1974 | 							oLogging.CreateEntry "Added value from [" & sSection & "]: " & sElement & " = " & sValue, LogTypeInfo
1975 | 						End if
1976 | 					Next
1977 | 				Else
1978 | 					sValue = oUtility.ReadIni(sIniFile, sSection, sElement)
1979 | 					If Len(sValue) = 0 then
1980 | 						' oLogging.CreateEntry sElement & " value not defined in the section [" & sSection & "]", LogTypeInfo
1981 | 					ElseIf Len(oEnvironment.Item(sElement)) = 0 or dicOverwrite.Exists(sElement) then
1982 | 						oEnvironment.Item(sElement) = oEnvironment.Substitute(sValue)
1983 | 						oLogging.CreateEntry "Using from [" & sSection & "]: " & sElement & " = " & oEnvironment.Item(sElement), LogTypeInfo
1984 | 					End if
1985 | 				End if
1986 | 			Next
1987 | 
1988 | 		End if
1989 | 
1990 | 
1991 | 		' See if a user exit has been specified.  If so, execute it.
1992 | 
1993 | 		sSectionExit = oUtility.ReadIni(sIniFile, sSection, "UserExit")
1994 | 		If sSectionExit <> "" then
1995 | 
1996 | 			iRetVal = ProcessUserExit(sSectionExit, "SECTION", "AFTER", sSection, bSkip)
1997 | 			If iRetVal <> Success then
1998 | 				oLogging.CreateEntry "ERROR returned from user exit.  No further processing.", LogTypeError
1999 | 				GetIniGenericSettings = Failure
2000 | 				EXIT FUNCTION
2001 | 			End if
2002 | 
2003 | 		End if
2004 | 
2005 | 
2006 | 		iRetVal = Success
2007 | 		GetIniGenericSettings = iRetVal
2008 | 
2009 | 	End Function
2010 | 
2011 | 
2012 | 	'//---------------------------------------------------------------------------
2013 | 	'//  Function:	ProcessUserExit()
2014 | 	'//  Purpose:	Call the specified user exit routine
2015 | 	'//---------------------------------------------------------------------------
2016 | 	Function ProcessUserExit(sFile, sType, sWhen, sDetail, bSkip)
2017 | 
2018 | 		Dim sFullFile, iRetVal
2019 | 		Dim objExitScript, sExitScript
2020 | 
2021 | 
2022 | 		On Error Resume Next
2023 | 
2024 | 		' Make sure the specified exit file exists.  If not, report an error.
2025 | 
2026 | 		iRetVal = oUtility.FindFile(sFile, sFullFile)
2027 | 		If iRetVal <> Success then
2028 | 			oLogging.CreateEntry "ERROR - User exit script file """ & sFile & """ not found.", LogTypeError
2029 | 			ProcessUserExit = Failure
2030 | 			EXIT FUNCTION
2031 | 		End if
2032 | 
2033 | 
2034 | 		' Read the file
2035 | 
2036 | 		Set objExitScript = oFSO.OpenTextFile(sFullFile, 1, false)
2037 | 		sExitScript = objExitScript.ReadAll
2038 | 
2039 | 
2040 | 		' Execute the text to dynamically add the function.
2041 | 
2042 | 		ExecuteGlobal sExitScript
2043 | 		If Err then
2044 | 			oLogging.CreateEntry "ERROR - Unable to parse the user exit script file:  " & Err.Description & " (" & Err.Number & ")", LogTypeError
2045 | 			ProcessUserExit = Failure
2046 | 			EXIT FUNCTION
2047 | 		End if
2048 | 
2049 | 
2050 | 		' Call the exit
2051 | 
2052 | 		bSkip = False
2053 | 		iRetVal = UserExit(sType, sWhen, sDetail, bSkip)
2054 | 		If Err then
2055 | 			oLogging.CreateEntry "ERROR raised in User Exit:  " & Err.Description & " (" & Err.Number & ")", LogTypeError
2056 | 			ProcessUserExit = Failure
2057 | 			EXIT FUNCTION
2058 | 		ElseIf iRetVal <> Success then
2059 | 			oLogging.CreateEntry "ERROR - User exit returned failure return value.", LogTypeError
2060 | 			ProcessUserExit = Failure
2061 | 			EXIT FUNCTION
2062 | 		End if
2063 | 
2064 | 		oLogging.CreateEntry "User exit """ & sFullFile & """ called successfully, skip = " & bSkip & ".", LogTypeInfo
2065 | 		ProcessUserExit = Success
2066 | 
2067 | 	End Function
2068 | 
2069 | 
2070 | 	'//----------------------------------------------------------------------------
2071 | 	'//  Utility routines
2072 | 	'//----------------------------------------------------------------------------
2073 | 
2074 | 
2075 | 	'//---------------------------------------------------------------------------
2076 | 	'//  Function:	SyncEnvironment
2077 | 	'//  Purpose:	Make sure the task sequence environment has current values
2078 | 	'//---------------------------------------------------------------------------
2079 | 	Sub SyncEnvironment
2080 | 
2081 | 		'//  Make sure the environment is in sync (VARIABLES.DAT vs. TS/OSD env)
2082 | 
2083 | 		oLogging.CreateEntry "Synchronizing the environments.", LogTypeInfo
2084 | 
2085 | 		If oEnvironment.GetDAT("DeployRoot") <> "" then
2086 | 			oEnvironment.Item("DeployRoot") = oEnvironment.GetDAT("DeployRoot")
2087 | 		End if
2088 | 		If oEnvironment.GetDAT("DeployDrive") <> "" then
2089 | 			oEnvironment.Item("DeployDrive") = oEnvironment.GetDAT("DeployDrive")
2090 | 		End if
2091 | 		If oEnvironment.GetDAT("ResourceRoot") <> "" then
2092 | 			oEnvironment.Item("ResourceRoot") = oEnvironment.GetDAT("ResourceRoot")
2093 | 		End if
2094 | 		If oEnvironment.GetDAT("ResourceDrive") <> "" then
2095 | 			oEnvironment.Item("ResourceDrive") = oEnvironment.GetDAT("ResourceDrive")
2096 | 		End if
2097 | 		If oEnvironment.GetDAT("OSDTargetDriveCache") <> "" then
2098 | 			oEnvironment.Item("OSDTargetDriveCache") = oEnvironment.GetDAT("OSDTargetDriveCache")
2099 | 		End if
2100 | 
2101 | 		oLogging.CreateEntry "Finished synchronizing the environments.", LogTypeInfo
2102 | 
2103 | 	End Sub
2104 | 
2105 | 
2106 | 
2107 | 	'//---------------------------------------------------------------------------
2108 | 	'//  Function:	RemapVariables
2109 | 	'//  Purpose:	Remap old variable names to new variable names
2110 | 	'//---------------------------------------------------------------------------
2111 | 	Function RemapVariables
2112 | 
2113 | 		oLogging.CreateEntry "Remapping variables.", LogTypeInfo
2114 | 
2115 | 
2116 | 	 	'Provide mapping between BuildID and TaskSequenceID
2117 | 
2118 | 		If oEnvironment.Item("TaskSequenceID") = "" and oEnvironment.Item("BuildID")<>"" then
2119 | 			oEnvironment.Item("TaskSequenceID") = Ucase(oEnvironment.Item("BuildID"))
2120 | 		End if
2121 | 	
2122 | 		If oEnvironment.Item("SkipTaskSequence") = "" and oEnvironment.Item("SkipBuild")<>"" then
2123 | 			oEnvironment.Item("SkipTaskSequence") = oEnvironment.Item("SkipBuild")
2124 | 		End if
2125 | 		oEnvironment.Item("TaskSequenceID") = Ucase(oEnvironment.Item("TaskSequenceID"))
2126 | 		oEnvironment.Item("DeploymentType") = Ucase(oEnvironment.Item("DeploymentType"))
2127 | 		If UCase(oEnvironment.Item("BdeInstall")) = "NO" then
2128 | 			oEnvironment.Item("BdeInstallSuppress") = "YES"
2129 | 		End if
2130 | 
2131 | 		If oEnvironment.Item("JoinDomain") <> "" Then
2132 | 			oEnvironment.Item("OSDNetworkJoinType") = "0"
2133 | 			oEnvironment.Item("OSDDomainName") = oEnvironment.Item("JoinDomain")
2134 | 
2135 | 			If oEnvironment.Item("DomainAdmin") <> "" Then
2136 | 				oEnvironment.Item("OSDJoinAccount") = oEnvironment.Item("DomainAdminDomain") & "\" & oEnvironment.Item("DomainAdmin")
2137 | 				oEnvironment.Item("OSDJoinPassword") = oEnvironment.Item("DomainAdminPassword")	
2138 | 			End if
2139 | 			If oEnvironment.Item("MachineObjectOU") <> "" Then
2140 | 				oEnvironment.Item("OSDDomainOUName") = oEnvironment.Item("MachineObjectOU")
2141 | 			End if
2142 | 		
2143 | 		End if
2144 | 
2145 | 		If oEnvironment.Item("JoinWorkgroup") <> "" Then
2146 | 			oEnvironment.Item("OSDNetworkJoinType") = "1"
2147 | 			oEnvironment.Item("OSDWorkGroupName") = oEnvironment.Item("JoinWorkGroup")
2148 | 		End if
2149 | 
2150 | 
2151 | 		oLogging.CreateEntry "Finished remapping variables.", LogTypeInfo
2152 | 
2153 | 	End Function
2154 | 
2155 | 	'//---------------------------------------------------------------------------
2156 | 	'//  Function:	LocateIni
2157 | 	'//  Purpose:	Find the rules INI file specified or a default
2158 | 	'//---------------------------------------------------------------------------
2159 | 	Function LocateIni
2160 | 
2161 | 		Dim sIniFile
2162 | 		Dim sFoundIniFile
2163 | 
2164 | 		oLogging.CreateEntry "Determining the INI file to use.", LogTypeInfo
2165 | 
2166 | 
2167 | 		' Get the command line values.  If not specified, they will be blank.
2168 | 	
2169 | 		If oEnvironment.Item("RulesFile") <> "" then
2170 | 			sIniFile = oEnvironment.Item("RulesFile")
2171 | 		Else
2172 | 			sIniFile = oUtility.Arguments("inifile")
2173 | 		End if
2174 | 
2175 | 
2176 | 		' Determine the INI file path and name
2177 | 
2178 | 		If Len(sIniFile) = 0 then
2179 | 			iRetVal = oUtility.FindFile("CustomSettings.ini", sIniFile)
2180 | 			If iRetVal = Success then
2181 | 				oLogging.CreateEntry "Using DEFAULT VALUE: Ini file = " & sIniFile, LogTypeInfo
2182 | 			End if
2183 | 		Else
2184 | 			If not oFSO.FileExists(sIniFile) then
2185 | 				iRetVal = oUtility.FindFile(sIniFile, sFoundIniFile)
2186 | 				If iRetVal = Success then
2187 | 					sIniFile = sFoundIniFile
2188 | 				Else
2189 | 					oLogging.CreateEntry "Unable to locate " & sIniFile, LogTypeInfo
2190 | 					sIniFile = ""
2191 | 				End if
2192 | 			Else
2193 | 				oLogging.CreateEntry "Using COMMAND LINE ARG: Ini file = " & sIniFile, LogTypeInfo
2194 | 			End if
2195 | 		End if
2196 | 
2197 | 
2198 | 		oLogging.CreateEntry "Finished determining the INI file to use.", LogTypeInfo
2199 | 
2200 | 
2201 | 		' Return the located file (this will be blank of none was found)
2202 | 
2203 | 		LocateIni = sIniFile
2204 | 
2205 | 	End Function
2206 | 
2207 | 
2208 | 	'//---------------------------------------------------------------------------
2209 | 	'//  Function:	KeyExists()
2210 | 	'//  Purpose:	Tests to see if the specified registry key exists
2211 | 	'//---------------------------------------------------------------------------
2212 | 	Function KeyExists(sRegKey)
2213 | 
2214 | 		Dim ErrDesc(1)
2215 | 
2216 | 
2217 | 		KeyExists = True
2218 | 
2219 | 		On Error Resume Next
2220 | 
2221 | 		oShell.RegRead(vbCR)
2222 | 		ErrDesc(0) = Replace(Err.Description,vbCR,"")
2223 | 		Err.Clear
2224 | 
2225 | 		oShell.RegRead(sRegKey)
2226 | 		ErrDesc(1) = Replace(Err.Description,sRegKey,"")
2227 | 		Err.Clear
2228 | 
2229 | 		If ErrDesc(0) = ErrDesc(1) Then KeyExists = False
2230 | 
2231 | 	End Function
2232 | 
2233 | End Class
2234 | 
2235 | 	</script>
2236 | </job>
2237 | 


--------------------------------------------------------------------------------
/MDT/MDTScripts/img0.jpg:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/cluberti/MDT/266d6c51b385e6c2643af6f33a2640b2be2b9f0a/MDT/MDTScripts/img0.jpg


--------------------------------------------------------------------------------
/MDT/Packages/Readme_Packages.txt:
--------------------------------------------------------------------------------
1 | Place MSU or CAB files containing hotfixes, updates, or language packs into this folder.
2 | If adding x86 and x64 packages, or packages for multiple operating systems, edit the CreateMDTShare.ps1 script
3 | so that packages are placed in proper folder structures (as this will control Selection Profiles created via the script).


--------------------------------------------------------------------------------
/MDT/Settings.xml:
--------------------------------------------------------------------------------
 1 | <Settings>
 2 |   <Version>True</Version>
 3 |   <Description>Build Share</Description>
 4 |   <Comments>
 5 |   </Comments>
 6 |   <EnableMulticast>False</EnableMulticast>
 7 |   <SupportX86>True</SupportX86>
 8 |   <SupportX64>True</SupportX64>
 9 |   <UNCPath>\\MDT1\BuildShare$</UNCPath>
10 |   <PhysicalPath>M:\BuildShare</PhysicalPath>
11 |   <MonitorHost>
12 |   </MonitorHost>
13 |   <MonitorEventPort>9800</MonitorEventPort>
14 |   <MonitorDataPort>9801</MonitorDataPort>
15 |   <SkipWimSplit>True</SkipWimSplit>
16 |   <Boot.x86.UseBootWim>True</Boot.x86.UseBootWim>
17 |   <Boot.x86.ScratchSpace>128</Boot.x86.ScratchSpace>
18 |   <Boot.x86.IncludeAllDrivers>False</Boot.x86.IncludeAllDrivers>
19 |   <Boot.x86.IncludeNetworkDrivers>True</Boot.x86.IncludeNetworkDrivers>
20 |   <Boot.x86.IncludeMassStorageDrivers>True</Boot.x86.IncludeMassStorageDrivers>
21 |   <Boot.x86.IncludeVideoDrivers>False</Boot.x86.IncludeVideoDrivers>
22 |   <Boot.x86.IncludeSystemDrivers>False</Boot.x86.IncludeSystemDrivers>
23 |   <Boot.x86.BackgroundFile>%INSTALLDIR%\Samples\Background.bmp</Boot.x86.BackgroundFile>
24 |   <Boot.x86.ExtraDirectory>
25 |   </Boot.x86.ExtraDirectory>
26 |   <Boot.x86.GenerateGenericWIM>False</Boot.x86.GenerateGenericWIM>
27 |   <Boot.x86.GenerateGenericISO>False</Boot.x86.GenerateGenericISO>
28 |   <Boot.x86.GenericWIMDescription>Generic Windows PE (x86)</Boot.x86.GenericWIMDescription>
29 |   <Boot.x86.GenericISOName>Generic_x86.iso</Boot.x86.GenericISOName>
30 |   <Boot.x86.GenerateLiteTouchISO>False</Boot.x86.GenerateLiteTouchISO>
31 |   <Boot.x86.LiteTouchWIMDescription>Lite Touch Windows PE (x86)</Boot.x86.LiteTouchWIMDescription>
32 |   <Boot.x86.LiteTouchISOName>LiteTouchPE_x86.iso</Boot.x86.LiteTouchISOName>
33 |   <Boot.x86.SelectionProfile>Nothing</Boot.x86.SelectionProfile>
34 |   <Boot.x86.SupportUEFI>True</Boot.x86.SupportUEFI>
35 |   <Boot.x86.FeaturePacks>winpe-mdac</Boot.x86.FeaturePacks>
36 |   <Boot.x64.UseBootWim>True</Boot.x64.UseBootWim>
37 |   <Boot.x64.ScratchSpace>128</Boot.x64.ScratchSpace>
38 |   <Boot.x64.IncludeAllDrivers>False</Boot.x64.IncludeAllDrivers>
39 |   <Boot.x64.IncludeNetworkDrivers>True</Boot.x64.IncludeNetworkDrivers>
40 |   <Boot.x64.IncludeMassStorageDrivers>True</Boot.x64.IncludeMassStorageDrivers>
41 |   <Boot.x64.IncludeVideoDrivers>False</Boot.x64.IncludeVideoDrivers>
42 |   <Boot.x64.IncludeSystemDrivers>False</Boot.x64.IncludeSystemDrivers>
43 |   <Boot.x64.BackgroundFile>%INSTALLDIR%\Samples\Background.bmp</Boot.x64.BackgroundFile>
44 |   <Boot.x64.ExtraDirectory>
45 |   </Boot.x64.ExtraDirectory>
46 |   <Boot.x64.GenerateGenericWIM>False</Boot.x64.GenerateGenericWIM>
47 |   <Boot.x64.GenerateGenericISO>False</Boot.x64.GenerateGenericISO>
48 |   <Boot.x64.GenericWIMDescription>Generic Windows PE (x64)</Boot.x64.GenericWIMDescription>
49 |   <Boot.x64.GenericISOName>Generic_x64.iso</Boot.x64.GenericISOName>
50 |   <Boot.x64.GenerateLiteTouchISO>False</Boot.x64.GenerateLiteTouchISO>
51 |   <Boot.x64.LiteTouchWIMDescription>Lite Touch Windows PE (x64)</Boot.x64.LiteTouchWIMDescription>
52 |   <Boot.x64.LiteTouchISOName>LiteTouchPE_x64.iso</Boot.x64.LiteTouchISOName>
53 |   <Boot.x64.SelectionProfile>Nothing</Boot.x64.SelectionProfile>
54 |   <Boot.x64.SupportUEFI>True</Boot.x64.SupportUEFI>
55 |   <Boot.x64.FeaturePacks>winpe-mdac</Boot.x64.FeaturePacks>
56 |   <Database.SQLServer>
57 |   </Database.SQLServer>
58 |   <Database.Instance>
59 |   </Database.Instance>
60 |   <Database.Port>
61 |   </Database.Port>
62 |   <Database.Netlib>
63 |   </Database.Netlib>
64 |   <Database.Name>
65 |   </Database.Name>
66 |   <Database.SQLShare>
67 |   </Database.SQLShare>
68 | </Settings>
69 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
1 | # MDT
2 | Build script for a basic MDT install
3 | 
4 | This script is a work-in-progress, but it does work on Server 2012R2 and Windows 10.  I have not tested it downlevel, and I'd wager it probably wouldn't work on 2008R2 or Windows 7.
5 | 
6 | This script makes some assumptions that you can see when reviewing it - it assumes you will provide a path to a folder that contains ISO files, as well as a folder with custom scripts (if you so choose) and a custom settings.xml file (which I will have in the repository along with some sample custom scripts).  Feedback or changes/fixes always welcome.
7 | 


--------------------------------------------------------------------------------