AdcsOnlineResponder: Convert to class-based

CHANGELOG.md

@@ -7,7 +7,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ### Changed
 
-- ActiveDirectoryCSDsc
+- `ActiveDirectoryCSDsc`
   - Automatically publish documentation to GitHub Wiki - Fixes [Issue #122](https://github.com/dsccommunity/ActiveDirectoryCSDsc/issues/122).
   - Revert Pester to non-prerelease.
   - Use DscResource.Base pre-release.
@@ -22,7 +22,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 - `Tests` - Migrate all tests to Pester 5.
 - Include module file in code coverage.
 - Add RootModule to Module psd1.
-- AdcsAuthorityInformationAccess
+- `AdcsAuthorityInformationAccess`
   - Removed `AllowRestartService` parameter from compared settings, force `Get-CaAiaUriList`
     to return unmangled `System.String[]` with single values.
     Fixes [Issue #128](https://github.com/dsccommunity/ActiveDirectoryCSDsc/issues/128)
@@ -35,6 +35,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
   - Move to Private function.
 - `Restart-ServiceIfExists`
   - Change Write-Verbose to Write-Debug.
+- `AdcsOnlineResponder`
+  - Convert to class-based resource [#155](https://github.com/dsccommunity/ActiveDirectoryCSDsc/issues/155).
 
 ### Added
 

RequiredModules.psd1

@@ -38,7 +38,12 @@
             AllowPrerelease = $true
         }
     }
-    'DscResource.Common'           = 'latest'
+    'DscResource.Common'           = @{
+        Version    = 'latest'
+        Parameters = @{
+            AllowPrerelease = $true
+        }
+    }
 
     # Analyzer rules
     'DscResource.AnalyzerRules'    = 'latest'

source/Classes/020.AdcsOnlineResponder.ps1

@@ -0,0 +1,144 @@
+<#
+    .SYNOPSIS
+        The `AdcsOnlineResponder` DSC resource is used to configure the
+        ADCS Online Responder after the feature has been installed on the server.
+
+    .DESCRIPTION
+        This resource can be used to install an ADCS Online Responder after the feature
+        has been installed on the server.
+        Using this DSC Resource to configure an ADCS Certificate Authority assumes that
+        the ```ADCS-Online-Responder``` feature has already been installed.
+
+    .PARAMETER IsSingleInstance
+        Specifies the resource is a single instance, the value must be 'Yes'.
+
+    .PARAMETER Credential
+        If the Online Responder service is configured to use Standalone certification authority,
+        then an account that is a member of the local Administrators on the CA is required. If
+        the Online Responder service is configured to use an Enterprise CA, then an account that
+        is a member of Domain Admins is required.
+
+    .PARAMETER Ensure
+        Specifies whether the Online Responder feature should be installed or uninstalled.
+
+    .PARAMETER Reasons
+        Returns the reason a property is not in desired state.
+
+    .NOTES
+        Used Functions:
+            Name                          | Module
+            ----------------------------- |-------------------
+            Install-AdcsOnlineResponder   | ADCSDeployment
+            Uninstall-AdcsOnlineResponder | ADCSDeployment
+            Assert-Module                 | DscResource.Common
+            New-InvalidOperationException | DscResource.Common
+#>
+
+[DscResource()]
+class AdcsOnlineResponder : ResourceBase
+{
+    [DscProperty(Key)]
+    [System.String]
+    $IsSingleInstance = 'Yes'
+
+    [DscProperty(Mandatory)]
+    [System.Management.Automation.PSCredential]
+    [System.Management.Automation.Credential()]
+    $Credential
+
+    [DscProperty()]
+    [Ensure]
+    $Ensure = [Ensure]::Present
+
+    [DscProperty(NotConfigurable)]
+    [AdcsReason[]]
+    $Reasons
+
+    AdcsOnlineResponder () : base ($PSScriptRoot)
+    {
+        # These properties will not be enforced.
+        $this.ExcludeDscProperties = @(
+            'IsSingleInstance'
+            'Credential'
+        )
+    }
+
+    [AdcsOnlineResponder] Get()
+    {
+        # Call the base method to return the properties.
+        return ([ResourceBase] $this).Get()
+    }
+
+    # Base method Get() calls this method to get the current state as a Hashtable.
+    [System.Collections.Hashtable] GetCurrentState([System.Collections.Hashtable] $properties)
+    {
+        try
+        {
+            $null = Install-AdcsOnlineResponder -Credential $this.Credential -WhatIf
+
+            return @{}
+        }
+        catch
+        {
+            if ($_.Exception.GetType().FullName -eq 'Microsoft.CertificateServices.Deployment.Common.OCSP.OnlineResponderSetupException')
+            {
+                return @{
+                    IsSingleInstance = $this.IsSingleInstance
+                }
+            }
+
+            return New-InvalidOperationException -Message $this.localizedData.ErrorGetCurrentState -ErrorRecord $_
+        }
+    }
+
+    [void] Set()
+    {
+        # Call the base method to enforce the properties.
+        ([ResourceBase] $this).Set()
+    }
+
+    <#
+        Base method Set() call this method with the properties that should be
+        enforced and that are not in desired state.
+    #>
+    hidden [void] Modify([System.Collections.Hashtable] $properties)
+    {
+        if ($properties.ContainsKey('Ensure') -and $properties.Ensure -eq [Ensure]::Absent)
+        {
+            try
+            {
+                Uninstall-AdcsOnlineResponder -Force
+            }
+            catch
+            {
+                New-InvalidOperationException -Message $_.Exception.Message -ErrorRecord $_
+            }
+        }
+        else
+        {
+            try
+            {
+                Install-AdcsOnlineResponder -Credential $this.Credential -Force
+            }
+            catch
+            {
+                New-InvalidOperationException -Message $_.Exception.Message -ErrorRecord $_
+            }
+        }
+    }
+
+    [System.Boolean] Test()
+    {
+        # Call the base method to test all of the properties that should be enforced.
+        return ([ResourceBase] $this).Test()
+    }
+
+    <#
+        Base method Assert() call this method with the properties that was assigned
+        a value.
+    #>
+    hidden [void] AssertProperties([System.Collections.Hashtable] $properties)
+    {
+        Assert-Module -ModuleName 'ADCSDeployment'
+    }
+}