SQL-Abfrage über Powershell zu vbs weiterreichen

$command = function Invoke-SQL {Param( [string]$SqlCommand  );
		$PSDefaultParameterValues['Out-File:Encoding'] = 'utf8';  
		$E = Get-OdbcDsn -Name SQL_UserCheck;
		$driver = $E.DriverName;
		$server= $E.Attribute.Server;
		$database = $E.Attribute.Database;
		$connectionString = "Server=$server; integrated security = true";  
		$connection = new-object system.data.SqlClient.SQLConnection($connectionString);
		$command = new-object system.data.sqlclient.sqlcommand($sqlCommand,$connection);
		$connection.Open();
		$adapter = New-Object System.Data.sqlclient.sqlDataAdapter $command;
		$dataset = New-Object System.Data.DataSet;
		$adapter.Fill($dataSet) | Out-Null; 
        If ($dataset.Tables -ne $null) {
            $table = $dataset.Tables
            } 
        ElseIf ($table.Rows.Count -eq 0) { 
            $table = New-Object System.Collections.ArrayList 
            } ;
        $connection.Close()
        return $table


}
 


Invoke-SQL -SqlCommand "DECLARE @tracefile VARCHAR(256)   
                        SELECT @tracefile = CAST(value AS VARCHAR(256)) 
                        FROM ::fn_trace_getinfo(DEFAULT) 
                        WHERE traceid = 1 AND property = 2 
                        SELECT NTUserName, SessionLoginName, SPID, TargetLoginName, StartTime, ServerName 
                        FROM ::fn_trace_gettable(@tracefile, DEFAULT) trc 
                        INNER JOIN sys.trace_events evt 
                        ON trc.EventClass = evt.trace_event_id 
                        WHERE trc.EventClass IN (108, 109, 110) 
                        AND ObjectName ='sysadmin'   
                        ORDER BY trc.StartTime";  

pscommand = "<powershell code>"  
cmd = "powershell.exe -noprofile  -command " & pscommand  
Set Shell = CreateObject("Wscript.Shell")  
Set executor = shell.Exec(cmd)
WScript.Sleep 10000
executor.StdIn.Close
strStarter = executor.StdOut.ReadAll

WScript.Echo strStarter