Visual Basic

Private Sub cmdStart_Click()
    Dim xl As New Excel.Application
    Dim myWorkBook As Excel.Workbook
    Dim myWorkSheet As Excel.Worksheet
    xl.Workbooks.Open "c:\000\Book1.xls"
    Set myWorkBook = xl.ActiveWorkbook
    Set myWorkSheet = myWorkBook.ActiveSheet
    With myWorkSheet.Range("Headers")
        With .Borders.Item(xlEdgeBottom)
            .Weight = XlBorderWeight.xlThin
            .LineStyle = XlLineStyle.xlContinuous
        End With
        .Font.Italic = True
    End With
    Dim intRow As Integer
    Dim intTop As Integer
    intTop = 3
    For intRow = 1 To myWorkSheet.Range("Data").Rows.Count
        Dim intRowOffset As Integer
        intRowOffset = intRow + intTop
        myWorkSheet.Cells(intRowOffset, 2).Font.Bold = True
        myWorkSheet.Cells(intRowOffset, 2).Value = 5
    Next
    myWorkBook.Save
    myWorkBook.Close
End Sub

Dim entry As New DirectoryServices.DirectoryEntry
For Each child As DirectoryServices.DirectoryEntry In entry.Children
    Dim propertyValue As Integer = 0
    Try
        propertyValue = CType(child.Properties("UserFlags").Value, Integer)
    Catch ex As Exception
        ' if it throws an exception, it's not a user item
        propertyValue = 0
    End Try
    If (propertyValue = 513) Then
        Console.WriteLine(child.Name)
    End If
Next