VBScriptから外部コマンド(DOSコマンド)を管理者権限で実行したい

Question

VBScriptから外部コマンド(DOSコマンド)を管理者権限で実行したいです。
下記のようにしてみたのですが、管理者権限でコマンドプロンプトは立ち上がりましたが
その後のコマンドは実行されませんでした。。
管理者権限で実行までするにはどうしたらよいのでしょうか？

rc = MsgBox(".NetFrameworkを有効化します。よろしいですか？", vbYesNo)
If rc = vbYes Then
    Set objShell = WScript.CreateObject("WScript.Shell")
    objShell.Run "runas /user:administrator cmd"
    objShell.Run "Dism.exe /online /enable-feature /featurename:NetFX3 /All /Source:C:\sources\sxs /LimitAccess"
    Set objShell = Nothing
End If

Answer 1

Dim app
Set app = Wscript.CreateObject("Shell.Application")
app.ShellExecute [コマンド], , , "runas"

でどうでしょうか

Comments

[javabigineer]

コマンドの箇所の書き方を詳しく教えていただけますか？ダブルクォーテーションでくくると見つかりませんエラーがでました

[htsign]

手元の環境によりスマートフォンから書いている為ある程度の不備はお許しください。
ダブルクォーテーションでくくって大丈夫のはずです。
質問者様の例で行くと、第一引数に "Dism.exe"、第二引数に "/online ...省略.../LimitAccess" を指定してみてください。

[javabigineer]

ありがとうございます。一瞬コマンドプロンプトが立ち上がりましたがすぐ消えました。。管理者権限で実行できていないということですかね？
一応実行したコマンドを記載します、不備ありましたらご指摘願います。
app.ShellExecute "Dism.exe", "/online /enable-feature /featurename:NetFX3 /All /Source:C:\sources\sxs /LimitAccess", "runas"

[htsign]

概ね正しいと思います。ただ、"runas" は第四引数で与えてください。
第三引数はワーキングディレクトリです。

[javabigineer]

第四引数としてrunasを与えると成功しました。ありがとうございました。