Datenträgerbezeichung
Mit Batch die Datenträgerbezeichung ändern
Hallo, guten Abend
Ich versuche mit einem Batch die Datenträgerbezeichung zu ändern. Im vorliegenden Fall
wäre das nach Aufruf von VOL im CMD:
Datenträger von Laufwerk F: ist WINXP2
Volumenseriennummer: D85R-CD3F
Die Bezeichung WINXP2 versuche ich mit einem Batch zu ändern. Leider ohne Erfolg. Es kann
auch sein, dass anstelle der Bezeichung WINXP2 kein Eintrag oder eine andere Bezeichnung
steht.
Vielen Dank!
Mit freundlichen Grüssen
Guido (sts)
Hallo, guten Abend
Ich versuche mit einem Batch die Datenträgerbezeichung zu ändern. Im vorliegenden Fall
wäre das nach Aufruf von VOL im CMD:
Datenträger von Laufwerk F: ist WINXP2
Volumenseriennummer: D85R-CD3F
Die Bezeichung WINXP2 versuche ich mit einem Batch zu ändern. Leider ohne Erfolg. Es kann
auch sein, dass anstelle der Bezeichung WINXP2 kein Eintrag oder eine andere Bezeichnung
steht.
Vielen Dank!
Mit freundlichen Grüssen
Guido (sts)
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 21183
Url: https://administrator.de/contentid/21183
Ausgedruckt am: 26.11.2024 um 01:11 Uhr
9 Kommentare
Neuester Kommentar
oder für gemaptes laufwerk:
StrFilesServer = "\\Server01"
strDriveLetter = "Z:"
strNewDriveName = "Gruppenlaufwerke"
strShareName = "KMS"
'
Set objShell = CreateObject("WScript.Shell")
Set objNetwork = CreateObject("WScript.Network")
Set CheckDrive = objNetwork.EnumNetworkDrives()
'
'
' ############################ Section to remove and to map the network drive ###
'
'
AlreadyConnected = False
For intDrive = 0 To CheckDrive.Count - 1 Step 2
If CheckDrive.Item(intDrive) = strDriveLetter _
Then AlreadyConnected = True
Next
'
If AlreadyConnected = True Then
objNetwork.RemoveNetworkDrive strDriveLetter
objNetwork.MapNetworkDrive strDriveLetter, strFilesServer & ShareName
Else
objNetwork.MapNetworkDrive strDriveLetter, strFilesServer & ShareName
End if
'
' ########## Section which actually (re)names the MAPPED Drive ###
'
'
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewDriveName
lg
coli
StrFilesServer = "\\Server01"
strDriveLetter = "Z:"
strNewDriveName = "Gruppenlaufwerke"
strShareName = "KMS"
'
Set objShell = CreateObject("WScript.Shell")
Set objNetwork = CreateObject("WScript.Network")
Set CheckDrive = objNetwork.EnumNetworkDrives()
'
'
' ############################ Section to remove and to map the network drive ###
'
'
AlreadyConnected = False
For intDrive = 0 To CheckDrive.Count - 1 Step 2
If CheckDrive.Item(intDrive) = strDriveLetter _
Then AlreadyConnected = True
Next
'
If AlreadyConnected = True Then
objNetwork.RemoveNetworkDrive strDriveLetter
objNetwork.MapNetworkDrive strDriveLetter, strFilesServer & ShareName
Else
objNetwork.MapNetworkDrive strDriveLetter, strFilesServer & ShareName
End if
'
' ########## Section which actually (re)names the MAPPED Drive ###
'
'
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewDriveName
lg
coli
@Guido
Danke für die Rückmeldung... und um Dir auch Hoffnung zu machen:
Aus meiner Erfahrung: Wenn man/frau erst richtig herumcodiert, bootet der Rechner auch wieder viel häufiger...
Seit den neueren Windows-Versionen ist allerdings häufig noch so ein BSoD vorgeschaltet..
Schönen Tag
Biber
Danke für die Rückmeldung... und um Dir auch Hoffnung zu machen:
Das hat man eben davon, wenn man laufend herumcodiert und lange nicht bootet
Aus meiner Erfahrung: Wenn man/frau erst richtig herumcodiert, bootet der Rechner auch wieder viel häufiger...
Seit den neueren Windows-Versionen ist allerdings häufig noch so ein BSoD vorgeschaltet..
Schönen Tag
Biber