Reply to thread

Message: [QUOTE="Mykre, post: 676, member: 250"] Here is a small snippit that reads all of the computers from the AD, It was taken from the common tasks on the quickstart guides on GotdotNET.com [CODE] [size=2][color=#0000ff] Public[/color][/size][size=2] [/size][size=2][color=#0000ff]Module[/color][/size][size=2] ReadAD [/size][size=2][color=#0000ff]Public[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] main() [/size][size=2][color=#008000]'This will only work if you are connected to an active directory. [/color][/size][size=2][/size][size=2][color=#008000]'Add a reference to system.directoryservices. Replace NetworkName with your [/color][/size][size=2][/size][size=2][color=#008000]'network name. [/color][/size][size=2][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] de [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.DirectoryServices.DirectoryEntry("LDAP://NetworkName") [/size][size=2][color=#0000ff]Dim[/color][/size][size=2] ds [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.DirectoryServices.DirectorySearcher(de) [/size][size=2][color=#0000ff]Dim[/color][/size][size=2] r [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.DirectoryServices.SearchResult ds.Filter = "(objectClass=computer)" [/size][size=2][color=#0000ff]Try [/color][/size][size=2][/size][size=2][color=#0000ff]For[/color][/size][size=2] [/size][size=2][color=#0000ff]Each[/color][/size][size=2] r [/size][size=2][color=#0000ff]In[/color][/size][size=2] ds.FindAll [/size][size=2][color=#0000ff]Dim[/color][/size][size=2] s [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String [/color][/size][size=2]Console.WriteLine(r.GetDirectoryEntry.Name.ToString) [/size][size=2][color=#0000ff]Next [/color][/size][size=2][/size][size=2][color=#0000ff]Catch[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] Exception Console.WriteLine(e.ToString) [/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Try [/color][/size][size=2]Console.ReadLine() [/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub End[/color][/size][size=2] [/size][size=2][color=#0000ff]Module [/color][/size] [/CODE] The libraries you need to look into are in the system.directoryservices namepace. Mykre [/QUOTE]

Verification