By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
435,407 Members | 2,842 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 435,407 IT Pros & Developers. It's quick & easy.

VBScript Compilation error 800A03ee expected ')'

P: 1
Hi im getting this error on line 5 where i start the sub, and i have no idea why so if anyone could help i would be very gratefull.

Imports System
Imports System.DirectoryServices
Namespace ActiveDirectorySearch1
Class Noname1
Sub Main(ByVal Args() As String)

Dim enTry As DirectoryEnTry = New DirectoryEnTry("LDAP://"&GER)
Dim mySearcher As DirectorySearcher = New DirectorySearcher(enTry)
mySearcher.Filter = ("(objectClass=computer)")
Console.Out.WriteLine("Listing of computers in the Active Directory")
Console.Out.WriteLine("======================")
Dim resEnt As SearchResult
For Each resEnt In mySearcher.FindAll()
Console.Out.WriteLine(resEnt.GetDirectoryEnTry().N ame.ToString())
Next
Console.Out.WriteLine("=========== End of Listing =============")

End Sub
End Class
End Namespace
Apr 24 '07 #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.