Functions/Get-BcComponent.ps1
|
<#
.Synopsis Scans host system on installed NAV components, installation location and installation details .DESCRIPTION Scans host system on installed NAV components, installation location and installation details .PARAMETER BcVersion The Bc Version, example: 'bc15', 'nav2017', 'nav2018', 'nav2013 R2' .EXAMPLE $NavComponents = Get-NavComponents -BcVersion "2017" .EXAMPLE $NavComponents = Get-NavComponents -BcVersion "2013 R2" #> function Get-BcComponent { [CmdletBinding()] [OutputType([array])] Param ( [Parameter(Mandatory=$true, ValueFromPipeline=$true, Position=0)] $BcVersion ) Begin { # Validate BC Version and get BC version folder $BcVersion = Get-BcVersion -BcVersion $BcVersion # Excluded: BPA, TestToolKit, UpgradeToolKit, WindowsPowerShellScripts $Adcs = New-Object System.Object $Adcs | Add-Member -MemberType NoteProperty -Name "Component" -Value 'ADCS' $Adcs | Add-Member -MemberType NoteProperty -Name "DisplayName" -Value 'Microsoft Dynamics NAV Automated Data Capture System' $Adcs | Add-Member -MemberType NoteProperty -Name "IsInstalled" -Value $False $Adcs | Add-Member -MemberType NoteProperty -Name "InstallLocation" -Value "" $Adcs | Add-Member -MemberType NoteProperty -Name "DisplayVersion" -Value "" $Adcs | Add-Member -MemberType NoteProperty -Name "InstallSource" -Value "" $Adcs | Add-Member -MemberType NoteProperty -Name "Bit" -Value "" $Adcs | Add-Member -MemberType NoteProperty -Name "RegKey" -Value "" if($BcVersion.ProductAbb -eq 'BC'){ $DisplayName = 'Microsoft Dynamics 365 Business Central Help' } if($BcVersion.ProductAbb -eq 'NAV'){ $DisplayName = 'Microsoft Dynamics NAV {0} Help' -f $BcVersion.VersionNumber } $HelpServer = New-Object System.Object $HelpServer | Add-Member -MemberType NoteProperty -Name "Component" -Value "HelpServer" $HelpServer | Add-Member -MemberType NoteProperty -Name "DisplayName" -Value $DisplayName $HelpServer | Add-Member -MemberType NoteProperty -Name "IsInstalled" -Value $False $HelpServer | Add-Member -MemberType NoteProperty -Name "InstallLocation" -Value "" $HelpServer | Add-Member -MemberType NoteProperty -Name "DisplayVersion" -Value "" $HelpServer | Add-Member -MemberType NoteProperty -Name "InstallSource" -Value "" $HelpServer | Add-Member -MemberType NoteProperty -Name "Bit" -Value "" $HelpServer | Add-Member -MemberType NoteProperty -Name "RegKey" -Value "" if($BcVersion.ProductAbb -eq 'BC'){ $DisplayName = 'Microsoft Dynamics 365 Business Central Server' } if($BcVersion.ProductAbb -eq 'NAV'){ $DisplayName = 'Microsoft Dynamics NAV {0} Server' -f $BcVersion.VersionNumber } $Nst = New-Object System.Object $Nst | Add-Member -MemberType NoteProperty -Name "Component" -Value "NST" $Nst | Add-Member -MemberType NoteProperty -Name "DisplayName" -Value $DisplayName $Nst | Add-Member -MemberType NoteProperty -Name "IsInstalled" -Value $False $Nst | Add-Member -MemberType NoteProperty -Name "InstallLocation" -Value "" $Nst | Add-Member -MemberType NoteProperty -Name "DisplayVersion" -Value "" $Nst | Add-Member -MemberType NoteProperty -Name "InstallSource" -Value "" $Nst | Add-Member -MemberType NoteProperty -Name "Bit" -Value "" $Nst | Add-Member -MemberType NoteProperty -Name "RegKey" -Value "" if($BcVersion.ProductAbb -eq 'BC'){ $DisplayName = 'Microsoft Dynamics 365 Business Central Outlook Add-in' } if($BcVersion.ProductAbb -eq 'NAV'){ $DisplayName = 'Microsoft Dynamics NAV {0} Outlook Add-in' -f $BcVersion.VersionNumber } $Outlook = New-Object System.Object $Outlook | Add-Member -MemberType NoteProperty -Name "Component" -Value "OUTLOOK" $Outlook | Add-Member -MemberType NoteProperty -Name "DisplayName" -Value $DisplayName $Outlook | Add-Member -MemberType NoteProperty -Name "IsInstalled" -Value $False $Outlook | Add-Member -MemberType NoteProperty -Name "InstallLocation" -Value "" $Outlook | Add-Member -MemberType NoteProperty -Name "DisplayVersion" -Value "" $Outlook | Add-Member -MemberType NoteProperty -Name "InstallSource" -Value "" $Outlook | Add-Member -MemberType NoteProperty -Name "Bit" -Value "" $Outlook | Add-Member -MemberType NoteProperty -Name "RegKey" -Value "" if($BcVersion.ProductAbb -eq 'BC'){ $DisplayName = 'Microsoft Dynamics NAV RoleTailored Client' } if($BcVersion.ProductAbb -eq 'NAV'){ $DisplayName = 'Microsoft Dynamics NAV {0} RoleTailored Client' -f $BcVersion.VersionNumber } $Rtc = New-Object System.Object $Rtc | Add-Member -MemberType NoteProperty -Name "Component" -Value "RTC" $Rtc | Add-Member -MemberType NoteProperty -Name "DisplayName" -Value $DisplayName $Rtc | Add-Member -MemberType NoteProperty -Name "IsInstalled" -Value $False $Rtc | Add-Member -MemberType NoteProperty -Name "InstallLocation" -Value "" $Rtc | Add-Member -MemberType NoteProperty -Name "DisplayVersion" -Value "" $Rtc | Add-Member -MemberType NoteProperty -Name "InstallSource" -Value "" $Rtc | Add-Member -MemberType NoteProperty -Name "Bit" -Value "" $Rtc | Add-Member -MemberType NoteProperty -Name "RegKey" -Value "" if($BcVersion.ProductAbb -eq 'BC'){ $DisplayName = 'Microsoft Dynamics 365 Business Central Web Client' } if($BcVersion.ProductAbb -eq 'NAV'){ $DisplayName = 'Microsoft Dynamics NAV {0} Web Client' -f $BcVersion.VersionNumber } $WebClient = New-Object System.Object $WebClient | Add-Member -MemberType NoteProperty -Name "Component" -Value "WEB CLIENT" $WebClient | Add-Member -MemberType NoteProperty -Name "DisplayName" -Value $DisplayName $WebClient | Add-Member -MemberType NoteProperty -Name "IsInstalled" -Value $False $WebClient | Add-Member -MemberType NoteProperty -Name "InstallLocation" -Value "" $WebClient | Add-Member -MemberType NoteProperty -Name "DisplayVersion" -Value "" $WebClient | Add-Member -MemberType NoteProperty -Name "InstallSource" -Value "" $WebClient | Add-Member -MemberType NoteProperty -Name "Bit" -Value "" $WebClient | Add-Member -MemberType NoteProperty -Name "RegKey" -Value "" $NavComponents = @( $Adcs,$HelpServer,$Nst,$Outlook,$OutlookServer,$Rtc,$WebClient) } Process { Get-NavComponentsFromWinReg Get-NavComponentPaths } End { return $NavComponents } } Export-ModuleMember -Function Get-BcComponent function Get-NavComponentsFromWinReg { # Create an instance of the Registry Object and open the HKLM base key $Reg = [Microsoft.Win32.RegistryKey]::OpenRemoteBaseKey('LocalMachine',$($env:computername)) $Architectures = @("32", "64") foreach ($Architecture in $Architectures) { if ($Architecture -eq "32") { # Reg locations of currently Installed 32bit or 32/64bit programs $UninstallKey = "SOFTWARE\\WOW6432Node\\Microsoft\\Windows\\CurrentVersion\\Uninstall" } if ($Architecture -eq "64") { # Reg locations of currently Installed 64bit programs $UninstallKey = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall" } # Drill down into the Uninstall key for the corresponding architecture using the OpenSubKey Method $Regkey = $Reg.OpenSubKey($UninstallKey) Write-Verbose "Reg path for $Architecture bit: $UninstallKey" # Retrieve an array of string that contain all the subkey names from the Uninstall registery tree $subkeys = $Regkey.GetSubKeyNames() # Open each Subkey to check if it's a NAV component foreach ($key in $subkeys) { $thisKey = $UninstallKey + "\\" + $key # Open the subkey $thisSubKey = $Reg.OpenSubKey($thisKey) # If the regkey doesn't contain a NAV component: continue if (($thisSubKey.GetValue("DisplayName")) -notin $NavComponents.Displayname) { continue } # Match the regkey with the correct NAV components and add the information from the regkey to the nav component array foreach ($Component in $NavComponents) { if ($Component.Displayname -ne $($thisSubKey.GetValue("DisplayName"))) { continue } # If the display name matches, check if the major version of the product correspond. # Unlike NAV the Business Central releases do not have an unique identifiers in the displayname (just like ADCS always had). if ($($thisSubKey.GetValue("DisplayVersion")) -notlike ('{0}*' -f $BcVersion.VersionFolder.Substring(0,2))) { continue } $Component.DisplayVersion = $($thisSubKey.GetValue("DisplayVersion")) $Component.InstallLocation = $($thisSubKey.GetValue("InstallLocation")) $Component.InstallSource = $($thisSubKey.GetValue("InstallSource")) $Component.RegKey = $thisKey $Component.Bit = $Architecture #Validate the found component path if ($Component.InstallLocation) { if (Test-Path -Path $Component.InstallLocation) { $Component.IsInstalled = $True Write-Verbose "" Write-Verbose "$($Component.Displayname) found" Write-Verbose "File location: $($Component.InstallLocation)" Write-Verbose "Register location: $($Component.RegKey)" continue } # End if } # End if Write-Verbose "" Write-Verbose "$($Component.Displayname) found" Write-Verbose "Register location: $($Component.RegKey)" } # End foreach component } # End foreach subkey } # End foreach architecture $Reg.Close() } # End function Get-NavComponentsFromWinReg function Get-NavComponentPaths { foreach ($Component in $NavComponents) { if ($Component.Component -eq "ADCS") { $RegPath = 'SOFTWARE\\WOW6432Node\\Microsoft\\Microsoft Dynamics NAV\\{0}\\Automated Data Capture System' -f $BCVersion.VersionFolder } if ($Component.Component -eq "HelpServer") { $RegPath = 'SOFTWARE\\Microsoft\\Microsoft Dynamics NAV\\{0}\\DynamicsNAV{0}Help' -f $BCVersion.VersionFolder } if ($Component.Component -eq "NST") { $RegPath = 'SOFTWARE\\Microsoft\\Microsoft Dynamics NAV\\{0}\\Service' -f $BCVersion.VersionFolder } if ($Component.Component -eq "OUTLOOK") { $RegPath = 'SOFTWARE\\WOW6432Node\\Microsoft\\Microsoft Dynamics NAV\\{0}\\OutlookAddin' -f $BCVersion.VersionFolder } if ($Component.Component -eq "OUTLOOKSERVER") { $RegPath = '' } if ($Component.Component -eq "RTC") { $RegPath = 'SOFTWARE\\WOW6432Node\\Microsoft\\Microsoft Dynamics NAV\\{0}\\RoleTailored Client' -f $BCVersion.VersionFolder } if ($Component.Component -eq "WEB CLIENT") { $RegPath = 'SOFTWARE\\Microsoft\\Microsoft Dynamics NAV\\{0}\\Web Client' -f $BCVersion.VersionFolder } $ComponentPath = Get-NavComponentPath ($RegPath) if ($ComponentPath) { $Component.IsInstalled = $True $Component.InstallLocation = $ComponentPath } Clear-Variable RegPath Clear-Variable ComponentPath } } # End function GetNavComponentPaths function Get-NavComponentPath ($RegPath) { # Create an instance of the Registry Object and open the HKLM base key $Reg = [Microsoft.Win32.RegistryKey]::OpenRemoteBaseKey('LocalMachine',$($env:computername)) $RegKey = $Reg.OpenSubKey($RegPath) if ($RegKey) { if ($($RegKey.GetValue("Path"))) { if (Test-Path -Path $($RegKey.GetValue("Path"))) { $ComponentPath = $RegKey.GetValue("Path") return $ComponentPath } } } $ComponentPath = $False $Reg.Close() return $ComponentPath } # End function GetNavComponentPath |