Как определить путь по которому подключен сетевой диск с помощью vbs?

Question

[Иван]

В скрипте идет проверка наличия дискаIf fso.driveexists(Drive) then, если он подключен, то нужно взять его путь и сверить с путём из текущего скрипта, если они совпадут, то ничего не делать, если они различаются, то выполнить
objNetwork.RemoveNetworkDrive Drivet, true, true
и подключить диск
objNetwork.MapNetworkDrive Drive, Share, false.
Как вытянуть переменную с путём сетевого диска?

Comments

[Иван]

Dim Network, NetworkDrives

Set Network = WScript.CreateObject ("WScript.Network")

Set NetworkDrives = Network.EnumNetworkDrives

For Each element in NetworkDrives

WScript.Echo element

Next

На каждый диск выводится два сообщения с буквой и путём. Значит есть метод содержащий этот путь. Как его вытащить?

[Иван]

Function IsDriveMapped(strShare)
  Dim oNet, drv, i
  Set oNet = CreateObject("WScript.Network")
  Set drv = oNet.EnumNetworkDrives
  For i = 0 To drv.Count - 1 Step 2
    If StrComp(drv(i + 1), strShare, vbTextCompare) = 0 Then
      IsDriveMapped = true
      Exit For
    End If
  Next
End Function

Есть такой вариант и он тоже работает.

Answer 1

[Иван]

Вот что удалось написать, хоть и костыльно, но работает. Переменная чек возвращает значение "ничего", если диска и пути такого нет, и возвращает путь, если такой диск подключен. Таким образом можно сравнить подключаемый сетевой путь с уже имеющимся и в случае несовпадения переподключить.

Function check(Drive, share)
i = 0
Set oNet = CreateObject("WScript.Network")
Set drv = oNet.EnumNetworkDrives
Ushare = ucase(share)
check = ""
for each element in drv 
    Uelement = ucase(element)
	i = i + 1
	If i Mod 2 = 0 then
	'msgbox n
	m = i - 2
	IF Uelement = Ushare and drive = drv(m) then
	check = element
	end if
	end if
	next
	
end function