none
vbs скрипт не получает список доступных доменов RRS feed

  • Общие обсуждения

  • Ситуация следующая: Имеется vbs скрипт, самый простой, который по сути должен получать список доменов. У многих он отрабатывает хорошо, но бывают ситуации, что в итоге он выводит пустой список доменов.

    Dim Container
    Set Container = GetObject("WinNT:")
    Container.Filter = Array("domain")
    Dim List
    List = "Domains:" + vbCrLf
    For Each Object in Container
    List = List + vbTab +Object.Name + vbCrLf
    Next
    MsgBox List

    Проблема в том, что есть некая программа, которая работает по тому же принципу получения доменов, и так же не видит данные о доменах.

    Проблема повторяется не у всех, т.е. может быть у другого компьютера в этом домене отрабатывать отлично. Есть мнение, что возможно влияет какое то обновление windows на это. Необходимые службы включены, net-bios включен явно в сетевом подключении и зависимые от этого службы так же работают. Другие программы, работающие по другому принципу получения доменов отрабатывают хорошо, т.е. список доменов получают.

    Прошу помощи в решении данного вопроса.

Все ответы

  • Есть подозрение, что эта штука получает список доменов через службу просмотра сетевого окружения (а эта служба - штука весьма капризная). Сравните список получаемых доменов скриптом и командой

    net view /domain


    Слава России!

  • В том то и дело, что всё работает, сетевое окружение нормально всё показывает. Поэтому может быть какой нибудь кэш кривой где то сохраняется?