Read DVD Information.

[lokeshinusa]

Hello All,

I'm trying to write a small code which will compare the volume label specified in the script and the volumelabel of inserted DVD.
I wrote a piece of code but its not working..pls help

''''''''''''''''''''''''''''''''''''''''''
' Here is my code.
''''''''''''''''''''''''''''''''''''''''''
For each VolLabel in view

For each DRV in VolLabel
Do Until Drive[DRV] = "CD-ROM"
Set Drive = Drive[DRV].volume
Set Volume = Volume[VolLabel]
If Drive = Volume Then
Found = TRUE
MsgBox " Condition True - Found "
End if
Loop
DRV = DRV + 1
Next DRV

If Found = FALSE
MsgBox "Please Insert the Application installable media in Drives"
End if
Next VolLabel

Thanks.