vbsからコマンド実行して、その処理が終わるまで次の処理に行かないようにしたい

VBSファイルから外部コマンドを実行して、その処理が終わるまで次の処理を走らさないようにしたいです。

WshShell.Runを使用することで、それは可能だということはわかったのですが、
今度は管理者権限でコマンド実行する方法が分かりません。
WshShell.Runでも管理者権限で実行できるのでしょうか？

現状はこれでコマンド実行できているのですが、処理が終わる前に次の処理が走ってしまいます。。

Set app = Wscript.CreateObject("Shell.Application")
	'app.ShellExecute "Dism.exe", "/online /enable-feature /featurename:NetFX3 /All /Source:C:\sources\sxs /LimitAccess", ,"runas"

下記のようにWshShell.Runにすると、管理者権限で実行できない。。

	Dim WshShell
	Set WshShell = WScript.CreateObject("WScript.Shell")
	WshShell.Run("Dism.exe /online /enable-feature /featurename:NetFX3 /All /Source:C:\sources\sxs /LimitAccess")

どなたかご教授いただけると幸いです。

行動規範の内容に同意します

回答3件

自身を管理者権限で再起動する手段ではいかがでしょうか？
VBScriptを管理者権限で実行する

Win10x64で動作しました。

手順

hoge.wsfをダブルクリックして起動
UAC画面が表示されるので「はい」を選択
dism.exe画面が表示～実行される
終了（長いのでCtrl+Cで中断）後に「end」表示される。

hoge.wsf

VBScript
1<job>
2<script language="VBScript">
3' Vista以上なら、このスクリプトを管理者権限で再起動する
4do while WScript.Arguments.Count=0 and WScript.Version>=5.7
5    'WScript.Echo "for runas ScriptFullName[" & WScript.ScriptFullName & "]"
6    'Run this script as admin.
7    Set sha=CreateObject("Shell.Application")
8    sha.ShellExecute "wscript.exe","""" + WScript.ScriptFullName + """ uac","","runas"
9    WScript.Quit
10loop
11'WScript.Echo "main ScriptFullName[" & WScript.ScriptFullName & "]"
12
13' 実際の処理
14
15Set WshShell = WScript.CreateObject("WScript.Shell")
16' 1=画面表示, True=同期
17WshShell.Run "Dism.exe /Online /Cleanup-Image /ScanHealth", 1, True
18
19' 終了後に表示される
20WScript.Echo "end"
21</script>
22</job>