$Scripter=new-object ("Microsoft.SqlServer.Management.Smo.Scripter") ("(local)") 

$Paths = "SQLSERVER:\SQL\localhost\DEFAULT\JobServer\Jobs","SQLSERVER:\SQL\localhost\DEFAULT\Logins","SQLSERVER:\SQL\localhost\DEFAULT\LinkedServers","SQLSERVER:\SQL\localhost\DEFAULT\Mail\Accounts","SQLSERVER:\SQL\localhost\DEFAULT\Mail\Profiles","SQLSERVER:\SQL\localhost\DEFAULT\JobServer\Operators"
$OutputPaths = "Server\Jobs","Server\Logins","Server\LinkedServers","Server\Mail\Accounts","Server\Mail\Profiles","Server\Operators"

$i = 0

do 
{
    $path = $Paths[$i]
    $Outputpath = "Source\SQL\"+$OutputPaths[$i]
    new-item -Force -path D:\ -name $Outputpath -type directory
    $dirname = "D:\" + $Outputpath
    cd $path

    foreach ($item in Get-Childitem)
    {
    	if ($item.Name.Substring(0,2) -eq "##")
    	{
    		echo $item.Name
    		continue
    	}
    	
    	$Scripter.Options.AnsiPadding=$False
    	$Scripter.Options.AnsiFile=$True
    	$Scripter.Options.AppendToFile=$False
    	$Scripter.Options.Bindings=$False
    	$Scripter.Options.DriAll=$True
    	$Scripter.Options.ExtendedProperties=$False
    	$Scripter.Options.IncludeHeaders=$False
    	$Scripter.Options.IncludeIfNotExists=$False
    	$Scripter.Options.IncludeDatabaseRoleMemberships=$True
    	$Scripter.Options.IncludeDatabaseContext=$True
    	$Scripter.Options.Permissions=$True
    	$Scripter.Options.SchemaQualify=$True
    	$Scripter.Options.ScriptData=$False
    	$Scripter.Options.ScriptDrops=$False
    	$Scripter.Options.Statistics=$False
    	$Scripter.Options.ToFileOnly=$True
    	
    	$p = "D:\"+$Outputpath+"\"+$item.Name.Replace("\","_").Replace(" ","_")+".sql"
    	
    	$Scripter.Options.FileName=$p
    		
    	$Scripter.Script($Item) 
    }

    $i++
}
while ($i -lt $Paths.Length)

Param
(
	$Database
)

$Scripter=new-object ("Microsoft.SqlServer.Management.Smo.Scripter") ("(local)") 

$TableSubtypes = "Indexes","Triggers","ForeignKeys"
$ExcludedScriptTypes = "ApplicationRoles","AsymmetricKeys","Certificates","DatabaseAuditSpecifications","Defaults","ExtendedProperties","ExtendedStoredProcedures","FileGroups","LogFiles","SymmetricKeys","ServiceBroker"

$Path = "SQLSERVER:\SQL\localhost\DEFAULT\Databases\"+$Database
cd $Path

foreach ($objectType in Get-ChildItem)
{
    if ($ExcludedScriptTypes -contains $objectType)
    {
    	continue
    }

    $Path = "SQLSERVER:\SQL\localhost\DEFAULT\Databases\"+$Database+"\"+$objectType
    cd $Path

    $dirname = "Source\SQL\Databases\" + $Database + "\" + $objectType
    new-item -Force -path D:\ -name $dirname -type directory

    foreach ($Item in Get-ChildItem) 
    { 
        $Scripter.Options.AnsiPadding=$False
        $Scripter.Options.AnsiFile=$True
        $Scripter.Options.AppendToFile=$False
        $Scripter.Options.Bindings=$False
        $Scripter.Options.DriAll=$True
        $Scripter.Options.ExtendedProperties=$False
        $Scripter.Options.IncludeHeaders=$False
        $Scripter.Options.IncludeIfNotExists=$False
        $Scripter.Options.IncludeDatabaseRoleMemberships=$True
        $Scripter.Options.IncludeDatabaseContext=$False
        $Scripter.Options.Permissions=$True
        $Scripter.Options.SchemaQualify=$True
        $Scripter.Options.ScriptData=$False
        $Scripter.Options.ScriptDrops=$False
        $Scripter.Options.Statistics=$False
        $Scripter.Options.ToFileOnly=$True

        	$modifier = ""
        	
        	if ($Item.Schema -ne $null)
        	{
        		$modifier += $Item.Schema + "."
        	}
        	
        	if ($Item.Name -ne $null)
        	{
        		$p =  $Item.Name
        		$modifier += $Item.Name.Replace("\","_") + "."
        	}

        	$Scripter.Options.FileName="D:\Source\SQL\Databases\"+$Database+"\"+$objectType+"\" + $modifier + "sql" 
        	
        	$p = "D:\Source\SQL\Databases\"+$database+"\"+$objectType+"\" + $modifier + "sql" 
        	echo $p 
        	
        	$Scripter.Script($Item) 
        	
        	if ($objectType -eq "Tables")
        	{

        	foreach ($subtype in $TableSubtypes)
        	{
        		foreach ($subitem in $Item.$subtype)
        		{
        		
        			$Scripter.Options.AnsiPadding=$False
        			$Scripter.Options.AnsiFile=$True
        			$Scripter.Options.AppendToFile=$False
        			$Scripter.Options.Bindings=$False
        			$Scripter.Options.DriAll=$False
        			$Scripter.Options.ExtendedProperties=$False
        			$Scripter.Options.IncludeHeaders=$False
        			$Scripter.Options.IncludeIfNotExists=$False
        			$Scripter.Options.Permissions=$True
        			$Scripter.Options.SchemaQualify=$True
        			$Scripter.Options.ScriptData=$False
        			$Scripter.Options.ScriptDrops=$False
        			$Scripter.Options.Statistics=$False
        			$Scripter.Options.ToFileOnly=$True


        			$modifier = ""
        			
        			if ($Item.Schema -ne $null)
        			{
        				$modifier += $Item.Schema + "."
        			}
        			
        			if ($Item.Name -ne $null)
        			{
        				$modifier += $Item.Name.Replace("\","_") + "."
        			}

        				
        			if ($subitem.Name -ne $null)
        			{
        				$modifier += $subitem.Name.Replace("\","_") + "."
        			}
        		
        			if ($subtype -eq "Indexes")
        			{
        				if ($subitem.IsClustered) 
        				{
        					$modifier += "Clustered."		
        				}
        				
        				if ($subitem.IndexKeyType -eq "DriPrimaryKey")
        				{
        					#Primary keys fall under indexes as well as primary key branches
        					$subtype = "PrimaryKeys"		
        				} else
        				{
        					$subtype = "Indexes"
        				}
        			}

        			$dirname = "Source\SQL\Databases\" + $Database + "\" + $subtype
        			new-item -Force -path D:\ -name $dirname -type directory

        			$Scripter.Options.FileName="D:\Source\SQL\Databases\"+$database+"\"+$subtype+"\" + $modifier + "sql" 
        			$p = "D:\Source\SQL\Databases\"+$database+"\"+$subtype+"\" + $modifier + "sql" 
        			echo $p
        			$Scripter.Script($subitem) 
        		}	
        	}
        }
    }
}

$Path = "SQLSERVER:\SQL\localhost\DEFAULT\Databases"
cd $Path
foreach ($item in Get-Childitem)
{
	echo $item.Name
	D:\Scripts\ScriptDatabase.ps1 $item.Name
}

Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.common
Imports System.Collections.Specialized


Public Class ScriptMain

        Public Sub Main()

        'Get the Live/Mirror Server Address Details
        Dim LiveServerName As String = Dts.Variables("LiveServerName").Value.ToString
        Dim MirrorServerName As String = Dts.Variables("MirrorServerName").Value.ToString

        'Get the JobID and Jobname that needs to be copied accross. 
        Dim Job_CopyJobToMirrorJobID As String = Dts.Variables("Job_CopyJobToMirrorJobID").Value.ToString
        Dim Job_CopyJobToMirrorName As String = Dts.Variables("Job_CopyJobToMirrorName").Value.ToString

        'Convert String to GUID - note: the string is already a correctly formated version of the job GUID
        Dim GUID_CopyJobToMirrorJobID As New Guid(Job_CopyJobToMirrorJobID)

        'Declare a ServerConnection object variable to specify SQL authentication, login and password.
        Dim conn As New ServerConnection
        conn.LoginSecure = False

        'Connect to the local, default instance of SQL Server.
        Dim LiveSvr As Server
        LiveSvr = New Server(LiveServerName)

        Dim MirrorSvr As Server
        MirrorSvr = New Server(MirrorServerName)


        'Script Out the Job 

        'Dim sc As stringCollection
        Dim scrp As Scripter
        scrp = New Scripter(LiveSvr)
        scrp.Options.ScriptDrops = False
        scrp.Options.ToString()

        Dim sc As String
        Dim JobScript As String
        sc = LiveSvr.JobServer.Jobs.ItemById(GUID_CopyJobToMirrorJobID).Script().ToString()

        MsgBox("SC: " & sc, MsgBoxStyle.OkOnly, "Script")

        Dim st As String
        For Each st In sc
            JobScript = JobScript & st
        Next

        MsgBox("JobScript: " & JobScript)

        '
        Dts.TaskResult = Dts.Results.Success
    End Sub

End Class

Dim sourceConn As ServerConnection
sourceConn = DirectCast(Dts.Connections("SOURCE").AcquireConnection(Dts.Transaction), _
        ServerConnection)
Dim src As New Server(sourceConn)