Есть способ сделать это из командной строки без использования VBScript. Вы можете редактировать реестр, используя команду reg add
. ИМХО, делать это таким образом будет лучше, чем использовать VBScript для изменения метки, потому что он не будет ассоциировать метку с буквой диска, а скорее будет ассоциировать метку с общим ресурсом. Итак, если конечный пользователь позже отключит X:
и вручную подключит общий ресурс xrays
чтобы сказать диск R:
, тогда метка все равно будет отображаться правильно (для того, что вы назначили в сценарии).
Ключ, к которому вы будете писать, - это HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\
где подключом является путь к общему ресурсу, а все обратные косые черты заменены символами решетки (#).
Примечание: я еще не проверял, как вы должны обрабатывать имена общих ресурсов с пробелами (или даже символами фунта) в них.
@echo off
net use * /delete /yes
:: Set the label in the registry
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##192.168.1.52#xrays /v _LabelFromReg /t REG_SZ /f /d "X-Rays"
:: Map the drive
net use x: \\192.168.1.52\xrays
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##192.168.1.52#common /v _LabelFromReg /t REG_SZ /f /d "Common"
net use s: \\192.168.1.52\common
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##192.168.1.52#public /v _LabelFromReg /t REG_SZ /f /d "Public"
net use p: \\192.168.1.52\public
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##192.168.1.52#office /v _LabelFromReg /t REG_SZ /f /d "Office"
net use o: \\192.168.1.52\office
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##192.168.1.52#drives /v _LabelFromReg /t REG_SZ /f /d "Drives"
net use y: \\192.168.1.52\drives
EXIT