VBS：runas を使って、空白パスを含むPowerShellを実行したい

Question

VBSで、下記の条件で製造しているのですが、どうもPowerShellが呼べてないようで
す。
VBSでrunasを使い、且つ空白パスのps1を実行するのは無理なんでしょうか？

【条件】
・他のユーザ（管理者）を使用する必要がある
・ps1ファイルのフォルダパスには空白がある

Set fso = createObject("Scripting.FileSystemObject")

strCmd = "runas /user:ドメイン名\ｘｘｘ """ & "cmd /c powershell -ExecutionP
olicy RemoteSigned -File """ & fso.getParentFolderName(WScript.ScriptFullNam
e) & "\A.ps1"""""

objWshShell.Run strCmd, 1

Answer 1

私の記憶が正しければ、通常 WSH から管理者権限で外部プログラムを呼び出す常套手段は

Dim ash : Set ash = CreateObject("Shell.Application")
ash.ShellExecute "[program].exe", "[args]", "", "runas"

とかだったような。
ただ、当然 UAC は表示され、手動で実行を許可する必要があります。

それをスキップしたければ、典型的な方法としてはタスクスケジューラを使うのが楽です。
WSH 自体が管理者権限で実行されていれば runas を使わずとも呼ばれる外部プログラムも管理者権限になっているはずです。

Answer 2

runas /?によると、コマンド文字列の中の "は\"と書くようです。

strCmd = "runas /user:ドメイン名\ｘｘｘ " & _
    """powershell -ExecutionPolicy RemoteSigned -File \""" & _
    fso.getParentFolderName(WScript.ScriptFullName) & _
    "\A.ps1\"""

あと、cmd /cは多分不要なので削りました。

Comments

[kamiyui_bidan]

Program Filesの短い名前：PROGRA~1　を使う事にしました。
ありがとうございました。