VBS(VBScript)による関数を呼び出す関数を紹介
説明 : getref関数により関数を呼び出す
サンプルソース
(入力)
Dim kaname
Dim pointa
Sub kan1()
WScript.Echo "引数がkan1の場合の出力"
End Sub
Sub kan2()
WScript.Echo "引数がkan2の場合の出力"
End Sub
kaname = WScript.Arguments.Item(0)
Set pointa = GetRef(kaname)
Call pointa()
(出力:引数を「kan1」にした場合)
引数がkan1の場合の出力