VBSのAppActivate()でアプリケーションがアクティブになりません

Question

「コード1」のようなコードでコントロールパネルの「ユーザー アカウント」を起動して「ユーザーがこのコンピューターを使うには...」のチェックを外したいのですが AppActivate() からは false が返るだけで意図した動作ができません。

以下は試したこと、わかったことです
・Wscript.Quit しないで Sendkeys() を実行させるようなコードに変更してもチェックは外れませんでした
・「コード2」の状態でキーボードで直接 Alt+E を行うとチェックは外れるのでアクティブになっているように見えるのですがコード上ではうまくいっていません

AppActivate() に渡す引数が間違っている可能性もありそうです。
環境はwindows8.1です。

どなたかご存知の方、ご教授頂けないでしょうか。

' コード1
Option Explicit
Dim shell, i
Set shell = CreateObject("WScript.Shell")
shell.Run("control userpasswords2")
Do Until shell.AppActivate("アカウント")
  Wscript.Sleep 1000
  If i > 10 Then Wscript.Quit
  i = i + 1
Loop

shell.Sendkeys("%E{-}")
shell.Sendkeys("{ENTER}")

' コード2
Option Explicit
Dim shell, i
Set shell = CreateObject("WScript.Shell")
shell.Run("control userpasswords2")
shell.AppActivate("アカウント")

Answer 1

理由はわかりませんが
以下のように Run() の引数を変えることでうまくいきました。

Option Explicit
Dim shell, i
Set shell = CreateObject("WScript.Shell")
'shell.Run("control userpasswords2") ' AppActivate()でtrueが返らない
'shell.Run("Netplwiz.exe") ' AppActivate()でtrueが返らない
shell.Run("rundll32.exe netplwiz.dll,UsersRunDll") ' AppActivate()でtrueが返る

Do Until shell.AppActivate("ユーザー アカウント")
  Wscript.Sleep 100
  If i > 10 Then Wscript.Quit
  i = i + 1
Loop

shell.Sendkeys("%E{-}")
shell.Sendkeys("{ENTER}")

以下でもうまくいきました。
Run()は関数呼び出し、Exec()は実行ファイル呼び出し、
でないとうまくいかない場合があるということなのかもしれません。

Option Explicit
Dim shell, i
Set shell = CreateObject("WScript.Shell")
'shell.Run("rundll32.exe netplwiz.dll,UsersRunDll")
shell.Exec "Netplwiz.exe"

Do Until shell.AppActivate("ユーザー アカウント")
  Wscript.Sleep 100
  If i > 10 Then Wscript.Quit
  i = i + 1
Loop

shell.Sendkeys("%E{-}")
shell.Sendkeys("{ENTER}")

Answer 2

コントロールパネルの「ユーザー アカウント」を起動

これは

shell.Run("control userpasswords2")

だけで呼び出せていると思いますので、素直に次のようにしたらうまくいきませんか？

Dim shell, i
Set shell = CreateObject("WScript.Shell")
shell.Run("control userpasswords2")
Wscript.Sleep 1000 'ダイアログの出現を待つための１秒
shell.Sendkeys("%E{-}")
shell.Sendkeys("{ENTER}")

ダイアログの出現をもっとしっかり確認するならこんな感じで

Dim shell, i, onActive, ProcessList, Process
Set shell = CreateObject("WScript.Shell")
shell.Run("control userpasswords2") '"Netplwiz.exe"でもＯＫ
i = 1
Set ProcessList = GetObject("winmgmts:").ExecQuery("select * from Win32_Process where Name='Netplwiz.exe'")
  for each Process in ProcessList
    onActive = true
  exit for
  if i > 10 then Wscript.Quit
  i = i +1
  Wscript.Sleep 100
next

shell.Sendkeys("%E{-}")
shell.Sendkeys("{ENTER}")

Comments

[juam]

takitoさん

ご回答ありがとうございます。
ご提案頂いた2通りのコードで試してみましたがうまくいきませんでした。
※上のコードはsleepを5秒に増やしてもダメでした

[takito]

すみません、Win8.1が手元に無くWin7で試していたことを書くべきでした。
うまくいって何よりです。