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)
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)
Please also mark the comments that contributed to the solution of the article
Content-Key: 21183
Url: https://administrator.de/contentid/21183
Printed on: April 26, 2024 at 14:04 o'clock
9 Comments
Latest comment
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