Quote GSM: This one will check for a specific file on any CD or DVD drive, when the check file is found it will produce a message box that say This is a XP CD then it will quit the script. Change this color in the script to suit your needs. If Fso.FileExists(StrDrv.DriveLetter & ":\win51ip.SP2") Then Dim Drv, Fso, StrDrv Set Fso = CreateObject("Scripting.FileSystemObject") Set Drv = Fso.Drives For Each StrDrv In Drv If StrDrv.DriveType = 4 Then If StrDrv.IsReady = True Then If Fso.FileExists(StrDrv.DriveLetter & ":\win51ip.SP2") Then MsgBox "This is a XP CD : " & StrDrv.DriveLetter, 0 + 32,"Confirm XP CD" Exit For Else MsgBox "This is not a XP CD : " & StrDrv.DriveLetter, 0 + 32,"Missing XP CD" End If End If End If Next In a typical ua install off the cd/dvd where is this called from? Cheers MC.