Visual Basic

MyBase.Install(stateSaver)

Dim xmlDocument As New System.Xml.XmlDocument
Dim strPath As String = System.IO.Path.Combine(Context.Parameters.Item("TARGETDIR"), "public.config.xml")

If System.IO.File.Exists(strPath) Then
    xmlDocument.Load(strPath)

    xmlDocument.ToString().Replace("$logPath$", Context.Parameters.Item("TARGETDIR"))

    xmlDocument.Save(strPath)
End If

MCICtl.DeviceType = "CDAudio"
MCICtl.Wait = True
MCICtl.filename = DriveLetter
MCICtl.Shareable = True
MCICtl.Enabled = True
MCICtl.Command = "Open"
Dim DevId
DevId = MCICtl.deviceId
TocString = Control.GetMediaToc(DevId)

Function fGetCDroms(ByVal drive As String) As Generic.List(Of Devices)
  Dim WMI, Col, Ob As Object
  Dim s2 As String = ""
  Dim sID As String = ""
  Dim l As New Generic.List(Of Devices)
  Dim Toestel As New Devices
  WMI = GetObject("WinMgmts:")
  Col = WMI.ExecQuery("Select * from Win32_CDROMDrive")
  For Each Ob In Col
    Toestel = New Devices
    With Toestel

      .Availability = Ob.Availability
      .Capabilities = Ob.Capabilities
      .CapabilityDescriptions = Ob.CapabilityDescriptions
      .Caption = Ob.Caption
      .CompressionMethod = Ob.CompressionMethod
      .ConfigManagerErrorCode = Ob.ConfigManagerErrorCode
      .ConfigManagerUserConfig = Ob.ConfigManagerUserConfig
      .CreationClassName = Ob.CreationClassName
      .DefaultBlockSize = Ob.DefaultBlockSize
      .DeviceID = Ob.DeviceID
      .Description = Ob.description
      .Drive = Ob.Drive
      .DriveIntegrity = Ob.DriveIntegrity
      .ErrorCleared = Ob.ErrorCleared
      .ErrorDescription = Ob.ErrorDescription
      .ErrorMethodology = Ob.ErrorMethodology
      .FileSystemFlags = Ob.FileSystemFlags
      .FileSystemFlagsEx = Ob.FileSystemFlagsEx
      .InstallDate = Ob.InstallDate
      .id = Ob.id
      .LastErrorCode = Ob.LastErrorCode
      .manufacturer = Ob.Manufacturer
      .MaxBlockSize = Ob.MaxBlockSize
      .MaximumComponentLength = Ob.MaximumComponentLength
      .MaxMediaSize = Ob.MaxMediaSize
      .MediaLoaded = Ob.MediaLoaded
      .MediaType = Ob.MediaType
      .MinBlockSize = Ob.MinBlockSize
      .Name = Ob.Name
      .NeedsCleaning = Ob.NeedsCleaning
      .NumberOfMediaSupported = Ob.NumberOfMediaSupported
      .PNPDeviceID = Ob.PNPDeviceID
      .PowerManagementCapabilities = Ob.PowerManagementCapabilities
      .PowerManagementSupported = Ob.PowerManagementSupported
      .RevisionLevel = Ob.RevisionLevel
      .SCSIBus = Ob.SCSIBus
      .SCSILogicalUnit = Ob.SCSILogicalUnit
      .SCSIPort = Ob.SCSIPort
      .SCSITargetId = Ob.SCSITargetId
      .Size = Ob.Size
      .Status = Ob.Status
      .StatusInfo = Ob.StatusInfo
      .SystemCreationClassName = Ob.SystemCreationClassName
      .SystemName = Ob.SystemName
      .TransferRate = Ob.TransferRate
      .VolumeName = Ob.VolumeName
      .VolumeSerialNumber = Ob.VolumeSerialNumber
    End With
    l.Add(Toestel)
  Next

  Col = Nothing
  WMI = Nothing

  Return l
End Function

Sub TheCaller()
   'Assume we have a exampleData = List(Of Integer) with the above 8 elements
   Dim count As Integer = GetFrequencies(exampleData)
End Sub

Function GetFrequencies(data As List(Of Integer)) As Integer
   Return (From i In data Where i>60 And i<=80).Count()
End Function