管理者権限でのコマンドプロンプトの実行方法

Question

管理者権限を持たない一般ユーザーに管理者権限を必要とする制御を実施させるためのスクリプトを書いています。
下記処理実行後にデフォルトゲートウェイを変更するコマンドをSendKeysで送るコードを書いて実行したところ、
管理者としての権限がないとのメッセージが表示され拒否されてしまいます。

Set WshShell = CreateObject("Wscript.Shell")

Return = WshShell.Run("runas /user:管理者権限ID cmd.exe")
WScript.Sleep 100
WshShell.AppActivate "runas.exe"
WScript.Sleep 100

WshShell.SendKeys "管理者権限PW"
WScript.Sleep 100
WshShell.SendKeys "{enter}"
WScript.Sleep 100
WshShell.AppActivate "cmd"
WScript.Sleep 100

Comments

[mdj]

コマンドプロンプトを管理者として実行してもダメということですか？

[sscs]

ありがとうございます。
右クリックメニューの管理者として実行の意味だと思いますが、そちらを実行すると管理者権限の入力を求められます。
今回そちらについて手動で入力せずに突破したいと考えております。
ユーザーアクセス制御部が関係していると思うのですが、上記の実現方法がわからず質問させて頂きました。
よろしくお願いいたします。

[otn]

> 管理者としての権限がないとのメッセージが表示され
どの段階でですか？

[sscs]

ありがとうございます。
こちらのコードの後にsendkeysでデフォルトゲートウェイを変更するコマンドをいれて、さらにsendkeysでenterを入れたタイミングで表示されます。

[otn]

「runasで開いたCMDウィンドウで」ということですか？

[sscs]

言葉足らずで申し訳ありません。
記載の通りrunasで開いたcmdウィンドウでのメッセージとなります。
よろしくお願いいたします。

[otn]

runasで開いたCMDウィンドウで、環境変数USERの値は意図したユーザー名ですか？

[sscs]

そちら未確認ですので、明日確認いたしますが、試しに上記コードにてrunasで入ってデスクトップ上に置いたexe(インストールに管理者権限の入力が必要なもの)を起動したところ管理者権限の入力なしで起動できました。
よって管理者でcmdを開けてはいると考えておりました。
関係なかったら申し訳ございません。
よろしくお願いいたします。

[otn]

ということは、管理者権限でのCMDの起動自体は成功していて、
> こちらのコードの後にsendkeysでデフォルトゲートウェイを変更するコマンドをいれて、さらにsendkeysでenterを入れたタイミングで表示されます。
の部分に問題があるのでしょうね。

なんか、質問文の記述と関係ない話になってます。質問文を書き直しては？

[sscs]

こちらの伝え方が悪く申し訳ありません。
手動にて右クリックメニューより管理者権限でcmdを起動し、実行したいコマンドを手動入力すると意図した動きで反映されるため、VBSでのコマンドプロンプトの起動方法が根本の問題かと考え質問させて頂いた次第でございます。

Answer 1

ありがとうございました。
結果としてスクリプト単体での実装は諦め、ActiveDirectoryのスタートアップスクリプトを用いてnetshコマンドを実行するスクリプトを流すことにしました。
1番詳しく回答を書いて頂いた最後の方をベストアンサーにさせて頂きます。

Answer 2

まず、前提のお話ですが一般ユーザーで実行されたスクリプト(A)から、RunAsコマンドで起動されたcmd.exe(B)へのSendKeyは自動的に失敗します。
理由はセキュリティの観点から、そういう動作をＯＳが禁止しているからです。
その為、GUI操作でデフォルトゲートウェイ変更操作をSendKeyで代用する案は自動的に失敗します。
対処案として、考えられるのは以下の2つかと思います。

1. RunAsコマンドでcmd.exeでは無く、Sendkeyを含んだスクリプトを呼び出す。
2. RunAsコマンドで、Netshコマンドを使ったデフォルトゲートウェイ変更スクリプトを呼び出す。

お勧めとしては、2案です。
何もGUI操作をSendKeyで代用させずとも、ネットワーク設定の変更はNetshコマンドで可能です。
こちらを使用する事をお勧めします。