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 |
