回答編集履歴
1
引数の数をミスっておりました
answer
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
```vb
|
|
2
2
|
Dim app
|
|
3
3
|
Set app = Wscript.CreateObject("Shell.Application")
|
|
4
|
-
app.ShellExecute [コマンド],
|
|
4
|
+
app.ShellExecute [コマンド], , , "runas"
|
|
5
5
|
```
|
|
6
6
|
でどうでしょうか
|