Die CD Laufwerke werden in Windows relativ willkürlich angeordnet. -Dies gibt vor allem nach Neuinstallation, oder hinzufügen von Datenträgern Probleme.
Besser wäre es, wenn alle CD-Laufwerke von hinten her angeordnet wären, also das erste: Z, das zweite X, das dritte Y, usw.
Der nachfolgende Code bewerkstelligt in Zusammenarbeit mit dem Tool Diskpart, dass in Windows XP schon standardmässig enthalten ist genau das.
' VARIABLES i = 90 ' OBJECTS Set fs = createobject("Scripting.FileSystemObject") Set wshShell = CreateObject("WScript.Shell") ' Get all Drives and initialize each CD-ROM Drive actDriveLetter = "0" Set Drives = fs.Drives ' Create file for reassigment with diskpart in temporary folder fn = fs.Getspecialfolder(2) & "cd_rename.txt" Set renFile = fs.Opentextfile(fn, 2, True) For each myDrive in Drives If myDrive.Drivetype = 4 Then actDriveLetter = myDrive.Driveletter newDriveLetter = chr(i) i = i - 2 renFile.Writeline "Select Volume " & actDriveLetter renFile.Writeline "Assign Letter=" & newDriveLetter end if Next renFile.Close ' Run Diskpart to rename drives myCMD = "Diskpart.exe /s " & fn result = wshShell.Run(myCMD ,,true) ' Cleanup If fs.FileExists(fn) Then wshShell.Run(fn) 'fs.DeleteFile(fn) End if set fs = nothing set wshShell = nothing |