CD Laufwerke zuhinterst umbenennen

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

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.