1.「Hello World!」の表示 - vbs- Msgbox("Hello World!") - pls - $WScript->Echo("Hello World!"); 2.ドラッグ&ドロップされたファイルの表示 - vbs - Set Arg = WScript.Arguments If Arg.Count > 0 Then For Each str In Arg MsgBox str Next End If - pls(wsf) - <Job ID="DragDrop"> <script language=PerlScript> $arg = $WScript->{Arguments}; $count = $arg->{Count}; for($i = 0; $i < $count; $i++) { $WScript->Echo($arg->Item($i)); } </sc