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

Question

[Sigbjorn]

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

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

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

Answer 1

[Saboteur]

Придется перебирать все буквы, пока не найдете свободную.
Пример :

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