RUNASコマンドでパスワードを自動入力するVBScript(WSH)

VISTAとかWindows7とかで管理者権限でインストーラなどのEXEを実行しなきゃいけないとき、RUNASコマンドを使うのが一般的だが、このコマンドはパスワードを手入力する仕様になっている。これを自動化してパスワードを自動入力させたい。そのためのVBScript(WSH)サンプルだ。

仕組みは、SendKeysメソッドを使って、コマンドプロンプト画面にパスワードを挿入している。したがって、スクリプト実行直後にコマンドプロンプト画面を消されたりすると、処理に失敗する可能性がある。あしからず。

なお、VISTAとかWindows7とかでは、管理者権限でEXE実行してもUACには引っかかるからそのつもりで。

<br> ‘———————————————————————–<br> ‘ドメイン名￥ユーザ名<br> Const strID = “MyDomain\myname”<br> ‘———————————————————————–<br> ‘パスワード<br> Const strPW = “mypassword”<br> ‘———————————————————————–<br> ‘ドメインユーザ or ローカルユーザ で切り替える<br> Const strNetonly = “/netonly” ‘ドメインユーザを使用する場合<br> ‘Const strNetonly = “” ‘ローカルユーザを使用する場合<br> ‘———————————————————————–<br> ‘セットアップファイルを配置する場所(※絶対パス)<br> Const strSetupFilePath = “D:\TEMP\hogehoge.exe”<br> ‘———————————————————————–<br> ‘終了時のメッセージ<br> Const strEndingMSG = “インストールが完了しました。ＯＫボタンを押してください。”<br> ‘———————————————————————–

Set objShell = CreateObject(“Wscript.Shell”)
intReturn = objShell.Run(“runas ” & strNetonly & ” /user:” & strID & ” cmd”)
‘WScript.Sleep 1000
‘objShell.AppActivate “runas.exe”
WScript.Sleep 1000
objShell.SendKeys strPW
WScript.Sleep 1000
objShell.SendKeys “{enter}”
WScript.Sleep 1000

objShell.AppActivate “cmd”
WScript.Sleep 1000
objShell.SendKeys strSetupFilePath
WScript.Sleep 1000
objShell.SendKeys “{enter}”
WScript.Sleep 5000

WScript.echo strEndingMSG

objShell.AppActivate “cmd”
objShell.SendKeys “exit”
objShell.SendKeys “{enter}”