Visual Basic

Imports System.DirectoryServices

Private Sub ScanMachines()
        '
        ' Get the list of machine names in the current domain
        ' as specified by txtMachineSpec.
        '
        Dim ds As New DirectorySearcher
        ds.SearchRoot = New DirectoryEntry

        Dim wildcards() As String = Split(txtMachineSpec.Text.ToUpper, ",")
        ds.Filter = GetFilterString(wildcards)

        ds.PropertyNamesOnly = True
        ds.PropertiesToLoad.Add("name")
        ds.Sort = New SortOption("name", SortDirection.Ascending)
        ds.PageSize = 9999

        Dim src As SearchResultCollection

        Try
            '
            ' Enumerate the machines in AD.
            '
            src = ds.FindAll()

            Try
                For Each sr As SearchResult In src
                    '
                    ' Get the machine name, stripping off the "CN=" portion
                    ' as we go.
                    '
                    Dim de As DirectoryEntry = sr.GetDirectoryEntry()
                    Dim machineName As String = Replace(de.Name, "CN=", "", 1, 1)

                    '
                    ' Do your stuff here ...
                    '

                Next

            Catch ex As Exception
                MessageBox.Show("1: " & ex.Message)

            End Try

        Catch ex As InvalidOperationException
            MessageBox.Show("2: " & ex.Message)

        Catch ex As NotSupportedException
            MessageBox.Show("3: " & ex.Message)

        Catch ex As Exception
            MessageBox.Show("4: " & ex.Message)

        Finally

            If Not src Is Nothing Then
                src.Dispose()
            End If

            If Not ds Is Nothing Then
                ds.Dispose()
            End If

        End Try

    End Sub

<br />
Option Strict On<br />
<br />
    Function selectTest(ByVal intAntal As Integer) As Boolean<br />
<br />
        Select Case (intAntal)<br />
<br />
            Case CInt((30 / 20) * 100), Is >= 100<br />
                selectTest = True<br />
                'Exit Function<br />
<br />
            Case Else<br />
                selectTest = False<br />
<br />
        End Select<br />
<br />
    End Function<br />