http://dieseyer.de all rights reserved © 2003 v3.7
'v3.7*****************************************************
' File: CDdurchsuchen.vbs
' Autor: dieseyer@gmx.de
' dieseyer.de
'
' Das Skript sucht nach einem CD-Laufwerk und schreibt
' eine Inhaltsliste, die durchsucht werden kann.
' Oder man zieht eine Datei auf das Skript, die sich dann
' durchsuchen lässt.
'*********************************************************
Option Explicit
Dim WshShell, fso, FileOut, DriveList, i, CDlw
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set DriveList = fso.Drives
For Each i in DriveList
if 4 = i.DriveType AND i.IsReady Then
' MsgBox i.VolumeName
CDlw = CDlw & vbTab & i.DriveLetter & vbTab & i.VolumeName & vbCRLF
End If
Next
MsgBox CDlw, , WScript.ScriptName
http://dieseyer.de all rights reserved © 2003 v3.7