ローカル機器（ビジネスホン管理画面）へのスクレイピングについて

Question

前提・実現したいこと

テレワークで出勤人数が大幅に減り『電話の着信未応答があったら通知する』という処理が必要になりました。

ビジネスホンの管理画面から通話履歴一覧のcvsがダウンロード出来ますので、これをVBAで取得・抽出してLINEのグループトークに投げるという処理を考えております。

ビジネスホンはNTT Netcommunity SYSTEM αNX TYPE-M です。

該当のソースコード

ごく普通に…

Option Explicit
Sub LoginTest()
Dim objIE As InternetExplorer
    Set objIE = New InternetExplorer
    
    objIE.Visible = True
    objIE.Navigate "http://192.168.11.110" 'ビジネスホン管理画面
        
    Do While objIE.Busy = True Or objIE.readyState <> 4
        DoEvents
    Loop
    
    Dim htmlDoc As HTMLDocument
    Set htmlDoc = objIE.Document
        
    With htmlDoc
        .getElementById("Account").Value = "****" 'ユーザー名 ここでエラー
        .getElementById("Password").Value = "****" 'パスワード
        .getElementsByClassName("Login_Button")(0).Click
    End With

End Sub

を実行すると

実行時エラー '91':
オブジェクト変数または with ブロック変数が設定されていません

…というよく見るエラーです。
ビジネスホンのIPに変更した途端にエラーが出るので、インターネットに公開されていないから駄目なのかと、試しにルータのIPを入れるとうまく行ったりします。

'Buffalo ルータの場合はログインできます。
'略
objIE.Navigate "http://192.168.11.1" 'ルータ
'略
With htmlDoc
    .getElementById("form_USERNAME").Value = "admin" 'ユーザー名
    .getElementsByName("airstation_pass")(0).Value = "******" 'パスワード
    .getElementsByClassName("button_login")(0).Click
End With

同様に色々試したところ、
○ 音声メールユニット(NTT NXSM-VMU-<2>留守番電話のようなもの)
× 複合機 (Richo MP C2504)
○ NAS (Synology DS216J)
出来る機器と出来ない機器との違いが分からず非常に困っています。

Powershellで同様の事を実行しておられる方は見つけたのですが、Powershellについては全く不勉強でして…。
中小底辺事務員が自動化を頑張る（Powershellでスクレイピング）

追記です
ユーザー名のタグ

<input type="text" name="Account" id="Account" maxlength="16" style="width:170px; height:15px;" onkeypress="{if (event.keyCode == 13) onchg();}">

に対して

.getElementById("Account").Value = "****"
.getElementsByName("Account")(0).Value = "****"

など可能な限りのタグ属性で試しました。

お忙しいところ恐縮ですが宜しくお願い致します。

Comments

[dodox86]

スクレイピングで取得できるhtmlの内容が変わっているのではないでしょうか。そこを先に確認すべきです。

[arakuman]

ありがとうございます。
htmlの内容=タグ属性と理解しました。
追記にも記しましたが、ID,class,nameと、可能な限りのタグ属性で試していますが変わりありません。

[dodox86]

いえ、その部分だけではなく、html（HTTPレスポンス)全体という意味です。そこが違うのでスクレイピング（該当タグのデータ取得）に失敗しているのではないかと。

[CHERRY]

アクセス後に objIE.Document を出力するなどして、HTML を確認してみてください。

[arakuman]

何ともお恥ずかしい話です。穴があったら…というのは正にこういう事で、同時に皆様には舌打ちされてしまいそうな結果です。
objIE.Document を出力するまでも無く、そもそもページがフレーム構造になっていました。そんなの一番最初に気付けよ、といった事案です。お騒がせしました。

Answer 1

お恥ずかしい話です。ページがフレーム構造でした。
お陰様で自己解決しました。

Option Explicit
Sub LoginTest()
Dim objIE As InternetExplorer
    Set objIE = New InternetExplorer
    
    objIE.Visible = True
    objIE.Navigate "http://192.168.11.110" 'ビジネスホン管理画面
        
    Do While objIE.Busy = True Or objIE.readyState <> 4
        DoEvents
    Loop
    
    Dim htmlDoc As HTMLDocument
    Set htmlDoc = objIE.document
 
    With htmlDoc.frames(0).document　　'←変更
        .getElementById("Account").Value = "****"
        .getElementById("Password").Value = "****"
        .getElementsByClassName("Login_Button")(0).Click
    End With
  
End Sub