http://www.pcreview.co.uk/forums/change-dvd-drive-letter-script-batch-file-t2524813.html

have a look here

Hi, if you have a test server, run this code on that first, but it should work.  It uses WMI to identify drives with a DriveType of 5 (Compact Disc), and changes the letter to R:

This runs locally only, it does not run remotely, because the only way (or at least the most reliable way) to change the drive letter was to use the local MountVol utility.

You could run it remotely using PSExec though.

Regards,

Rob.

ChangeDriveLetters

Sub ChangeDriveLetters
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colVolumes = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType=5")
For Each objDisk in colVolumes
    If objDisk.DeviceID <> "R:" Then ChangeDriveLetterWithMountvol objDisk.DeviceID, "R:"
Next
End Sub

' Change the drive in one drive letter to another drive letter using
' mountvol.exe tool
'
Sub ChangeDriveLetterWithMountvol(strSourceDrive, strTargetDrive) 

    Dim objShell, objExec
    Dim strVolume
    
    Set objShell = CreateObject("WScript.Shell")
    
    ' Get volume associated to the old drive letter.
    '
    Set objExec = objShell.Exec("mountvol " & strSourceDrive & " /L")
    strVolume = Trim(objExec.StdOut.ReadLine())
    While objExec.Status = 0
        WScript.Sleep(100)
    Wend
    
    ' Unmount the drive.
    '
    Set objExec = objShell.Exec("mountvol " & strSourceDrive & " /D")
    While objExec.Status = 0
        WScript.Sleep(100)
    Wend
    
    ' Mount the drive on the new drive letter.
    '
    Set objExec = objShell.Exec("mountvol " & strTargetDrive & " " & strVolume)
    While objExec.Status = 0
        WScript.Sleep(100)
    Wend

End Sub 

Select allOpen in new window

Hi Rob,
I tried this script but its not working.
Thanks
Izhar