VBScript自習で作成したもの