Hallo,
erstmal ein link:
http://www.gruenthal.de/tutorial/vbscript/vbstoc.htm
dann mein text:
set fs = CreateObject("Scripting.FileSystemObject")
set drive = fs.Getdrive("A:")
if drive.isready then
msgbox "bereit"
else
msgbox "nicht bereit"
end if
Odium