htaファイルをいうものをご存知だろうか。

--------

htaファイルとは

HTAは、HtmlApplicationの略。ダイナミックHTML（DHTML）の機能を利用して、Windows向けアプリケーションを作成する技術のこと。 HTML を作成する感覚で作成が可能でありHTA独自のタグを使い細かなスタイルも指定できます。

VBScriptやJavaScriptの埋め込みも可能でWindows簡易アプリケーションとして使用できます。

--------

このhtaファイルにバッチファイル等のスクリプトを埋め込み、PCキッティング等の手順書として活用できることを最近知りました。

htaファイルを開き、そのファイル内に書かれている手順を順に読み進めながら、そこに埋め込まれたスクリプトを実行し手順を進めていく。

バッチファイル等のスクリプトを予め作成しておかなければならず、スクリプトで対応できない場合は、やはり操作が必要になり、htaファイル内に埋め込まれたスクリプトのみで完結しない手順が多いことも事実です。

しかし、1つのファイル内に手順が書かれ、全ての工程が入っているので作業者の間違いが少なくなり、他に目がいくことも少なくなり集中してキッティングが行え、スクリプトが有効的に機能すれば効率化にも繋がる手順書となります。

例として簡単なhtaファイルでの手順を以下に記載しました。

以下をコピーし、メモ帳に貼り付け、名前を付けて保存にて、ファイル名を「任意の名前.hta」、文字コードを「ANSI」で保存してみてください。

保存したファイルがhtaファイルになります。そのファイルを開いてみてください。

-------------------------

<html>

<head>

<title>PCテクノロジーsample</title>

<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">

<style TYPE="text/css">

</style>

<script type="text/vbscript" src="scripts\scripts.vbs"></script>

</head>

<body>

<SCRIPT LANGUAGE="VBScript">

                            Sub Window_OnLoad

                                          Window.ResizeTo 840,840

                            End Sub

</SCRIPT>

<font size="2" color="#000000">

<form name="form1">

              <p><b><u>【手順】</u></b></p>

<p><b><u><font size="4">■ 1．HPを開く</font></u></b></p>

                            <p>(1)リンクを選択し、PCテクノロジーHPをブラウザで開く</p>

        <body>

         <a href="https://www.pct.co.jp/">PCテクノロジーへのリンク</a>

        </body></html>

<p><b><u><font size="4">■ 2．ネットワーク設定を確認する</font></u></b></p>

                            <p>(1)ipconfigでネットワーク設定を確認する</p>

                            <P><font color="green">★★★★★★★★★★★★ネットワーク設定を確認する★★★★★★★★★★★★</font></P>

              <br>

              </table>

                            <p>下のボタンを押すとネットワーク設定が表示される</p>

                            <table border="1"  style="font-size: 8pt" bgcolor="#e3f0fb">

                                          <td>

              </SCRIPT>

    <form name="form1">

        <P>

        <input type="button" value="IPconfig" onClick="ipconfig()" />

        </p>

                    <textarea name="kekka2" cols="65" rows="25"></textarea>

                </td>

            </tr>

        </table>

    </form>

    <script language="VBScript">

        Dim WshShell, oExec

        Set WshShell = CreateObject("WScript.Shell")

        Sub ipconfig()

            exCommand = "ipconfig" & " " & "/all"

            Set oExec = WshShell.Exec(exCommand)

            R = oExec.Stdout.ReadAll

            document.form1.kekka2.value = R

        End Sub

     </script>

    </body></html>

-------------------------