26772


vbscriptにて、WEBでのパスワード認証画面が正常に動作するかのバグチェックをしようと思っております。

[code]

    'シェルを起動する
    Dim wsh
    Set wsh = WScript.CreateObject("WScript.Shell")
    
    'IEを起動する
    Dim ie
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    
    'IEをアクティブにする
    Dim wLoc, wSvc, wEnu, wIns
    Set wLoc = CreateObject("WbemScripting.SWbemLocator")
    Set wSvc = wLoc.ConnectServer
    Set wEnu = wSvc.InstancesOf("Win32_Process")
    Dim pId
    For Each wIns in wEnu
    If Not IsEmpty(wIns.ProcessId) And wIns.Description = "iexplore.exe" Then
        pId = wIns.ProcessId
    End If
    Next
    Set wLoc = Nothing
    Set wEnu = Nothing
    Set wSvc = Nothing
    While not wsh.AppActivate(pId) 
        Wscript.Sleep 100 
    Wend 
    
    'IEで指定URLを開く
    ie.Navigate "http://〜"
    Do While ie.Busy = True Or ie.readyState <> 4
    Loop
    
    Dim objShell
    Set objShell = WScript.CreateObject("Shell.Application")
    
    'IEで要素に値を入れる
    Dim elm 
    Set elm = ie.document.getElementById("logincode")
    elm.Value = "000000"
    Set elm = ie.document.getElementById("password")
    elm.Value = "000000"
    Set elm = ie.document.getElementById("loginbutton")
    elm.Click
    
    For Each ie In objShell.Windows()
        If InStr(LCase(ie.FullName), "iexplore.exe") Then
            WScript.Echo ie.LocationURL
        End If
    Next
    
    WScript.Sleep 3000
    ie.Quit
    
[/code]

まだ処理を書いていないですが、ループ処理でパスワードを一つずつ試して行き、  
パスワード確認画面を突破できた場合と出来なかった場合は、その時のURLの違いで判断する予定です

しかしその処理を追加する前に、一番最後の行の  
ie.Quitの部分でエラーが発生してしまい、先に進めません。

発生しているエラーは以下です。  
![画像の説明をここに入力](https://i.stack.imgur.com/W0wME.jpg)

確認するパスワードは1000個ぐらいあるので自動化で行いたいです。  
おわかりになる方がいらしたら、お願いします。


CC BY-SA 3.0
2016-06-15T15:56:48.547
26771
2016-06-15T16:47:32.380
2020-06-17T08:14:45.997
-1
15114
question
vbs
VBScriptでIEが閉じれません。


以下の処理で`ie`を書き換えているからです。

[code]

    For Each ie In objShell.Windows()
        If InStr(LCase(ie.FullName), "iexplore.exe") Then
            WScript.Echo ie.LocationURL
        End If
    Next
    
[/code]


CC BY-SA 3.0
2016-06-15T16:47:32.380
26772
2016-06-15T16:47:32.380
9566
26771
answer