溺れる者はUWSCを掴め！VBSにある便利な関数をUWSCでも使いたいとか思う事もあると思いますが、そんな時に凡庸的な関数など作っておくと便利ですね。 と言うことで今回はVBSをUWSCで使うための使い回しの利く関数のサンプル。 //--VBSの関数を実行 PUBLIC scpt=CreateOleObj("ScriptControl") //--sample res=vbs("FormatDateTime(Now, 0)") Msgbox("今日は"+res+"です。") res=vbs("FormatDateTime(Now, 1)") Msgbox("今日は"+res+"です。") Function vbs(str) scpt.language="VBScript" src="Function re():re=$_func_$:End Function" src=Chgmoj(src,"$_func_$",s
