.NET (Core and Framework)

Public Sub CreateInsertActivityStoredProcedure()

  Dim Name As String = "InsertActivityRow"
  If mMyDatabase.StoredProcedures.Contains(Name) Then
    mMyDatabase.StoredProcedures(Name).Drop()
  End If

  Dim An_SP As New StoredProcedure(mMyDatabase, Name, "dbo")

  'An_SP.TextHeader = "???"
  An_SP.TextMode = False
  An_SP.AnsiNullsStatus = False
  An_SP.QuotedIdentifierStatus = False

  'these are the input paramters
  An_SP.Parameters.Add(New StoredProcedureParameter(An_SP, "@UserFK", DataType.Int))
  An_SP.Parameters.Add(New StoredProcedureParameter(An_SP, "@MachineFK", DataType.Int))
  An_SP.Parameters.Add(New StoredProcedureParameter(An_SP, "@ActivityDate", DataType.DateTime))
  An_SP.Parameters.Add(New StoredProcedureParameter(An_SP, "@Activity", DataType.Int))
  An_SP.Parameters.Add(New StoredProcedureParameter(An_SP, "@TableAffected", DataType.Int))
  An_SP.Parameters.Add(New StoredProcedureParameter(An_SP, "@RowAffected", DataType.Int))

  'this is the output parameter
  Dim An_OutputParameter As StoredProcedureParameter = New StoredProcedureParameter(An_SP, "@NewPK", DataType.Int)
  An_OutputParameter.IsOutputParameter = True
  An_SP.Parameters.Add(An_OutputParameter)

  'start the string (the rest use += )
  An_SP.TextBody = ""

  An_SP.TextBody += "CREATE PROCEDURE InsertActivityRow"
  An_SP.TextBody += " @UserFK int,"
  An_SP.TextBody += " @MachineFK int,"
  An_SP.TextBody += " @ActivityDate datetime,"
  An_SP.TextBody += " @Activity int,"
  An_SP.TextBody += " @TableAffected int,"
  An_SP.TextBody += " @RowAffected int,"
  An_SP.TextBody += " @NewPK int OUT"
  An_SP.TextBody += " AS"
  An_SP.TextBody += " BEGIN"
  An_SP.TextBody += " SET NOCOUNT ON"
  An_SP.TextBody += " INSERT INTO ADV4SQL.dbo.ADVActivities"
  An_SP.TextBody += " ("
  An_SP.TextBody += " AcUserFK,"
  An_SP.TextBody += " AcMachineFK,"
  An_SP.TextBody += " AcDate,"
  An_SP.TextBody += " AcActivity,"
  An_SP.TextBody += " AcTableAffected,"
  An_SP.TextBody += " AcRowAffected"
  An_SP.TextBody += " )"
  An_SP.TextBody += " VALUES"
  An_SP.TextBody += " ("
  An_SP.TextBody += " @UserFK,"
  An_SP.TextBody += " @MachineFK,"
  An_SP.TextBody += " @ActivityDate,"
  An_SP.TextBody += " @Activity,"
  An_SP.TextBody += " @TableAffected,"
  An_SP.TextBody += " @RowAffected"
  An_SP.TextBody += " )"
  An_SP.TextBody += " SET @NewPK = SCOPE_IDENTITY() "
  An_SP.TextBody += " END"

  An_SP.Create()

End Sub

Dim An_SP As New StoredProcedure(mMyDatabase, Name, "dbo")

An_SP.Parameters.Add(New StoredProcedureParameter(An_SP, "@UserFK", DataType.Int))

An_SP.TextBody += "CREATE PROCEDURE InsertActivityRow"
An_SP.TextBody += " @UserFK int,"
An_SP.TextBody += " @MachineFK int,"
An_SP.TextBody += " @ActivityDate datetime,"
An_SP.TextBody += " @Activity int,"
An_SP.TextBody += " @TableAffected int,"
An_SP.TextBody += " @RowAffected int,"
An_SP.TextBody += " @NewPK int OUT"
An_SP.TextBody += " AS"
An_SP.TextBody += " BEGIN"

An_SP.TextBody += " END"

Dim geneSeq As String = "ATTATCGATGATATTATTGGTCTTATTTGT"
Dim splitseq() As Char

splitseq = geneSeq.ToCharArray()

' Display the splitseq array
For Each ch As Char In splitseq
    Console.WriteLine(ch)
Next

private int myRegisterActiveObject(object pUnk)
{
    string sDelim = "!";
    string sProgID = "MyNamespace.ClassName";

    IBindCtx bc;
    Ole32.CreateBindCtx(0, out bc);

    IMoniker moniker;
    Ole32.CreateItemMoniker(sDelim,sProgID, out moniker);

    IRunningObjectTable rot;
    bc.GetRunningObjectTable(out rot);

    int register = rot.Register((ROTFLAGS_REGISTRATIONKEEPSALIVE | ROTFLAGS_ALLOWANYCLIENT), pUnk, moniker);

    return register;
}

[HKEY_CLASSES_ROOT\APPID\myApp.exe]
"APPID"="{guid}"

Imports System.IO
Imports System.DirectoryServices
Imports System.Data


Module Module1

    Public dsCSIDir As New DataSet("CSIDIR")
    Public Users_Table As New DataTable
    Public drUser As DataRow

    Sub ImportUsers()
        Dim direntry As New DirectoryEntry("LDAP://OU=CSI Users, DC=csileasing, DC=com")
        Dim searcher As New DirectorySearcher(direntry)

        Dim i As Integer = 0
        Dim result As SearchResult
        Console.WriteLine("Started Data Import at :  " & TimeOfDay)
        Try
            searcher.Filter = "(&(objectClass=user)(samaccountname=*))"
            searcher.ClientTimeout = TimeSpan.FromSeconds(5)

            For Each result In searcher.FindAll
                If result.Properties("samaccountname")(0) = Nothing Then
                    Continue For
                End If

                drUser = Users_Table.NewRow

                drUser("index") = i

                If result.Properties.Contains("company") Then
                    drUser("Company") = result.GetDirectoryEntry.Properties("company").Value
                Else
                    Continue For
                End If

                drUser("LoginID") = result.GetDirectoryEntry.Properties("samaccountname").Value
                drUser("DisplayName") = result.GetDirectoryEntry.Properties("cn").Value

                If result.Properties.Contains("title") Then
                    drUser("Title") = result.GetDirectoryEntry.Properties("title").Value
                End If

                If result.Properties.Contains("telephoneNumber") Then
                    drUser("OfficePhone") = result.GetDirectoryEntry.Properties("telephoneNumber").Value
                End If

                If result.Properties.Contains("mobile") Then
                    drUser("CellPhone") = result.GetDirectoryEntry.Properties("mobile").Value
                End If

                If result.Properties.Contains("mail") Then
                    drUser("Email") = result.GetDirectoryEntry.Properties("mail").Value
                End If

                If result.Properties.Contains("streetAddress") Then
                    drUser("Street") = result.GetDirectoryEntry.Properties("streetAddress").Value
                End If

                If result.Properties.Contains("l") Then
                    drUser("City") = result.GetDirectoryEntry.Properties("l").Value
                End If

                If result.Properties.Contains("st") Then
                    drUser("State") = result.GetDirectoryEntry.Properties("st").Value
                End If

                If result.Properties.Contains("postalCode") Then
                    drUser("PostalCode") = result.GetDirectoryEntry.Properties("postalCode").Value
                End If

                If result.Properties.Contains("memberof") Then
                    Dim groups As DirectoryServices.ResultPropertyValueCollection = result.Properties.Item("MemberOf")
                    Dim groupslist As String = ""
                    Dim groupname As String = ""
                    For k As Int16 = 0 To groups.Count - 1
                        Dim fullname As String = result.Properties("memberof").Item(k).ToString
                        groupname = Left(Split(fullname, "=")(1), Len(Split(fullname, "=")(1)) - 3)
                        groupslist = groupslist & groupname & ","
                    Next
                    groupslist = Left(groupslist, Len(groupslist) - 1)
                    drUser("Groups") = groupslist
                End If

                If result.Properties.Contains("manager") Then
                    Dim managername As String() = Split(result.Properties("manager")(0), ",")
                    drUser("Manager") = Right(managername(0), Len(managername(0)) - 3)
                End If

                If result.Properties.Contains("sn") Then
                    drUser("FirstName") = result.GetDirectoryEntry.Properties("sn").Value
                End If

                If result.Properties.Contains("givenname") Then
                    drUser("LastName") = result.GetDirectoryEntry.Properties("givenname").Value
                End If

                If result.Properties.Contains("directReports") Then
                    Dim groups As DirectoryServices.ResultPropertyValueCollection = result.Properties.Item("directReports")
                    Dim groupslist As String = ""
                    Dim groupname As String = ""
                    For k As Int16 = 0 To groups.Count - 1
                        Dim fullname As String = result.Properties("directReports").Item(k).ToString
                        groupname = Left(Split(fullname, "=")(1), Len(Split(fullname, "=")(1)) - 3)
                        groupslist = groupslist & groupname & ","
                    Next
                    groupslist = Left(groupslist, Len(groupslist) - 1)
                    drUser("DirectReports") = groupslist
                End If

                If result.Properties.Contains("department") Then
                    drUser("Department") = result.GetDirectoryEntry.Properties("department").Value
                End If
                i += 1
                Users_Table.Rows.Add(drUser)
            Next
        Catch ex As Exception

        End Try
        Users_Table.AcceptChanges()
        dsCSIDir.Tables.Add(Users_Table)
    End Sub

    Public Sub CreateDataStructure()
        Users_Table.TableName = "Users"
        Console.WriteLine("Start of Create Columns at:  " & TimeOfDay)
        Users_Table.Columns.Add("index", GetType(Integer))
        Users_Table.Columns.Add("LoginID", GetType(String))
        Users_Table.Columns.Add("FirstName", GetType(String))
        Users_Table.Columns.Add("LastName", GetType(String))
        Users_Table.Columns.Add("DisplayName", GetType(String))
        Users_Table.Columns.Add("Title", GetType(String))
        Users_Table.Columns.Add("Company", GetType(String))
        Users_Table.Columns.Add("Email", GetType(String))
        Users_Table.Columns.Add("OfficePhone", GetType(String))
        Users_Table.Columns.Add("CellPhone", GetType(String))
        Users_Table.Columns.Add("Street", GetType(String))
        Users_Table.Columns.Add("City", GetType(String))
        Users_Table.Columns.Add("State", GetType(String))
        Users_Table.Columns.Add("PostalCode", GetType(String))
        Users_Table.Columns.Add("Manager", GetType(String))
        Users_Table.Columns.Add("Department", GetType(String))
        Users_Table.Columns.Add("Groups", GetType(String))
        Users_Table.Columns.Add("DirectReports", GetType(String))
        Console.WriteLine("End of Create Columns at:  " & TimeOfDay)
    End Sub