VBScriptの引数を取得する

Question

cscript.exeを使用せずにVBScriptから引数を渡して返しますか？

例えば、cscript.exeの関与なしでscript1に値を返すscript1からscript2を呼び出したいとします。 私は様々な答えを探しましたが、どういうわけかcscript.exeの使用が関係しています。

このスクリプトは、インストールされた音声を取得し、ファイルvoice.txtで提供されるものを設定します。

Set WshShell = CreateObject("WScript.Shell") 
WShShell.CurrentDirectory = "..\Confirmatory Texts" 

Set FSO = CreateObject("Scripting.FileSystemObject") 

If FSO.FileExists("voice.txt") Then 
    Set temp = FSO.OpenTextFile("voice.txt") 
    confirm_voice = temp.ReadLine() 
    temp.Close 

    Set Sapi = CreateObject("SAPI.SpVoice") 

    For Each Voice In Sapi.GetVoices 
    i = i + 1 
    Next 

    For loopvar = 0 To i-1 
    If loopvar = CInt(confirm_voice) Then 
     Set Sapi.Voice = Sapi.GetVoices.Item(loopvar) 
    End If 
    Next 
Else 
    WScript.Echo "An Error Occured" 
End If 

私は別のスクリプトからこのスクリプトを呼び出した場合、どのように私は、このスクリプトは、それを呼び出したスクリプトにいくつかの値を返すようにすることができますか？

Answer 1

VBScriptは実際に他のVBScriptファイルの呼び出しまたはインポートのメカニズムを提供しません。最も近いのは、他のファイルの内容を読み込んで、ExecuteGlobalで実行することです。

デモンストレーション：

同じディレクトリに次の2つのファイルを入れて、script1.vbsを実行します。 script2.vbsの内容を読んで、ExecuteGlobalでコードを実行することによって、グローバルスコープで機能Squareを利用できるようにします。関数がグローバルスコープで利用可能になると、それは残りのスクリプトで使用できます。

script1.vbs

：

Set fso = CreateObject("Scripting.FileSystemObject") 

dir = fso.GetParentFolderName(WScript.ScriptFullName) 
script = fso.BuildPath(dir, "script2.vbs") 

ExecuteGlobal fso.OpenTextFile(script).ReadAll '"import" code into global scope 

WScript.Echo Square(3) 

script2.vbs：

Function Square(i) 
    Square = i*i 
End Function