How to determine the path to which a network drive is mapped using vbs?

Question

VBScript

The script checks for the presence of a disk , if it is connected, then you need to take its path and check it with the path from the current script, if they match, then do nothing, if they differ, then execute and connect the disk . How to extract a variable with the path of a network drive? If fso.driveexists(Drive) then
objNetwork.RemoveNetworkDrive Drivet, true, true
objNetwork.MapNetworkDrive Drive, Share, false

Answer 1

Here's what I managed to write, though crutch, but it works. The check variable returns "nothing" if there is no such drive and path, and returns the path if such a drive is connected. Thus, it is possible to compare the connected network path with the existing one and, in case of a mismatch, reconnect.

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