' Microsoft SQL Server Integration Services Script Task
' Write scripts using Microsoft Visual Basic
' The ScriptMain class is the entry point of the Script Task.

' References Used, includes defaults:
'   Microsoft.SqlServer.ConnectionInfo
'   Microsoft.SqlServer.ManagedDTS
'   Microsoft.SqlServer.ScriptTask
'   Microsoft.SqlServer.Smo
'   Microsoft.Vsa
'   System
'   System.Data
'   System.Windows.Forms
'

Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Imports Microsoft.SqlServer.Management.Smo

Public Class ScriptMain

	' The execution engine calls this method when the task executes.
	' To access the object model, use the Dts object. Connections, variables, events,
	' and logging features are available as static members of the Dts class.
	' Before returning from this method, set the value of Dts.TaskResult to indicate success or failure.
	' 
	' To open Code and Text Editor Help, press F1.
	' To open Object Browser, press Ctrl+Alt+J.

	Public Sub Main()
        Try
            Dim srvr As Server = New Server(Dts.Variables("DestinationServer").Value.ToString)
            Dim db As Database
            db = srvr.Databases(Dts.Variables("DestinationDB").Value.ToString)

            Dim usr As User
            For Each usr In db.Users
                ' Check to see if the user is a system object, if not then drop the user
                If Not usr.IsSystemObject Then
                    usr.Drop()
                End If
            Next

            Dts.TaskResult = Dts.Results.Success

        Catch ex As Exception
            Dts.TaskResult = Dts.Results.Failure

        End Try
    End Sub

End Class

Dim usr as User

For x As Integer = db.Users.Count - 1 to 0 Step -1
  usr = db.Users(x)
  If Not usr.IsSystemObject Then
    usr.Drop()
  End If
Next x