Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
;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