VBSでCD-ROMドライブの認証方法

質問

VBSで起動したドライブがCD-ROMドライブであることを起動時に認証するように下記のように組んだんですけど、
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Target = "D:\test.txt"
If FSO.FileExists(Target) Then
ふと思ったんですが必ずしもCD-ROMドライブが"D"とは限らないわけですよね。（Eだったり）
そこで上記のようなTargetの指定以外CD-ROMドライブだと認証させる良い方法は無いでしょうか？
追記
VBA関連でお勧めのHP、書籍等ご紹介頂けると尚幸いです。

回答No.1

BLUEPIXY · ベストアンサー

現在使えるドライブでCD-ROMドライブを表示します。
起動したドライブがCD-ROMドライブかどうかを調べたほうがもちろん早道ですが、サンプル

dim objFs, objDrive, objDrives

Set objFs = WScript.CreateObject("Scripting.FileSystemObject")
Set objDrives = objFs.Drives
MsgBox WScript.ScriptFullName
MsgBox "起動したプログラムのドライブは、" & left(WScript.ScriptFullName,1)
For each x in objDrives
Set objDrive = objFs.GetDrive(x)
if objDrive.IsReady then
if objDrive.DriveType = 4 then 'CD-ROM ドライブ
MsgBox x & "is CD-ROMドライブ "
end if
end if
next

お礼

御回答とても有難く思います。どうも有り難う御座いましたm(_ _)m

補足

お礼の前にちょっと補足を、もともと
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Target = "D:\license.txt"
If FSO.FileExists(Target) Then
MsgBox "準備完了", vbInformation
Else
MsgBox "CD-ROMを挿入してください", vbExclamation
End If
と入力してて上記のような疑問に当たったわけなのです。
それで"BLUEPIXY"様の回答を見てVBSっていろんなことが出来るんだと思うと同時に、自らの勉強不足を痛感しました。（知らないものが多すぎるもので…）
ので、とても良回答だと思うので頂いたサンプルを生かせるようにサンプルを元にもっと勉強させて頂きます。