Active Directory

**Mark Keogh** · Aug 15 '06, 06:25 AM

Re: Active Directory

How about something like ....

Imports System
Imports System.Director yServices

Module Module1

Sub Main()

Console.WriteLi ne("** Listing Start")

Using oDirectoryEntry As DirectoryEntry = New DirectoryEntry( "LDAP://<your domain>")
Using oDirectorySearc her As DirectorySearch er = New DirectorySearch er(oDirectoryEn try)

oDirectorySearc her.Filter = ("(ObjectClass= Computer)")

For Each oResult As SearchResult In oDirectorySearc her.FindAll
Console.WriteLi ne(oResult.GetD irectoryEntry() .Name)
Next

End Using
End Using

Console.WriteLi ne("Listing End **")
Console.ReadLin e()

End Sub

End Module

**Bob Simoneau** · Aug 15 '06, 12:35 PM

Re: Active Directory

I have used that code. That returns all computers. I am after the
workstations section.

"Mark Keogh" <m@ark.comwro te in message
news:%23Y7bpQDw GHA.1436@TK2MSF TNGP02.phx.gbl. ..

How about something like ....
>
Imports System
Imports System.Director yServices
>
Module Module1
>
Sub Main()
>
Console.WriteLi ne("** Listing Start")
>
Using oDirectoryEntry As DirectoryEntry = New
DirectoryEntry( "LDAP://<your domain>")
Using oDirectorySearc her As DirectorySearch er = New
DirectorySearch er(oDirectoryEn try)
>
oDirectorySearc her.Filter = ("(ObjectClass= Computer)")
>
For Each oResult As SearchResult In
oDirectorySearc her.FindAll
Console.WriteLi ne(oResult.GetD irectoryEntry() .Name)
Next
>
End Using
End Using
>
Console.WriteLi ne("Listing End **")
Console.ReadLin e()
>
End Sub
>
End Module

**Peter Huang [MSFT]** · Aug 16 '06, 03:35 AM

RE: Active Directory

Hi Bob,

In AD, there is no such a concept Workstations.
So I understand you means the Entries in the OU WorkStations you created by
yourself.

Imports System
Imports System.Director yServices

Module Module1
Sub Main()
Using oDirectoryEntry As DirectoryEntry = New
DirectoryEntry( "LDAP://OU=Workstations ,OU=Quick & Slow Canada,DC=Simsh op")
For Each oEntry As DirectoryEntry In oDirectoryEntry .Children
Console.WriteLi ne(oEntry.Name)
Next
End Using
End Sub
End Module

NOTE: the LDAP path here may not be fully qualified for your scenario, if
the path did not work, you may try to use the ADSI Editor tool to capture
the concrete path.
The ADSI support tool should be in your Product CD's
Support/Tools/SUPTOOLS.MSI

Best regards,

Peter Huang

Microsoft Online Community Support
=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====
This posting is provided "AS IS" with no warranties, and confers no rights.

**Bob Simoneau** · Aug 16 '06, 06:35 PM

Re: Active Directory

Thanks, that did it

""Peter Huang" [MSFT]" <v-phuang@online.m icrosoft.comwro te in message
news:tEdosZOwGH A.4328@TK2MSFTN GXA01.phx.gbl.. .

Hi Bob,
>
In AD, there is no such a concept Workstations.
So I understand you means the Entries in the OU WorkStations you created
by
yourself.
>
Imports System
Imports System.Director yServices
>
Module Module1
Sub Main()
Using oDirectoryEntry As DirectoryEntry = New
DirectoryEntry( "LDAP://OU=Workstations ,OU=Quick & Slow Canada,DC=Simsh op")
For Each oEntry As DirectoryEntry In oDirectoryEntry .Children
Console.WriteLi ne(oEntry.Name)
Next
End Using
End Sub
End Module
>
NOTE: the LDAP path here may not be fully qualified for your scenario, if
the path did not work, you may try to use the ADSI Editor tool to capture
the concrete path.
The ADSI support tool should be in your Product CD's
Support/Tools/SUPTOOLS.MSI
>
Best regards,
>
Peter Huang
>
Microsoft Online Community Support
=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====
This posting is provided "AS IS" with no warranties, and confers no
rights.
>

Active Directory

Active Directory

Comment

Comment

Comment

Comment