bDVD=false
set wmisvc=getobject("winmgmts:root\cimv2")
set cPMedia=wmisvc.execquery("select * from win32_physicalMedia")
for each oPMedia in cPMedia
if (oPMedia.MediaType>=22) and (oPMedia.MediaType<=26) then
bDVD=true : exit for
end if
next
if bDVD then wscript.echo "You have pnp dvd installed."
set cPMedia=nothing