いつもお世話になっております。

プログラムが動作するサーバー上にＤＡＴテープ装置が存在するのかどうかを取得したいのと、
そのＤＡＴテープ装置にメディアがセットされているのかどうかを確認したいと考えています。
ＯＳ：Windows2000 Advanced Server
ＶＢ：Version 6.0
ＤＡＴテープ装置：ＳＣＳＩ接続のＤＤＳ４
(サーバーに内蔵されている為、メーカー・型式などは分かりません)

探し方が悪いのか、こちらの過去ログで「テープ」のキーワードで検索しましたが、
見つける事が出来ませんでした。また、いくつかのＶＢ関連のテクニックのＨＰでも
テクニック集などを探してみましたが、見つける事が出来ませんでした。
ハードディスクや、リムーバルディスクを見つける事はできるのですが・・・

よろしくお願い致します。

回答では有りません。済みませんね、お節介で。
なにか「超初心者専用Q&A掲示板」の書き込みと
似たような内容ですね。名前を変えたり、内容を少し変えたりの
マルチポストの知能犯で無いことを期待します。
早く解決されると良いですね。

親切で言って下さっていると思いますが、マルチポストではありません。
質問にも書きましたが、他のＨＰのテクニック集などは参照しましたが、掲示板までは検索していません。

ただし、考えられる事はあります。こちらに質問掲示をする前に先輩などにも相談してみたのですが、
答えは得られませんでした。もしかしたら、その先輩が親切でそちらの掲示板に書かれたのかも
知れません。

http://www2j.biglobe.ne.jp/~little-g/cgi-bin/choshoqa.cgi に
．．．が使えるかも．．．の書き込みがあります。
まだ見ていない様でしたら試す価値があるかも。

ありがとう御座います。
早速試してみます。

> プログラムが動作するサーバー上にＤＡＴテープ装置が存在するのかどうかを取得したいのと、

環境が無いので、DATに使えるかどうかはわかりませんが、
もしかしたら、Win32_TapeDriveクラスが利用できるかもしれません。

With GetObject("winmgmts:")
    Debug.Print "CD-ROMドライブ数="; .InstancesOf("Win32_CDROMDrive").Count
    Debug.Print "テープドライブ数="; .InstancesOf("Win32_TapeDrive").Count
    Debug.Print "フロッピードライブ数="; .InstancesOf("Win32_FloppyDrive").Count
End With

早速試してみます。
ありがとうございます。

お礼が遅くなり、すみません。

DATの件は諦めます。ありがとう御座いました。