frog.raindrop.jp.knowledge > WSH (Windows Script Host)

October 8, 2010

WSH よりクリップボード、次の手

このサイトで最も人気のある記事は WSH から IE を起動してクリップボードにアクセスする Tips を扱ったものなんだけど、IE のバージョンが上がってスクリプトからクリップボードにアクセスしようとすると警告が表示されるようになったため、現在では使えないテクニックになっちゃってた。で、年月を経て再び WSH からクリップボードを操作する方法を調べてたんだけど、id:ardarim さんがIE の execWB メソッドでコマンドを発行するテクニックを公開してくださってるのを発見した。

これは素晴らしい!というわけで、クリップボードからデータを取得する部分も考えてみた。

var jp;
if (!jp) jp = {};
if (!jp.raindrop) jp.raindrop = {};
if (!jp.raindrop.frog) jp.raindrop.frog = {};
jp.raindrop.frog.clipboard || (function ()
    {
        // コマンドのID
        var OLECMDID_COPY = 12;
        var OLECMDID_PASTE = 13;
        var OLECMDID_SELECTALL = 17;

        // IE の初期化
        var _internetExplorer = new ActiveXObject ('InternetExplorer.Application');
        _internetExplorer.navigate ("about:blank");
        while (_internetExplorer.Busy)
            WScript.Sleep (10);

        // textarea 要素を作成する
        var _textarea = _internetExplorer.document.createElement ("textarea");
        _internetExplorer.document.body.appendChild (_textarea);
        _textarea.focus ();

        jp.raindrop.frog.clipboard = {
            // クリップボードに文字列をコピー
            setText: function (text)
            {
                _textarea.innerText = text;
                _internetExplorer.execWB (OLECMDID_SELECTALL, 0);
                _internetExplorer.execWB (OLECMDID_COPY, 0);
            },

            // クリップボードより文字列を取得
            getText: function ()
            {
                _textarea.innerText = "";
                _internetExplorer.execWB (OLECMDID_PASTE, 0);
                return _textarea.innerText;
            },

            // IE を解放
            release: function ()
            {
                _internetExplorer.Quit ();
            }
        };
    }());

ちょっとテストしたところ動いてます。素晴らしい。

// クリップボードから取得したテキストを表示
WScript.echo (jp.raindrop.frog.clipboard.getText ());
// クリップボードに文字列を設定
jp.raindrop.frog.clipboard.setText ("JScript から設定したテキスト\nタブ「\t」も対応");

September 21, 2010

識別子、文字列または数がありません。

Firefox や Chrome では正常に動作する Javascript が、IE では「識別子、文字列または数がありません。」というエラーになることが。さっぱり意味が分かんなくて調べてみたんですけど、結構あちこちのブログで取り上げられています。IE ではオブジェクトリテラルの最後のメンバの後ろにカンマがある場合に出るみたいです。

var person = {
    lastName: '鈴木',
    firstName: '一郎',
    age: 25,  // ←ここにカンマがあるとエラー
    };

C 言語などで、配列を中括弧で初期化する場合に最後の要素の後ろにもカンマを付けることが認められているので、ついついこのケースでもカンマを入れたくなってしまうんですが、意識して付けないようにした方がよさそうです。

ちなみに、WSH で実行するときも同じエラーになります。当然か。

ECMA の仕様ではどうなってるのかな…。

続きを読む...

August 25, 2010

ZIP 作成処理を使ってみる。

昨日アップしたZIP 作成処理をコネコネして、毎日ソースをバックアップして、さらにしかるべき宛先にメールで送りつける処理をある程度自動化するようにしてみた。
mailto: でデフォルトのメーラが起動するようにしてるだけで、添付するのは手動。

<?xml version="1.0" encoding="Shift_JIS" standalone="yes" ?>
<package>
    <job>
        <?job error="True" debug="True" ?>
        <script language="JScript" src="sprintf-0.6.js"/>
        <script language="JScript" src="zipmaker.js"/>
        <script language="JScript"><![CDATA[
            // 外部のクラス
            var fso = new ActiveXObject ("Scripting.FileSystemObject");
            var shell = new ActiveXObject ("WScript.Shell");
            // パス
            var sourcePath = "C:\\project\\src";
            var destPath = "\\\\server\\share\\backup";
            // 本日の日付
            var now = new Date ();
            // ファイル名を作成
            var filename = "src_";
            filename += sprintf ("%04d%02d%02d", now.getFullYear (), now.getMonth () + 1, now.getDate ());
            filename += ".zip";
            var path = fso.BuildPath (destPath, filename);
            // ZIP ファイルを作成
            var zip = zipper.create (path);
            if (zip)
            {
                // ソースをすべて ZIP に含める
                var sourceFolder = fso.GetFolder (sourcePath);
                for (var itr = new Enumerator (sourceFolder.Files); !itr.atEnd (); itr.moveNext ())
                    zip.addItem (itr.item ().Path);
                // バックアップが格納されたフォルダを開く
                shell.run ("explorer /e,/n,\"" + destPath + "\"");
                // メール送信画面を開く
                var link = "mailto:<leader@example.com>";
                link += "?cc=<manager@example.com>&cc=<president@example.com>&bcc=<mine@example.com>";
                link += "&subject=ソース送付%20";
                link += sprintf ("%04d%02d%02d", now.getFullYear (), now.getMonth () + 1, now.getDate ());
                shell.run (link);
            }
        ]]></script>
    </job>
</package>

添付忘れに注意!

August 24, 2010

ZIP 作成処理を試作中。

手慰みに、圧縮フォルダを作成するスクリプトを汎用性を考慮して改修中。

var zipmaker = function  ()
    {
        var _fileSystemObject = new ActiveXObject ('Scripting.FileSystemObject');
        var _shell = new ActiveXObject ('Shell.Application');
        var _wshShell = new ActiveXObject ('WScript.Shell')

        // ZIP ファイル作成
        var _createZipFile = function (path)
            {
                try
                {
                    // 既に存在する場合
                    if (_fileSystemObject.FileExists (path))
                    {
                        if (7 == _wshShell.Popup ("既に存在する書庫 "+ path + " に追加してよろしいですか?", 0, "ZIP ファイル作成", 32 + 4))
                            return null;
                    }
                    else
                    {
                        // 空の ZIP ファイルを作成する
                        var file = _fileSystemObject.CreateTextFile (path, false);
                        file.Write ("PK\5\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0");
                        file.Close ();
                    }
                    // Shell.Folder オブジェクトを返す
                    return _shell.NameSpace (path);
                }
                catch (e)
                {
                }
                return null;
            };

        // ファイルやフォルダを追加する
        var _addItem = function (zipFolder, zipPath, path)
            {
                // Shell.FolderItem を取得する
                var file = _shell.NameSpace (_fileSystemObject.GetParentFolderName (path)).ParseName (_fileSystemObject.GetFileName (path));
                // コピー
                zipFolder.CopyHere (file);
                // コピーが開始されるようにディレイを設ける
                WScript.Sleep (100);
                while (true)
                {
                    try
                    {
                        // 追記モードで開く
                        _fileSystemObject.OpenTextFile (zipPath, 8, false).Close ();
                        // 開ければコピー完了とみなす
                        return true;
                    }
                    catch (e2)
                    {
                    }
                    WScript.Sleep (10);
                }
            }

        // ZIP オブジェクト作成用のオブジェクトを返す
        return {

            // ZIP オブジェクト作成処理
            create: function (zipPath)
            {
                var path = _fileSystemObject.GetAbsolutePathName (zipPath)
                var _zipFolder = _createZipFile (path);

                if (_zipFolder)
                {
                    return {
                        path: path,
                        addItem: function (filespec)
                        {
                            return _addItem (_zipFolder, zipPath, filespec);
                        }
                    };
                }
                return null;
            }
        };
    } ();
続きを読む...

August 23, 2010

インストールされている .NET Framework のバージョンをチェックするスクリプト - .NET Framework 4.0 対応版

インストールされている .NET Framework のバージョンをチェックするスクリプト を .NET Framework 4.0 に対応してみました。
4.0 は Full と Client Profile の 2 種類があるんですねー。

<?xml version="1.0" encoding="Shift_JIS" standalone="yes" ?>
<package>
<job id="Registry">
<?job error="True" debug="True" ?>
<script language="JScript">
<![CDATA[
var checker = function ()
    {
        var _reader = function ()
            {
                var _shell = new ActiveXObject ("WScript.Shell");
                return { read: function (name) { try { return _shell.RegRead (name); } catch (e) {}; return null; } };
            } ();

        var _checkKey = function (key)
            {
                var install = _reader.read (key + "\\Install");
                if (install == null || "" + install == "0")
                    return null;
                var servicePack = _reader.read (key + "\\SP");
                if (servicePack == null) servicePack = 0;
                return servicePack;
            };

        var _check10 = function ()
            {
                var install = _reader.read ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\Full\\v1.0.3705\\1041\\Microsoft .NET Framework Full v1.0.3705 (1041)\\Install");
                if (install == null || "" + install == "0")
                    return null;

                var version = _reader.read ("HKLM\\SOFTWARE\\Microsoft\\Active Setup\\Installed Components\\{78705f0d-e8db-4b2d-8193-982bdda15ecd}\\Version");
                if (version == null)
                    version = _reader.read ("HKLM\\SOFTWARE\\Microsoft\\Active Setup\\Installed Components\\{FDC11A6F-17D1-48f9-9EA3-9051954BAA24}\\Version");
                if (version == null)
                    return 0;

                var m = version.match (/^1,0,3705,(\d+)$/);
                var servicePack = 0;
                if (m != null && m.length > 1)
                    servicePack = m [1] - 0;

                return servicePack;
            };

        var _formatResult = function (check, label)
            {
                switch (check)
                {
                case null: return label + ": not installed.\n";
                case 0:    return label + ": installed.\n";
                default:   return label + ": SP" + check + " installed.\n";
                }
            };

        return {
            check10: _check10,
            check11: function () { return _checkKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v1.1.4322"); },
            check20: function () { return _checkKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v2.0.50727"); },
            check30: function () { return _checkKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v3.0"); },
            check35: function () { return _checkKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v3.5"); },
            check40Client: function () { return _checkKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v4\\Client"); },
            check40Full:   function () { return _checkKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v4\\Full"); },
            check11JP: function () { return _checkKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v1.1.4322\\1041"); },
            check20JP: function () { return _checkKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v2.0.50727\\1041"); },
            check30JP: function () { return _checkKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v3.0\\1041"); },
            check35JP: function () { return _checkKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v3.5\\1041"); },
            check40ClientJP: function () { return _checkKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v4\\Client\\1041"); },
            check40FullJP:   function () { return _checkKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v4\\Full\\1041"); },
            show: function ()
                {
                    WScript.echo (_formatResult (this.check10 (), ".NET Framework 1.0")
                        + _formatResult (this.check11 (), ".NET Framework 1.1")
                        + _formatResult (this.check11JP (), "    Japanese Langage Pack")
                        + _formatResult (this.check20 (), ".NET Framework 2.0")
                        + _formatResult (this.check20JP (), "    Japanese Langage Pack")
                        + _formatResult (this.check30 (), ".NET Framework 3.0")
                        + _formatResult (this.check30JP (), "    Japanese Langage Pack")
                        + _formatResult (this.check35 (), ".NET Framework 3.5")
                        + _formatResult (this.check35JP (), "    Japanese Langage Pack")
                        + _formatResult (this.check40Client (), ".NET Framework 4.0 Client Profile")
                        + _formatResult (this.check40ClientJP (), "    Japanese Langage Pack")
                        + _formatResult (this.check40Full (), ".NET Framework 4.0 Full")
                        + _formatResult (this.check40FullJP (), "    Japanese Langage Pack")
                        );
                }
        };
    } ();
checker.show ();
]]>
</script>
</job>
</package>

July 2, 2010

ネットワーク構成を保存・復元する

なんか前にも作った気もするんだけど…

続きを読む...

February 1, 2010

CScript.exe で実行したいスクリプト

既定のスクリプト ホストの設定にかかわらず、常に CScript.exe で実行したいスクリプトがあるんですけど、こんな方法を思いつきました。
<?xml version="1.0" encoding="Shift_JIS" standalone="yes" ?>
<package>
    <job>
        <script language="JScript"><![CDATA[
            var shell = new ActiveXObject ("WScript.Shell");
            shell.Run ("cscript //Job:EntryJob \"" + WScript.ScriptFullName + "\"", 1, false);
        ]]></script>
    </job>
    <job id="EntryJob">
        <script language="JScript"><![CDATA[
            WScript.Echo ("Hello world !");
            WScript.StdIn.ReadLine ();
        ]]></script>
    </job>
</package>
実際に実行したい処理は EntryJob の部分です。デフォルトで実行されるジョブ内で、ジョブを指定して自分自身を呼び出しています。

July 10, 2009

インストールされている .NET Framework のバージョンをチェックするスクリプト

.NET Frameworkのバージョンを確認する方法を参考に WSH スクリプトを書いた。

拡張子を .wsf で保存して実行してくださいねー。

<?xml version="1.0" encoding="Shift_JIS" standalone="yes" ?>
<package>
<job id="Registry">
<?job error="True" debug="True" ?>
<script language="JScript">
<![CDATA[
    var checker = new DotNetChecker ();
    var result = "";
    result += checker.FormatResult (checker.Check10 (), ".NET Framework 1.0");
    result += checker.FormatResult (checker.Check11 (), ".NET Framework 1.1");
    result += checker.FormatResult (checker.Check11JP (), "    Japanese Langage Pack");
    result += checker.FormatResult (checker.Check20 (), ".NET Framework 2.0");
    result += checker.FormatResult (checker.Check20JP (), "    Japanese Langage Pack");
    result += checker.FormatResult (checker.Check30 (), ".NET Framework 3.0");
    result += checker.FormatResult (checker.Check30JP (), "    Japanese Langage Pack");
    result += checker.FormatResult (checker.Check35 (), ".NET Framework 3.5");
    result += checker.FormatResult (checker.Check35JP (), "    Japanese Langage Pack");

    WScript.Echo (result);

    function DotNetChecker ()
    {
        this.reader = new RegReader ();

        this.Check10 = function ()
        {
            var install = this.reader.RegRead ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\Full\\v1.0.3705\\1041\\Microsoft .NET Framework Full v1.0.3705 (1041)\\Install");
            if (install == null || "" + install == "0")
                return null;

            var version = this.reader.RegRead ("HKLM\\SOFTWARE\\Microsoft\\Active Setup\\Installed Components\\{78705f0d-e8db-4b2d-8193-982bdda15ecd}\\Version");
            if (version == null)
                version = this.reader.RegRead ("HKLM\\SOFTWARE\\Microsoft\\Active Setup\\Installed Components\\{FDC11A6F-17D1-48f9-9EA3-9051954BAA24}\\Version");
            if (version == null)
                return 0;

            var regex = /^1,0,3705,(\d+)$/;
            var m = regex.exec (version);
            var sp = 0;
            if (m != null && m.length > 1)
                sp = m [1] - 0;

            return sp;
        }

        this.Check11 = function ()
        {
            return this.CheckKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v1.1.4322");
        }

        this.Check20 = function ()
        {
            return this.CheckKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v2.0.50727");
        }

        this.Check30 = function ()
        {
            return this.CheckKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v3.0");
        }

        this.Check35 = function ()
        {
            return this.CheckKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v3.5");
        }

        this.Check11JP = function ()
        {
            return this.CheckKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v1.1.4322\\1041");
        }

        this.Check20JP = function ()
        {
            return this.CheckKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v2.0.50727\\1041");
        }

        this.Check30JP = function ()
        {
            return this.CheckKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v3.0\\1041");
        }

        this.Check35JP = function ()
        {
            return this.CheckKey ("HKLM\\SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v3.5\\1041");
        }

        this.CheckKey = function (key)
        {
            var install = this.reader.RegRead (key + "\\Install");

            if (install == null || "" + install == "0")
                return null;

            var sp = this.reader.RegRead (key + "\\SP");
            if (sp == null)
                sp = 0;
            return sp;
        }

        this.FormatResult = function (value, label)
        {
            var result = label;

            switch (value)
            {
            case null:
                result += ": not installed.\n"; break;
            case 0:
                result += ": installed.\n"; break;
            default:
                result += ": SP" + value + " installed.\n"; break;
            }
            return result;
        }

    }

    function RegReader ()
    {
        this.shell = WScript.CreateObject ('WScript.Shell');

        this.RegRead = function (name)
        {
            var ret = null;
            try
            {
                ret = this.shell.RegRead (name);
            }
            catch (e)
            {
                //WScript.Echo (e.number + "\n" + e.description);
            }
            return ret;
        }

        return this;
}
]]>
</script>
</job>
</package>

December 20, 2007

WSH で Usage を表示する

拡張子 .wsf のファイルでは、XMLをちょろっと書くだけで Usage (使用方法) が生成できます。

<?xml version="1.0" encoding="utf-8"?>
<package>
    <job>
        <runtime>
            <description>サンプルスクリプトです。</description>
            <named
                name="A"
                helpstring="名前つき引数Aです"
                type="string"
                required="true"/>
            <named
                name="B"
                helpstring="名前つき引数Bです"
                type="boolean"
                required="false"/>
            <named
                name="C"
                helpstring="名前つき引数Cです"
                type="simple"
                required="false"/>
            <unnamed
                name="arga"
                helpstring="名前なし引数Aです"
                many="false"
                required="true"/>
            <unnamed
                name="argb"
                helpstring="名前なし引数Bです"
                many="true"
                required="false"/>
            <example></example>
        </runtime>
        <script language="JScript"><![CDATA[
            WScript.Arguments.ShowUsage ();
        ]]></script>
    </job>
</package>
>cscript test.wsf /?
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

サンプルスクリプトです。
使い方 : test.wsf /A:値 [/B[+|-]] [/C] arga [argb1 argb2...]

オプション :

A    : 名前つき引数Aです
B    : 名前つき引数Bです
C    : 名前つき引数Cです
arga : 名前なし引数Aです
argb : 名前なし引数Bです

サンプルの script 要素内にもありますが WScript.Arguments.ShowUsage (); でプログラム内から表示させることもできるので、引数が不正な時などにも使えそうです。

November 29, 2007

圧縮フォルダを作成してコピーする WSH スクリプト

shell32.dll の Shell オブジェクトを使用してZIPフォルダを作る JScript です。これも1回使っただけでお蔵入りの予感。VC++ 版もあるけど・・・API直叩きの方がいい気がするので、それはとりあえず保留。
//
// makeZipFolder.js
//

// スクリプト ランタイム関連
var fileSystemObject = new ActiveXObject ('Scripting.FileSystemObject');
var wsShell = new ActiveXObject ('WScript.Shell');

// 固めるパス
var sourcePath = wsShell.SpecialFolders ('AppData');
sourcePath = fileSystemObject.BuildPath (sourcePath, "Test");

// デスクトップ
var desktopPath = wsShell.SpecialFolders ('Desktop');

// 作成する ZIP ファイルのパス
var zipPath = fileSystemobject.BuildPath (desktopPath, 'Test.zip');

// ZIP ファイルを作成する
var zipFile = fileSystemObject.CreateTextFile (zipPath, false);
zipFile.Write ("PK\5\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0");
zipFile.Close ();

// ZIP ファイルを圧縮フォルダとして取得
var shell = new ActiveXObject ('Shell.Application');
var zipFolder = shell.NameSpace (zipPath);

// コピー元
var sourceFolder = fileSystemObject.GetFolder (sourcePath);

for (var n = 0, var e = new Enumerator (sourceFolder.Files); ! e.atEnd (); e.moveNext ())
{
    // ファイルをコピー
    var sourceFolderItem = shell.Namespace (e.item ().ParentFolder.Path).ParseName (e.item ().Name);
    zipFolder.CopyHere (sourceFolderItem);
    n ++;
    
    // コピーが完全に完了するまで待機
    while (n == zipFolder.Items ().Count)
    {
        WScript.Sleep (100);
    }
}
WScript.echo ("完了しました。");

入力システムを列挙する WSH スクリプト

タイトルの通りです。「テキスト サービスと入力言語」コントロールパネルでいうと、

規定の言語
HKCU\Keyboard Layout\Preload\1
インストールされているサービス
HKCU\Keyboard Layout\Preload 以下の値のリスト
[追加] ボタンより追加可能な全IME
HKLM\SYSTEM\CurrentControlSet\Control\Keyboard Layouts 以下のサブキーのリスト

と言う具合に、レジストリに情報が格納されているのでこれらを取得します。お蔵入りスクリプトになってしまい、もったいないのでアップします。

//
// enumIme.js
//

// 定義済み HKEY
var HKEY_CLASSES_ROOT    = 0x80000000;
var HKEY_CURRENT_USER    = 0x80000001;
var HKEY_LOCAL_MACHINE    = 0x80000002;
var HKEY_USERS            = 0x80000003;
var HKEY_CURRENT_CONFIG = 0x80000005;
var HKEY_DYN_DATA        = 0x80000006;

// WMI の StdRegProv を使用する
var locator = new ActiveXObject ("WbemScripting.SWbemLocator");
var service = locator.ConnectServer (null, "root\\default");
var stdRegProv = service.Get ("StdRegProv");

// スクリプト ランタイム関連
var fileSystemObject = new ActiveXObject ('Scripting.FileSystemObject');
var wsShell = new ActiveXObject ('WScript.Shell');
var desktopPath = wsShell.SpecialFolders ('Desktop');

// ログファイル、Layout Text 等が SJIS では表示できない可能性があるため、ユニコードテキストで
var logFile = fileSystemObject.CreateTextFile (fileSystemObject.BuildPath (desktopPath, "imecheck.txt"), true, true);

// すべてのキーボードレイアウト
// HKLM\SYSTEM\CurrentControlSet\Control\Keyboard Layouts
var lmImeList = new SubKey (stdRegProv, HKEY_LOCAL_MACHINE, "SYSTEM\\CurrentControlSet\\Control", "Keyboard Layouts");
lmImeList.getSubKeys ();

// 言語バーより選択可能なキーボードレイアウト
// HKCU\Keyboard Layout\Preload
var preload = new SubKey (stdRegProv, HKEY_CURRENT_USER, "Keyboard Layout", "Preload");

for (var item in preload.getRegValues ())
{
    logFile.Write (item);    // 値名は番号
    logFile.Write (":");

    // 値はキーボードレイアウトの番号
    logFile.WriteLine (preload.regValues [item].value);

    // キーボードレイアウトの番号より、情報を取り出す
    var keyObj = lmImeList.subKeys [preload.regValues [item].value.toUpperCase ()];
    if (keyObj == null) keyObj = lmImeList.subKeys [preload.regValues [item].value.toLowerCase ()];

    // 情報あり
    if (keyObj != null)
    {
        for (var item2 in keyObj.getRegValues ())
        {
            // 値名 "layout text" を探す
            if (-1 != item2.search (/layout text/i))
            {// 見つかった
                logFile.Write ("        ");
                logFile.Write (item2);
                logFile.Write ("(" + keyObj.regValues [item2].typeName + ")");
                logFile.Write ("\t:");
                logFile.WriteLine (keyObj.regValues [item2].value);
            }
        }
    }
}

logFile.WriteBlankLine ();

// Keyboard Layouts のリスト
logFile.WriteLine (lmImeList.path);
writeImeList (logFile, lmImeList, "");

// ファイルを閉じる
logFile.Close ();

// 終了
WScript.echo ("完了しました");

//
// キーボードレイアウトのリストを出力する
//
function writeImeList (file, keyObj, padding)
{
    var item;
    var pad = padding + "  ";

    for (item in keyObj.getSubKeys ())
    {
        file.WriteLine (pad + keyObj.subKeys[item].name);
        writeImeList (file, keyObj.subKeys[item], pad);
    }

    for (item in keyObj.getRegValues ())
    {
        file.Write (pad);
        file.Write (item);
        file.Write ("(" + keyObj.regValues[item].typeName + ")");
        file.Write ("\t:");
        file.WriteLine (keyObj.regValues[item].value);
    }
    file.WriteLine ();
}



// レジストリキーオブジェクトのコンストラクタ
function SubKey (regProv, hDefKey, parentSubKey, name)
{
    //
    // メンバの初期化
    //
    this.regProv = regProv;
    this.hDefKey = hDefKey;
    this.parentSubKey = parentSubKey;
    this.name = name;
    this.path = parentSubKey + "\\" + name;
    this.subKeys = null;
    this.regValues = null;

    //
    // メソッドの定義
    //

    // サブキーのコレクションを取得
    this.getSubKeys = function ()
    {
        if (!this.subKeys)
        {
            var method = this.regProv.Methods_.Item ("EnumKey");
            var inParameter = method.InParameters.SpawnInstance_ ();
            inParameter.hDefKey = this.hDefKey;
            inParameter.sSubKeyName = this.path;
            var outParameter = this.regProv.ExecMethod_ (method.Name, inParameter);
            this.subKeys = new Array ();
            if (outParameter.sNames != null)
            {
                var subKeys = outParameter.sNames.toArray ();
                for (var i = 0; i < subKeys.length; i ++)
                {
                    this.subKeys [subKeys [i]] = new SubKey (this.regProv, this.hDefKey, this.path, subKeys [i]);
                }
            }
        }
        return this.subKeys;
    }

    // キー内の値の取得
    this.getRegValues = function ()
    {
        if (!this.regValues)
        {
            var method = this.regProv.Methods_.Item ("EnumValues");
            var inParameter = method.InParameters.SpawnInstance_ ();
            inParameter.hDefKey = this.hDefKey;
            inParameter.sSubKeyName = this.path;
            var outParameter = this.regProv.ExecMethod_ (method.Name, inParameter);
            this.regValues = new Array ();
            if (outParameter.sNames != null)
            {
                var names = outParameter.sNames.toArray ();
                var types = outParameter.Types.toArray ();
                var typeNames = new Array (
                    ""                                ,     // 0
                    "REG_SZ"                        ,     // 1
                    "REG_EXPAND_SZ"                 ,     // 2
                    "REG_BINARY"                    ,     // 3
                    "REG_DWORD"                     ,     // 4
                    "REG_DWORD_BIG_ENDIAN"            ,     // 5
                    "REG_LINK"                        ,     // 6
                    "REG_MULTI_SZ"                    ,     // 7
                    "REG_RESOURCE_LIST"             ,     // 8
                    "REG_FULL_RESOURCE_DESCRIPTOR"    ,     // 9
                    "REG_RESOURCE_REQUIREMENTS_LIST",     // 10
                    "REG_QWORD"                    );     // 11
                var getTypeValues = new Array (
                    null,
                    getStringValue,
                    getExpandedStringValue,
                    getBinaryValue,
                    getDWORDValue,
                    getDWORDValue,
                    null,
                    getMultiStringValue,
                    null,
                    null,
                    null,
                    getQWORDValue);

                for (var i = 0; i < names.length; i ++)
                {
                    this.regValues [names [i]] = new Object ();
                    this.regValues [names [i]].name = names [i];
                    this.regValues [names [i]].type = types [i];
                    this.regValues [names [i]].typeName = typeNames [types [i]];
                    this.regValues [names [i]].value = "";
                    var fn = getTypeValues [types [i]];
                    if (fn)
                    {
                        this.regValues [names [i]].value = fn (this.regProv, this.hDefKey, this.path, names [i]);
                    }
                }
            }
        }
        return this.regValues;
    }
    return this;
}


// 文字列値取得
function getStringValue (regProv, hDefKey, sSubKeyName, sValueName)
{
    var method = regProv.Methods_.Item ("GetStringValue");
    var inParameter = method.InParameters.SpawnInstance_ ();
    inParameter.hDefKey = hDefKey;
    inParameter.sSubKeyName = sSubKeyName;
    inParameter.sValueName = sValueName;
    var outParameter = regProv.ExecMethod_ (method.Name, inParameter);
    return outParameter.sValue;
}

// 展開済み文字列値取得
function getExpandedStringValue (regProv, hDefKey, sSubKeyName, sValueName)
{
    var method = regProv.Methods_.Item ("GetExpandedStringValue");
    var inParameter = method.InParameters.SpawnInstance_ ();
    inParameter.hDefKey = hDefKey;
    inParameter.sSubKeyName = sSubKeyName;
    inParameter.sValueName = sValueName;
    var outParameter = regProv.ExecMethod_ (method.Name, inParameter);
    return outParameter.sValue;
}

// バイナリ値取得
function getBinaryValue (regProv, hDefKey, sSubKeyName, sValueName)
{
    var method = regProv.Methods_.Item ("GetBinaryValue");
    var inParameter = method.InParameters.SpawnInstance_ ();
    inParameter.hDefKey = hDefKey;
    inParameter.sSubKeyName = sSubKeyName;
    inParameter.sValueName = sValueName;
    var outParameter = regProv.ExecMethod_ (method.Name, inParameter);
    var str = "";
    var ary = outParameter.uValue.toArray ();
    for (var i = 0; i < ary.length; i ++)
    {
        str += ary [i].toString (16) + ((i + 1) % 8)? " ": "\n";
    }
    return str;
}

// DWORD 値取得
function getDWORDValue (regProv, hDefKey, sSubKeyName, sValueName)
{
    var method = regProv.Methods_.Item ("GetDWORDValue");
    var inParameter = method.InParameters.SpawnInstance_ ();
    inParameter.hDefKey = hDefKey;
    inParameter.sSubKeyName = sSubKeyName;
    inParameter.sValueName = sValueName;
    var outParameter = regProv.ExecMethod_ (method.Name, inParameter);
    return outParameter.uValue.toString (16);
}

// QWORD 値取得
function getQWORDValue (regProv, hDefKey, sSubKeyName, sValueName)
{
    var method = regProv.Methods_.Item ("GetQWORDValue");
    var inParameter = method.InParameters.SpawnInstance_ ();
    inParameter.hDefKey = hDefKey;
    inParameter.sSubKeyName = sSubKeyName;
    inParameter.sValueName = sValueName;
    var outParameter = regProv.ExecMethod_ (method.Name, inParameter);
    return outParameter.uValue.toString (16);
}

// マルチ文字列値取得
function getMultiStringValue (regProv, hDefKey, sSubKeyName, sValueName)
{
    var method = regProv.Methods_.Item ("GetMultiStringValue");
    var inParameter = method.InParameters.SpawnInstance_ ();
    inParameter.hDefKey = hDefKey;
    inParameter.sSubKeyName = sSubKeyName;
    inParameter.sValueName = sValueName;
    var outParameter = regProv.ExecMethod_ (method.Name, inParameter);
    return outParameter.sValue.toArray ().toString ();
}

February 20, 2005

WSH よりクリップボードを使う

最近のバージョンの IE ではセキュリティが厳しくなったためこの手法は使いづらくなりました。
[WSH よりクリップボード、次の手] も参照してみてください。(2010.10.08)

WSH よりクリップボードにアクセスすることはできない。しかし、調べてみたところ、Internet Explorer がクリップボードにアクセスするためのインターフェースを公開していることがわかった(常套手段?)。

そんなわけで、文字列をコピー & 取得する部分をクラス化した。

使い方はこんな感じで。

var clipboard = new Clipboard ();
var s = clipboard.getText ();
WScript.Echo (s);
clipboard.setText (s.replace (/my/gi, "Your"));
続きを読む...

January 21, 2005

WSH でショートカットを作成する

WSH でショートカットを作成する方法です。どこにでも転がっているものと同じですが、自分のために。 コマンドラインコピーツール のインストーラとして作成したものです。

続きを読む...

November 19, 2004

IE をぎょうさん起動したいとき

ASP のテストで、同時最大セッション数を超えるとエラー表示する、みたいな項目があったが、最大セッション数分手でブラウザを起動するのが面倒だった。セッション数だけ稼げれば別にブラウザは何でも良かったので、IE でいいやって WSH スクリプトを作成。

// NavMaxSess.js
var MAX_SESSION = 100;
for (var i = 0; i < MAX_SESSION; i++) {
    var oIE = WScript.CreateObject ("InternetExplorer.Application");
    oIE.Visible = true;
    oIE.Navigate2 ("http://aspserver/target.asp");
}

小品ですが、結構重宝してます。

October 5, 2004

連番の拡張子にリネームするJScript

拡張子が'tif'のファイルを連番の拡張子に変えるWSHのバッチプログラムです。 これ自体はあまり汎用性がないのですが、ちょこちょこっと変えれば使い道はあるでしょう。 できればこれのBATファイル解がほしいのですが・・・。
続きを読む...

September 16, 2004

連番フォルダ作成JScript

連番フォルダ作成バッチの姉妹品。WSHさえ入っていれば動くので、拡張機能を使いまくったBATファイルより汎用的なのかも。

続きを読む...

February 26, 2004

MSDEのデータをエクスポート・インポートするJScript

MSDEのデータを手軽にExport/ImportするWSHスクリプトです。'.js'拡張子をつけて保存し、ダブルクリックするかコンソールからCSCRIPT Export.jsなどとして実行します。わざわざ実行速度の遅いJScriptで作っている理由は、単に try{...} catch( e ) {...} でトランザクション処理がしたかったというだけのことです 笑。

MSDE用になっているのは接続文字列だけなので、その部分のみ変更すればOracleやJETなど、ADOで接続可能なDBであれば使用可能だと思います。(でもWSHが利用可能な環境でしか実行できません。)

続きを読む...