DriveListBox, DirListBox не должны и не выводят Сетевое окружение или Мой компьютер

@JuraCake · Регистрация: 31.05.2007

Студворк — интернет-сервис помощи студентам

DriveListBox, DirListBox не должны и не выводят Сетевое окружение или Мой компьютер. Но можно как нито исправить сий "недочет"?

13.05.2007, 06:31

JuraCake (17.04.2007)
DriveListBox, DirListBox не должны и не выводят Сетевое окружение или Мой компьютер. Но можно как нито исправить сий "недочет"?

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim Shell As Object
Dim objFolder As Object
Dim objFolder2 As Object
Dim objItem
Dim objFolderNetwork
Dim objSubItem
Dim WScript
Set Shell = CreateObject("Shell.Application")
'получение папки "Сетевое окружение"
Set objFolder = Shell.NameSpace("::{208D2C60-3AEA-1069-A2D7-08002B30309D}")
'получение папки "Вся сеть"
Set objFolder2 = objFolder.Items().Item("EntireNetwork").GetFolder
'получение папки "Microsoft Windows Network"
For Each objItem In objFolder2.Items()
    If objItem.name = "Microsoft Windows Network" Then
        Set objFolderNetwork = objItem.GetFolder
    End If
Next
'перебор доменов и рабочих групп
For Each objItem In objFolderNetwork.Items()
    If objItem.IsFolder Then
        Set objFolder = objItem.GetFolder
        'перебор компьютеров
        For Each objSubItem In objFolder.Items()
            WScript.Echo objSubItem.name
        Next
    End If
Next

И использовать какой нибудь список для вывода необходимых переменнх.
И ещё можно здесь посмотреть: http://bbs.vbstreets.ru/viewtopic.php?p=72891&sid=f3756abed18b6f 5500873a20c567b460 http://bbs.vbstreets.ru/viewtopic.php?p=72891&sid=f3756abed18b6f 5500873a20c567b460

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@JuraCake 0 / 0 / 0 Регистрация: 31.05.2007 Сообщений: 26

	DriveListBox, DirListBox не должны и не выводят Сетевое окружение или Мой компьютер 17.04.2007, 18:02. Показов 2947. Ответов 1 Метки нет (Все метки) DriveListBox, DirListBox не должны и не выводят Сетевое окружение или Мой компьютер. Но можно как нито исправить сий "недочет"? 0