Windows10でVBScriptから呼び出したPowerShellが文字化ける

Question

###発生している問題
Windows10において以下のVBScriptで呼び出したPowerShellのコンソールでフォントが日本語対応していないため日本語が□で表示されてしまいます。

Set objWs = WScript.CreateObject("WScript.Shell")
objWS.Run "powershell"

コンソールのフォントの問題であって、文字コードの問題ではないと判断しています。

###わかっていること
「ファイル名を指定して実行」で"powershell"を呼び出した場合は上記と同様の環境になりますが、スタートメニューにあるPowerShellへのショートカットでは問題ありません。
よってVBScriptからスタートメニューのショートカットを呼び出せば問題は発生しません。

Set objWs = WScript.CreateObject("WScript.Shell")
objWS.Run CreateObject("WScript.Shell").SpecialFolders("StartMenu") & "\Programs\Windows PowerShell\Windows PowerShell.lnk"

スタートメニューのショートカットのリンク先とファイル名を指定して実行の場合の呼び出し先のexeは同じものであることは確認していますし、ショートカットに特に引数はありません。
手元のWindows7 PROでは最初に書いたコードで問題ありませんでした。

またバッチファイルからpowershellで呼び出した場合も問題ありません。

###知りたいこと/最終的にやりたいこと

• この違いはなぜ生まれるのでしょうか。
• VBScriptをもっとスマートに書く方法はないでしょうか。（上記スタートメニューのショートカットはWindows7では存在しないため動きません。）
• 最終的にはps1ファイルを引数にして呼び出すように書くので、ps1の先頭でコードを書くのでも構いません。

###環境

• Windows10 PRO

Answer 1

期待していらっしゃる答えと違うと思いますが、こちらのWindows10環境でVBScriptからPowerShellを起動してみましたが問題なく日本語表示可能でした。
SetLocale("en-us")とした上でやっても問題ありませんでした。

豆腐が表示されているPowerShellでchcpと入力するとどうなりますでしょうか？
もしコードページが「932」以外でしたら以下をお試しください。

1. PowerShell上でchcp 932と入力。
2. Alt+Spaceからの「プロパティ」で「フォント」タブをクリック。
3. 日本語表記に対応したフォントを選択して「OK」で閉じる。

確かコンソールの各種設定はレジストリのどこかに保存されていて、呼び出し元によっては参照するキーが異なる場合があったと記憶しています。
たまたまcscript/wscriptから呼んだときに日本語でない設定を読んでしまったのではないかと。

Comments

[dupont_kedama]

回答ありがとうございます。

chcpは932です。
フォントを手動で変えることはできるのですが、VBScriptを不特定多数のPCに配布するので手動による設定変更はしない前提でおります。

「Windows10の仕様で必ずそうなる」というわけではないとわかりましたので、環境/言語まわりの設定と判断できました。引き続き調べてみます。

ありがとうございました。