Active Directoryを実行しようとしています。この質問に回答したVBSコードを検索しています:Get First & Last Name of All AD Accounts、 1行目に文字15と、エラーメッセージ「ステートメントの終了予定」、参照ライン1、私は私が間違ってやっているかを把握することはできません文字15エラーActive Directory VBS検索スクリプトの1行目に 'Expected end of statement'が表示される
を得ることは "文字です文字列「As New」:
Dim listNames As New AutoCompleteStringCollection
Using ADSearch As New DirectoryServices.DirectorySearcher(ADEntry, "(&(objectCategory=person)(objectClass=user))", {"givenName", "sn"}, DirectoryServices.SearchScope.Subtree)
For Each user As DirectoryServices.SearchResult In ADSearch.FindAll
Try
listNames.Add(user.GetDirectoryEntry.Properties("givenName").Value.ToString + " " + user.GetDirectoryEntry.Properties("sn").Value.ToString)
Catch ex As Exception
End Try
Next
End Using
With TextBox1
.AutoCompleteCustomSource = listNames
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.CustomSource
End With
私は上記のコードの前にラインを入れてみました:
Set objShell = CreateObject("WScript.Shell")
が、それは単に意味ではなく、ライン1より、ライン2、文字15の上に、「文の終了予定を」読むためにエラーメッセージを変更しますそれは同じ場所でまだ起こっている。
私はWindows 7 Professional WorkstationとActive Directory 2012 R2を使用してこのコードを実行しています。
VBScriptはVB、VBAまたはVB.Netではありません。 VBScriptは型なし*(すべてのデータ型は 'Variant'のサブタイプです)*のように、' As'キーワードはサポートしていません。 [VBScriptデータ型](https://msdn.microsoft.com/en-us/library/9e7a57cf(v = vs.84).aspx) – Lankymart
[どのくらいの研究努力をしていますか?スタックオーバーフローのユーザーの期待?](https://meta.stackoverflow.com/questions/261592/how-much-research-effort-is-expected-of-stack-overflow-users)あなたがあなたの能力を発揮していると思っている以上のものあなたのロープの終わりに達して、答えを持っていないという痛みがあなたの質問を投稿することによって受けた膨大な額を超えたら、その時点で、尋ねる価値のある質問にするために必要な研究を行ったことでしょう。」* –