strcomputer="."
set objwmiservice=getobject("winmgmts://"&strcomputer&"/root/cimv2")
set colitems=objwmiservice.execquery("select * from win32_cdromdrive")
for each objitem in colitems
wscript.echo "drve letter:"&objitem.drive
wscript.echo "caption:" & objitem.caption
next
set objwmiservice=getobject("winmgmts://"&strcomputer&"/root/cimv2")
set colitems=objwmiservice.execquery("select * from win32_cdromdrive")
for each objitem in colitems
wscript.echo "drve letter:"&objitem.drive
wscript.echo "caption:" & objitem.caption
next