第一引数に指定されたファイルから読んで、標準出力に書く lesson003.vbs Dim objFs : Set objFs = CreateObject("Scripting.FileSystemObject") Dim objText : Set objText = objFs.OpenTextFile(WScript.Arguments(0))Do Until objText.AtEndOfStream WScr…