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:
[thrive_link color=’blue’ link=’https://www.itnator.net/netzwerkadapter-umbenennen-vb-script’ target=’_blank’ size=’medium’ align=”]Netzwerkadapter umbenennen mit VB Script[/thrive_link]
[thrive_link color=’blue’ link=’https://www.itnator.net/laufwerk-umbenennen-mit-vb-script/’ target=’_blank’ size=’medium’ align=”]Laufwerk umbenennen mit VB Script[/thrive_link]