Тема: VBScript: подключение сетевого ресурса и назначение ему описания
Подключение сетевого ресурса и назначение ему (подключённому диску) описания (локального имени) в Проводнике.
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
Основа взята с Hey, Scripting Guy! Blog : Hey, Scripting Guy! Quick-Hits Friday: The Scripting Guys Respond to a Bunch of Questions (7/24/09) из «ScriptPromptsButDoesNotUseTheCredentialsToMapDrive.vbs».