如何将字符串从一个Vb脚本传递到另一个？

function schedule(date,time,Filename)
	 
		strComputer = "."
			Set objWMIService = GetObject("winmgmts:" _
    				& "{impersonationLevel=impersonate}!\\" _
  					& strComputer & "\root\cimv2") 
		JobID = "Test"
		Set objNewJob = objWMIService.Get("Win32_ScheduledJob")
		errJobCreate = objNewJob.Create _
    			("cmd /c cscript D:\New Folder\To send the Mail\Mail.vbs",time, _
        		false , ,date,True, JobId) 
		If errJobCreate = 0 Then
			objfilelog.writeline( Name  & vbtab &  vbtab & vbtab & "success"  & vbtab & vbtab &  now() & vbtab & JobId )
    			
		Else
    			
			objfilelog.writeline( Name  & vbtab & vbtab & "Failed" & vbtab & errJobCreate  )
		End If

	end function

Mail.vbs内容



'**************************发送SFTP状态的脚本服务**************

Mail.vbs content

'**************************Script to send the status of the SFTP Service**************

Dim sBlat,oExecObject,oshell

 	Set oShell = CreateObject("WScript.Shell")
		
		'sBlat="C:\IST\Utils\Blat """ & "FIlename"" to ""mail id"""
	 
		sBlat="C:\IST\Utils\Blat """ & "Filename"" -to ""mail id"""
		
		sBlat=sBlat & " -s ""Test "

		'sBlat=sBlat & """ -cc ""mail id"
		sBlat=sBlat & """ -p psupport"
		'msgbox (sBlat)
				'Alert sBlat
				Set oExecObject = oShell.Exec(sBlat)
				Set oshell=Nothing
				Set oExecObject = Nothing