Get-ADComputerCDRomInfo.ps1

Function PrintDetails
{
    Param (
        $ComputerName,
        $DriveLetter = "",
        $VolumeName = "",
        $Error = ""
    )
    
    $obj = New-Object PSObject
    $obj | Add-Member -MemberType NoteProperty -Name Computer ($ComputerName)
    $obj | Add-Member -MemberType NoteProperty -Name DriveLetter ($DriveLetter)
    $obj | Add-Member -MemberType NoteProperty -Name VolumeName ($VolumeName)
    $obj | Add-Member -MemberType NoteProperty -Name Error ($Error)
    Write-Output $obj
}

Function PrintDriveDetails
{
    Param ( $ComputerName = 'localhost' )
    
    # Get all removable (2) or cd-rom (5) drives
    Get-WmiObject `
        -ComputerName $computerName `
        -Class Win32_LogicalDisk `
        -Filter "DriveType = 2 or DriveType = 5" `
        -ErrorAction Stop `
    | ForEach-Object {
        # Populate the properties
        $driveLetter = $_.DeviceID
        $volumeName = $_.VolumeName
        $err = ""

        if (!$driveLetter) 
        {
            $err = "No drive found."
        }

        PrintDetails `
            -ComputerName $computerName `
            -DriveLetter $driveLetter `
            -VolumeName $volumeName `
            -Error $err
    }
}

Function Get-ADComputerCDRomInfo
{
    # Search Active Directory for computers
    ([adsisearcher]"objectcategory=computer").findall() | ForEach-Object {
        $computerName = ([adsi]$_.path).Name;
                
        Try {
            PrintDriveDetails -ComputerName $computerName
        }
        Catch
        {
            PrintDetails `
                -ComputerName $computerName `
                -Error $Error[0].ToString()
        }
    }
}

# Execute this function
Get-ADComputerCDRomInfo

DRYed up a bit