Она же двигатель прогресса (иногда).]]>Попробую вечером с перезагрузкой.
]]> Она же двигатель прогресса (иногда).]]>... LABEL для SUBST-диска задаётся, Custom Icon — у меня не сработало.
...
P.S. Windows XP SP3.
Windows Vista Enterprise SP3. Все с точностью до наоборот. иконка диска меняется, метка - нет.
Windows XP Professional SP3. Не устанавливается ни то ни другое.
Но у меня не всё получилось, в частности, с Custom Icon:
How to Assign a Custom Icon and Label to a Drive Letter (Windows)
LABEL для SUBST-диска задаётся, Custom Icon — у меня не сработало.
How to Customize Folders with Desktop.ini (Windows)
Custom Icon для папки — применяется, на SUBST-диск это изменение не отображается.
P.S. Windows XP SP3.
]]>Диск X: смонтирован к диску C:\ через subst
Более подробная инструкция.
http://www.liutilities.com/products/reg … aks/11101/
Скриншот в доказательство.
Видимо никто не читает первый пост.
Видимо кому то упорно лень поискать ответы в глобальной сети интернет и этот кто то надеется, что за него всё решат другие 
.
EnumNetworkDrives
MapNetworkDrive
RemoveNetworkDrive
объекта WshNetwork
Справочная информация:
http://msdn.microsoft.com/en-us/library … s.85).aspx
http://msdn.microsoft.com/en-us/library … s.85).aspx
http://msdn.microsoft.com/en-us/library … s.85).aspx
Option Explicit
Dim WshNetwork, NetworkDrives
Set WshNetwork = CreateObject("Wscript.Network")
Set NetworkDrives = WshNetwork.EnumNetworkDrives
WshNetwork.RemoveNetworkDrive "X:", True
WshNetwork.MapNetworkDrive "X:", "\\server\path\"
MsgBox "Disk mapped",vbInformation