vbs调用 导入 另一个vbs的 并解释

'引入别的vbs文件并解释
Include “d:/a.vbs”

Call addsss(2,3)
Function Include(filePath)
Set stm = CreateObject(“Adodb.Stream”)
stm.Type = 2
stm.mode = 3
stm.charset = “utf-8”
stm.Open
stm.LoadFromFile filePath
filestr = stm.readtext
stm.close
'TracePrint filestr
ExecuteGlobal filestr
End Function

'a.vbs的内容如下
'sub addsss(i,j)
’ aas=i+j
’ MessageBox “计算得:” & aas
'end sub