使用输入框返回 ActiveDirectory 信息答案

【问题标题】：Using Input Box to return ActiveDirectory Information使用输入框返回 ActiveDirectory 信息
【发布时间】：2011-05-20 14:03:15
【问题描述】：

我有以下代码，因此用户可以在程序运行之前输入他们的域。生成的文本文件不输出用户..只是单词 Schema...

编辑 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

【问题讨论】：

编辑以反映广告信息

标签： vb.net visual-studio-2010 active-directory

【解决方案1】：

在您（重新）分配之前替换占位符 ***。

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

根据您创建de 的位置，您可以简单地删除包含de.Path = "WinNT://***" 的行

【讨论】：

现在导出带有 OU 信息的文本文件？编辑以包含所有代码（修改后）
@harper 您要导出哪些值/AD 条目？您在更新后的帖子中列出的 OU 是通常的顶级 AD 条目。您的 For Each 循环遍历这些子级，但没有更深层次的条目。
只是想导出用户名，我只是觉得我必须做很多事情。我回到第一方并以更简单的方式做到了。

【解决方案2】：

感谢菲尔伯特的提示。我只是扔掉了实际制作替换命令并使用它，如下所示。

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)

【讨论】：