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
Dim Network, NetworkDrives
Set Network = WScript.CreateObject ("WScript.Network")
Set NetworkDrives = Network.EnumNetworkDrives
For Each element in NetworkDrives
WScript.Echo element
Next
На каждый диск выводится два сообщения с буквой и путём. Значит есть метод содержащий этот путь. Как его вытащить?
Есть такой вариант и он тоже работает.