WSH で文字化けさせずに SendKeys で日本語を貼り付ける

コマンドプロンプトの Clip コマンドを使い、それを Ctrl + V で貼り付ければ文字化けしない。スクリプトファイルは ANSI (Shift-JIS) で保存しておくこと。

' VBScript
Dim shell : Set shell = CreateObject("WScript.Shell")
WScript.Sleep 3000
shell.Run "cmd.exe /c Echo ほげほげふがふが | Clip", 0, True
shell.SendKeys "^v"

// JScript
var shell = WScript.CreateObject("WScript.Shell");
WScript.Sleep(3000);
shell.Run("cmd.exe /c Echo ほげほげふがふが | Clip", 0, true);
shell.SendKeys("^v");

• 参考 : WSHで，Sendkeysメソッドで日本語を文字化けせず自動入力する方法 （VBScript+JScriptの両方で可能。clipコマンドを使用） - モバイル通信とIT技術をコツコツ勉強するブログ

未だに WSH いじってるよ～。それなりに便利で、不便さも面白かったりはするけど…。