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.Director yServices
Namespace ActiveDirectory Search1
Class Noname1
Sub Main(ByVal Args() As String)
Dim enTry As DirectoryEnTry = New DirectoryEnTry( "LDAP://"&GER)
Dim mySearcher As DirectorySearch er = New DirectorySearch er(enTry)
mySearcher.Filt er = ("(objectClass= computer)")
Console.Out.Wri teLine("Listing of computers in the Active Directory")
Console.Out.Wri teLine("======= =============== ")
Dim resEnt As SearchResult
For Each resEnt In mySearcher.Find All()
Console.Out.Wri teLine(resEnt.G etDirectoryEnTr y().Name.ToStri ng())
Next
Console.Out.Wri teLine("======= ==== End of Listing =============")
End Sub
End Class
End Namespace
Imports System
Imports System.Director yServices
Namespace ActiveDirectory Search1
Class Noname1
Sub Main(ByVal Args() As String)
Dim enTry As DirectoryEnTry = New DirectoryEnTry( "LDAP://"&GER)
Dim mySearcher As DirectorySearch er = New DirectorySearch er(enTry)
mySearcher.Filt er = ("(objectClass= computer)")
Console.Out.Wri teLine("Listing of computers in the Active Directory")
Console.Out.Wri teLine("======= =============== ")
Dim resEnt As SearchResult
For Each resEnt In mySearcher.Find All()
Console.Out.Wri teLine(resEnt.G etDirectoryEnTr y().Name.ToStri ng())
Next
Console.Out.Wri teLine("======= ==== End of Listing =============")
End Sub
End Class
End Namespace