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