Laufwerksbuchstaben ändern per VBScript

Nach dem Installieren / Betanken eines Computers ist alles auf Standard. Auch ist die Buchstaben Zuordnung der Datenträger auf Standard. Bei einem Computer mit Kartenleser werden aber schon viele Buchstaben verwendet. Auch wenn sie nicht angezeigt werden, sind die Laufwerksbuchstaben schon in Verwendung. Da aber in Unternehmen Netzlaufwerke bestimmte Buchstaben haben, möchten man die Laufwerksbuchstaben ändern. Und das am Besten nach der Installation mit einem Script.

Auch wenn diese nicht unter “Dieser Computer” sichtbar sind (da keine SD Karte im Lesegerät), werden diese Laufwerksbuchstaben belegt.

Wenn nun Netzlaufwerke verbunden werden sollen, funktioniert dies nicht.

Laufwerksbuchstaben ändern mit einem VB Script

(changedriveletters.vbs – VBScript)

' SYNOPSIS:     Laufwerksbuchstaben aendern
' DESCRIPTION:  Aendert die Laufwerksbuchstaben von bestehenden Laufwerken
' VERSION:      1.0
' AUTHOR:       www.ITnator.net | Johannes Huber
' CREATED:      25.02.2017


strComputer = "."
 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 Set colVolumes = objWMIService.ExecQuery _
 ("Select * from Win32_Volume Where Name = 'D:\\'")
 For Each objVolume in colVolumes
 objVolume.DriveLetter = "Y:"
 objVolume.Put_
 Next
strComputer = "."
 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 Set colVolumes = objWMIService.ExecQuery _
 ("Select * from Win32_Volume Where Name = 'E:\\'")
 For Each objVolume in colVolumes
 objVolume.DriveLetter = "X:"
 objVolume.Put_
 Next
strComputer = "."
 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 Set colVolumes = objWMIService.ExecQuery _
 ("Select * from Win32_Volume Where Name = 'F:\\'")
 For Each objVolume in colVolumes
 objVolume.DriveLetter = "W:"
 objVolume.Put_
 Next
strComputer = "."
 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 Set colVolumes = objWMIService.ExecQuery _
 ("Select * from Win32_Volume Where Name = 'G:\\'")
 For Each objVolume in colVolumes
 objVolume.DriveLetter = "V:"
 objVolume.Put_
 Next
strComputer = "."
 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 Set colVolumes = objWMIService.ExecQuery _
 ("Select * from Win32_Volume Where Name = 'H:\\'")
 For Each objVolume in colVolumes
 objVolume.DriveLetter = "U:"
 objVolume.Put_
 Next
strComputer = "."
 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 Set colVolumes = objWMIService.ExecQuery _
 ("Select * from Win32_Volume Where Name = 'I:\\'")
 For Each objVolume in colVolumes
 objVolume.DriveLetter = "D:"
 objVolume.Put_
 Next

Wir können aber noch mehr mit einem VB Script erledigen: