Использование поля ввода для возврата информации ActiveDirectory

Question

У меня есть следующий код, чтобы пользователь мог войти в свой домен до запуска программы.Полученный текстовый файл не выводит пользователей ... просто слово Схема ...

РЕДАКТИРОВАТЬ 1: Обновлено, чтобы включить весь код.Теперь я могу запустить его, и он возвращает текстовый файл со списком OU = _USERS OU = _GROUPS OU = _ETC ETC ETC

Sub PrintUserNames()
    'Declare Command
    Dim de As New DirectoryEntry()
    'Nameint Place to Write file
    Dim userFile As String = "C:\DomainUsers.txt"
    Dim fileExists As Boolean = File.Exists(userFile)

    'Use Input Box for domain entry
    Dim message, Title, defaultValue As String
    Dim myValue As Object
    message = "Enter your Domain Name"
    Title = "Domain Name Entry"
    defaultValue = "Enter Domain Name"
    myValue = InputBox(message, Title, defaultValue)
    'Get List of all users on Domain using WinNT
    'Replacement Command
    Dim ReplaceCommand1 As String = de.Path.Replace("***", myValue) = "WinNT://""***"""
    Using sw As New StreamWriter(File.Open(userFile, FileMode.OpenOrCreate))
        For Each d As DirectoryEntry In de.Children()
            sw.WriteLine(d.Name)
        Next
    End Using

Answer 1

Спасибо за отзыв Филбурт. Я просто выбросил фактически выполняющую команду замены и просто использую ее, как показано ниже.

Dim de As New DirectoryEntry()
    Dim DomainName As Object
    'Use Input Box for domain entry if desired   
    Dim messageOK, messageCan, Title, defaultValue As String
    messageOK = "Enter Domain and Click OK
    Title = "Domain Name Entry"
    defaultValue = "Enter Domain Name"
    DomainName = InputBox(messageOK, Title, defaultValue)
    de.Path = "WinNT://***".Replace("***", DomainName)

Answer 2

Вы заменяете свой заполнитель *** перед тем, как его (пере) назначаете.

Dim ReplaceCommand1 As String = de.Path.Replace("***", myValue)
de.Path = "WinNT://***"

В зависимости от того, где вы создаете de, вы можете просто удалить строку, содержащую de.Path = "WinNT://***"