Vbscript 将DN放入变量VBS中

我正在创建一个脚本，允许我在我们的域中输入用户名，并让它从他们的广告配置文件中查找属性

因此，首先我要获取用户的DN。一旦我拥有了，我就可以跑步

Set objAD = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & ***I NEED DN HERE***)

并查询要输出的特定属性

因此，我需要做的是以某种方式将DN放入一个变量中，以放入LDAP查询。我知道（我想）我需要从下面的Do循环中获取它，但是我有一个完全的空白，无法理解如何将整个DN放入一个变量中

Username = InputBox("Enter UserName to lookup...")  

Set rootDSE = GetObject("LDAP://RootDSE")
base = "<LDAP://" & rootDSE.Get("defaultNamingContext") & ">"

fltr = "(&(objectClass=user)(objectCategory=Person)" & "(sAMAccountName=" & UserName & "))"

attr = "distinguishedName,sAMAccountName"
scope = "subtree"

Set conn = CreateObject("ADODB.Connection")
conn.Provider = "ADsDSOObject"
conn.Open "Active Directory Provider"

Set cmd = CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = base & ";" & fltr & ";" & attr & ";" & scope

Set rs = cmd.Execute
Do Until rs.EOF
  WScript.Echo rs.Fields("distinguishedName").Value
  rs.MoveNext
Loop
rs.Close

conn.Close

Username=InputBox（“输入要查找的用户名…”）
设置rootDSE=GetObject（“LDAP://rootDSE”）
base=“”
fltr=“（&（objectClass=user）（objectCategory=Person）”和“（sAMAccountName=“&UserName&”）
attr=“DifferentiedName，sAMAccountName”
scope=“子树”
Set conn=CreateObject（“ADODB.Connection”）
连接提供程序=“ADsDSOObject”
连接打开“Active Directory提供程序”
Set cmd=CreateObject（“ADODB.Command”）
设置cmd.ActiveConnection=conn
cmd.CommandText=base&“；”&fltr&“；”&attr&“；”&scope
设置rs=cmd.Execute
直到R.EOF为止
WScript.Echo rs.Fields（“DifferentizedName”）.Value
下一个
环
rs.Close
关闭连接

如果有人有同样的问题，这是一个简单的解决方法。 只需要将其写入变量，而不是回显

Do Until rs.EOF
  strDN = rs.Fields("distinguishedname").value
  rs.MoveNext
Loop