• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 574
  • Last Modified:

detect cd

batch file code that when run detect whether there is cd /dvd in cd/dvd drive of system or not and if it exists pop up message "cd exist".
0
ankur3020
Asked:
ankur3020
  • 6
  • 6
1 Solution
 
PaulKeatingCommented:
Since nobody has come up with positive answers to your questions, here is what you probably did not want to hear. Three times over: three negative answers for the price of one.

You can't do any of these things in DOS.If you're interested in a Windows Scripting Host solution, then that might be possible. The trouble with WSH is that every user has a different version, which means that things that work perfectly on your machine may give a runtime error on your user's machine; and Vista is another story entirely.

I'm guessing here, but I suspect that you want this for an install, because otherwise you would not be wanting to enumerate the host machine's drives. You simply can't write a proper install in Windows batch. It's nowhere near powerful enough. For a free and quite capable (if somewhat under-documented and exceedingly hard-to-learn) install system try Nullsoft Install at http://nsis.sf.net.
0
 
ankur3020Author Commented:
pls give vbs code then
0
 
PaulKeatingCommented:
Here it is
strComputer = "."
Set objWMIService = GetObject("winmgmts:"  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery ("SELECT * FROM Win32_LogicalDisk")
For Each objDisk in colDisks
 if objDisk.DriveType = 5 Then
 Wscript.Echo "DeviceID "& objDisk.DeviceID & " is a CD." 
 End if
Next

Open in new window

0
Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

 
ankur3020Author Commented:
your code is pop up message that is specifying cd drive name not whether it has cd in drive or not. pls amend it
0
 
PaulKeatingCommented:
I thought you would be able to manage that on your own.
strComputer = "."
Set objWMIService = GetObject("winmgmts:"  & "{impersonationLevel=impersonate}!\\" & 
 
strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery ("SELECT * FROM Win32_LogicalDisk")
For Each objDisk in colDisks
 if objDisk.DriveType = 5 Then
 Wscript.Echo "There is a CD." 
 Exit for
 End if
Next

Open in new window

0
 
ankur3020Author Commented:
above code is giving syntax error at line 2 pls check
0
 
PaulKeatingCommented:
It i's giving a syntax error because 2 linebreaks got introduced while cutting and pasting. Replace lines 2-4 with the original line 2 and it works.

strComputer = "."
Set objWMIService = GetObject("winmgmts:"  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery ("SELECT * FROM Win32_LogicalDisk")
For Each objDisk in colDisks
 if objDisk.DriveType = 5 Then
 Wscript.Echo "There is a CD." 
 Exit for
 End if
Next

Open in new window

0
 
ankur3020Author Commented:
i tried ur code, it is not working properly. there was no cd in cd rom, still it was saying there is cd" why so? pls recheck it.
0
 
PaulKeatingCommented:
Sorry, misunderstood the question. That code is checking for the kind of drive (CD, floppy, network, etc). Not for what is in it.
0
 
PaulKeatingCommented:
Try this one. It reports on the volume name of the CD. If there is no CD in the drive then the volume name will be empty.

If you don't like the message then substitute

Wscript.Echo "There is a CD." in line 6.

strComputer = "."
Set objWMIService = GetObject("winmgmts:"  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery ("SELECT * FROM Win32_LogicalDisk")
For Each objDisk in colDisks
 if objDisk.DriveType = 5 and objDisk.VolumeName <> "" Then
 Wscript.Echo "DeviceID "& objDisk.DeviceID & " is a CD: " & objDisk.VolumeName
 Exit For
 End if
Next

Open in new window

0
 
ankur3020Author Commented:
thanks . it is working fine.
0
 
ankur3020Author Commented:
thanks
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 6
  • 6
Tackle projects and never again get stuck behind a technical roadblock.
Join Now