Jump to content

Optical Drive Capabilities UDF


Recommended Posts

PS: i might improve soon to add more funtions from CD ROM class but at the moment i have done only the required part based on a query posted in the forum...

#include <array.au3>

#Region Example
; Autoit Scriptomatic did save me a few minutes in getting the original query sorted out...

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output = ""
$Output &= "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_CDROMDrive", "WQL", _
        $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) Then
    For $objItem In $colItems
        $Output &= "Availability: " & _Win32_CDRomDrive_AvailaibiltyDesc($objItem.Availability) & @CRLF
        $Output &= "Capabilities: " & _Win32_CDRomDrive_GetCapabilities($objItem, 1) & @CRLF
        $Output &= "Caption: " & $objItem.Caption & @CRLF
        $Output &= "Description: " & $objItem.Description & @CRLF
        $Output &= "Drive: " & $objItem.Drive & @CRLF
        $Output &= "MediaLoaded: " & _IsTrueOrFalse($objItem.MediaLoaded) & @CRLF
        $Output &= "==========================================" & @CRLF
        If MsgBox(1, "WMI Output", $Output) = 2 Then ExitLoop
        $Output = ""
    Next
Else
    MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_CDROMDrive")
EndIf

#EndRegion

Func _Win32_CDRomDrive_AvailaibiltyDesc($AvailabilityID)
    ; Author Rajesh V R
    ; may 2009
    ; gets the drive Availability description from uint value.
    Local $AvailabilityDesc[18] = ["Other", "Unknown", "Running or Full Power", "Warning", "In Test", "Not Applicable", "Power Off", "Off Line", "Off Duty", "Degraded", "Not Installed", "Install Error", "Power Save - Unknown", "Power Save - Low Power Mode", "Power Save - Standby", "Power Cycle", "Power Save - Warning"]
    Local $availDescription = ""
    For $i = 0 To 17
        If $AvailabilityID = $i+1 Then
            $availDescription = $AvailabilityDesc[$i]
            ExitLoop
        EndIf
    Next
    Return $availDescription
EndFunc   ;==>_Win32_CDRomDrive_AvailaibiltyDesc

Func _Win32_CDRomDrive_CapabilitiesDesc($CapabilityID)
    ; Author Rajesh V R
    ; may 2009
    ; gets the drive capabilities description from uint values as inbuilt description string array is not so reliable.
    Local $CapDesc[13] = ["Unknown", "Other", "Sequential access", "Random access", "Writing", "Encryption", "Compression", "Removable media", "Manual cleaning", "Automatic cleaning", "SMART notification", "Dual-sided media", "Predismount eject not required"]
    Local $i, $capDescription = ""
    For $i = 0 To 12
        If $CapabilityID = $i Then
            $capDescription = $CapDesc[$i]
            ExitLoop
        EndIf
    Next
    Return $capDescription
EndFunc   ;==>_Win32_CDRomDrive_CapabilitiesDesc

Func _Win32_CDRomDrive_GetCapabilities($objItem, $returnType = 0)
    ; Rajesh V R  may 2009
    ; returns the capabilities of a  given optical drive object from wmi collection.
    ; must input a valid CDROMDrive WMI Object only or else results would be unknown
    If IsObj($objItem) Then
        If $returnType = 0 Then ; array return type requested
            Local $Capabilities[2][1]
        Else ; csv type string return requested
            Local $Capabilities
        EndIf
        
        For $i = 0 To UBound($objItem.Capabilities)
            If $objItem.Capabilities($i) < 13 Then ; this is to skip some value 9237776 which is also appearing while looping, we arent concerned about it...
                If IsArray($Capabilities) Then ; returntype 0 return array
                    ReDim $Capabilities[2][$i + 1]
                    $Capabilities[0][$i] = $objItem.Capabilities($i)
                    $Capabilities[1][$i] = _Win32_CDRomDrive_CapabilitiesDesc($objItem.Capabilities($i))
                Else ; returntype 1 return csv string
                    If $i = 0 Then
                        $Capabilities = $objItem.Capabilities($i) & "," & _Win32_CDRomDrive_CapabilitiesDesc($objItem.Capabilities($i))
                    Else
                        $Capabilities = $Capabilities & "," & $objItem.Capabilities($i) & "," & _Win32_CDRomDrive_CapabilitiesDesc($objItem.Capabilities($i))
                    EndIf
                EndIf
                
            EndIf
        Next
        Return $Capabilities
    Else
        
        SetError(-1, "Input not an object", "")
        Msgbox(0,@error,"Error")
    EndIf
EndFunc   ;==>_Win32_CDRomDrive_GetCapabilities



Func _IsTrueOrFalse($BoolTag)
    ; find out if it is a true value or false value returned!!!
    If $BoolTag = 0 Then
        Return False
    Else
        Return True
    EndIf
EndFunc   ;==>_TrueOrFalse

Win32_CDROMDrive.AU3

Edited by rajeshontheweb
Link to comment
Share on other sites

hmm, sorry , forgot to mention this , i havent found the complete documentation on understanding the drive capapbilites, e.g., mine says removable media and random access. it supports cd writing not dvd wrtigin. i am working on imapi objects information collector and will soon post something in that direction which is much more reliable comparing to this...

<Again!!!, found IMAPI2 interface has been ported already, atleast didnt waste time working on it, i just had checked the forums before spending more time... :-) >

Edited by rajeshontheweb
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...