Здравствуйте, Elena_, Вы писали:
E_>Вообще-то, такой макрос выдает порты и названия, это собственно из реестра информация. Правда с сетевыми бывают нюансы, может быть, надо прямо в реестре смотреть.
E_>E_> Set WSHNetwork = CreateObject("WScript.Network")
E_> 'MsgBox WSHNetwork.ComputerName
E_> Dim printersArray
E_> Set printersArray = WSHNetwork.EnumPrinterConnections
E_> Dim i
E_> For i = 0 To printersArray.Count - 1 Step 2
E_> MsgBox printersArray.Item(i) & " = " & printersArray.Item(i + 1)
E_> Next i
E_>
Я так же и беру порты, но индекс в массиве принтеров не совпадает с номером порта. Принтеры как правило все сетевые. Я уже понял, что надо брать имена портов из реестра, но вот беда — объект WScript.Shell не дает читать последовательно значения реестра, не зная их наименования.
