Need Help - Change CDRom Drive Letter

[Jaws25]

I would like to have a script find the first available cdrom and set it to drive e:

here is some code that will show cdrom devices drive letters but I can't figure out to actually change it.

Const DriveTypeCDROM = 4
Set oFS = Wscript.CreateObject("Scripting.FileSystemObject")
Set oDrives = oFS.Drives 'Loop thru A-Z. If found, exit early.
For Each Drive in oDrives
If Drive.DriveType = DriveTypeCDROM Then
Wscript.Echo Drive.DriveLetter
End If
Next

If you have advice please share.

thanks!!

- Jaws25

 

[tsuji]

Hello Jaws25,

For general info

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/storage/hh/storage/03class_5mp3.asp

For specific change (system in this case), check out the ms article 223188:

http://support.microsoft.com/default.aspx?scid=kb;en-us;223188

You should have the win2000 up. The general info is applicable for other mounted devices. With it, you can make a script out of it. But, consider the broad repercussion before doing anything because it may be wide-spread.

regards - tsuji

 

[Jaws25]

Here is a great script I found on MS's site but it only works for server 2003.

http://www.microsoft.com/technet/community/scriptcenter/dfs/scrdfs72.mspx

Set objWMIService = GetObject("winmgmts:\\" & strSystemName & "\root\cimv2")
Set colVolumes = objWMIService.ExecQuery("Select * from Win32_Volume Where Name = 'D:\\'")
For Each objVolume in colVolumes
objVolume.DriveLetter = "E:"
objVolume.Put_
Next

Is there a way to do it with XP???