WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

How To
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

List DVD Drives


;Use the Win32_CDROMDrive class and check for the acronym DVD in the Name or DeviceID property.
strComputer = "."
objWMIService = GetObject( StrCat( "winmgmts:\\" , strComputer , "\root\cimv2") )
colItems = objWMIService.ExecQuery( "Select * from Win32_CDROMDrive" )
dvdlist = ""
ForEach objItem In colItems
    deviceID = objItem.DeviceID
    If StrIndexNC( deviceID, "DVD", 1, @FWDSCAN ) > 0
      DRIVE = objItem.Drive
      dvdlist = StrCat( dvdlist, @TAB, DRIVE )
    EndIf
Next
dvdlist = StrTrim( dvdlist )
colItems = 0
objWMIService = 0
Message("DVD Drive list", dvdlist)

Article ID:   W17013
File Created: 2007:07:03:14:27:36
Last Updated: 2007:07:03:14:27:36