Option Explicit

Dim objWshNetwork
Dim objShell, objFolder

Dim strShare, strDrive, strDescriptiton


strShare        = "\\server\c$"
strDrive        = "V:"
strDescriptiton = "Мой ресурс"

Set objWshNetwork = WScript.CreateObject("WScript.Network")
objWshNetwork.MapNetworkDrive strDrive, strShare

Set objShell      = WScript.CreateObject("Shell.Application")
Set objFolder     = objShell.NameSpace(strDrive)

If Not (objFolder Is Nothing) Then
    objFolder.Self.Name = strDescriptiton
End If

Set objFolder     = Nothing
Set objShell      = Nothing
Set objWshNetwork = Nothing

WScript.Quit 0