Задать вопрос
Sigbjorn
@Sigbjorn
Шаман-некромант
системное-администрирование

Как автоматически назначить свободную букву для сетевого диска в VBS скрипте?

Доброго времени суток! Есть скрипт для подключения сетевых дисков:
On Error Resume Next

Set objWshNetwork = CreateObject( "WScript.Network" )
Set objShell = CreateObject("Shell.Application")

MapDrive "V:", "\\ftech", "FTech"

Sub MapDrive(strDrive, strPath, strName)
   On Error Resume Next
   objWshNetwork.RemoveNetworkDrive strDrive, vbTrue, vbTrue
   objWshNetwork.MapNetworkDrive strDrive, strPath, vbTrue
   objShell.NameSpace(strDrive).Self.Name = strName
End Sub


Как сделать что бы он сам назначал свободную букву для диска, при к примеру подключении трех дисков?
  • Вопрос задан
  • 530 просмотров
Комментировать
Подписаться 1 Оценить Комментировать
Решения вопроса 1
saboteur_kiev
@saboteur_kiev Куратор тега Системное администрирование
software engineer
Придется перебирать все буквы, пока не найдете свободную.
Пример :

strUNC = "\\server\share"

Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive AvailableDriveLetter, strUNC

'-------------------------------------------------
Function AvailableDriveLetter
With CreateObject("Scripting.FileSystemObject")
For i = Asc("D") To Asc("Z")
If Not .DriveExists(Chr(i)) Then
AvailableDriveLetter = Chr(i) & ":"
Exit For
End If
Next
End With
End Function
Ответ написан
Комментировать
Комментировать
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
Вакансии с Хабр Карьеры
Инженер по системному администрированию
Деловая среда от Сбербанка • Москва
До 209 000 ₽
Системный администратор
Глобал Смарт Системс • Санкт-Петербург
от 100 000 до 120 000 ₽
Системный администратор (инженер) 🚀
Хабр • Москва
от 140 000 ₽
Ещё вакансии
Заказы с Хабр Фриланса
Развернуть опенсорсный проект Vocode на публичном сервисе Vercel
04 мая 2024, в 18:49
3000 руб./за проект
Разработать 3Д модель сверла в NX10
04 мая 2024, в 17:40
1000 руб./за проект
MiniApp для телеграмм на React+Redux
04 мая 2024, в 17:35
150000 руб./за проект
Ещё заказы