Outlook用LDAP設定のVBScript作成について

Question

VBScriptを使ってOutlookのLDAP設定をするもの拝借してきアレンジをしています。
途中で、PowerShellを使っている部分があるのですがつまずいています・・・
＞If (objScriptExec.status = 0) Then
ここでステータスがどうしても0にならず困っています。
デバッグ等してみているのですが・・・検討がつけられず悩んでおります。
ヒントだけでもどなたかご教示いただけないでしょうか？

strLDAPUserPassword = "a"

strCMD = "powershell.exe -noninteractive -command " & Chr(34) & "$Password = '" & strLDAPUserPassword & "' | ConvertTo-SecureString -AsPlainText -Force | ConvertFrom-SecureString; Write-Host $Password" & Chr(34)

Set objScriptExec = objShell.Exec(strCMD)
objScriptExec.StdIn.Close()
strLDAPUserPassword = objScriptExec.StdOut.ReadAll
If (objScriptExec.status = 0) Then
DELIMITER = "||"
do while len(strLDAPUserPassword) <> 0
current = left(strLDAPUserPassword, 2)
strLDAPUserPassword = right(strLDAPUserPassword, len(strLDAPUserPassword) - len(current))
output = output & "&H" & current & DELIMITER
loop
output = left(output, len(output) - len(DELIMITER) - 5)
objLDAPUserPassword = split(output, DELIMITER)
strFlagCreateAccount = "yes"
Else
strFlagCreateAccount = "no"
End if

Answer 1

PowerShellは専門外のため的外れな回答でしたらすみません。

Execイベントは完了したら1になるのではないでしょうか。

定義は以下のようになってます。
WshFailed = 2
WshFinished = 1
WshRunning = 0

Comments

[TakefusaBoku]

お返事が遅くなってしまい申し訳ありません。
教えていただいた通り、よくよく追跡してみたら完了してしまったことが原因でした。
ありがとうございます。