0

次の VBS で問題が発生しています

set conn = createobject("ADODB.Connection")
Conn.Provider = "ADsDSOObject"
Conn.Open "ADs Provider"

strQueryDL = "<LDAP://company.address.com/cn=address>;(&(objectCategory=person)(objectClass=user));distinguishedName,adspath;subtree"
set objCmd = createobject("ADODB.Command")
objCmd.ActiveConnection = Conn
objCmd.Properties("SearchScope") = 2 ' we want to search everything
objCmd.Properties("Page Size") = 500 ' and we want our records in lots of 500 

objCmd.CommandText = strQueryDL
Set objRs = objCmd.Execute

While Not objRS.eof

wscript.echo objRS.Fields("distinguishedName")
' do something with objRS.Fields("distinguishedName")'
objRS.MoveNext

Wend

私を助けてください、私はvbscriptingを始めたばかりで、これはこのWebサイトの回答によるものです。

wscript.echo objRS.Fields("distinguishedName")

エラーは上記の行/コードからのものでした。フィールドを表示または変換して表示するにはどうすればよいですか?

4

1 に答える 1