vbs 解決方法 方法を教えてください エラーコード： 800A01CE

Question

前提・実現したいこと

IEから仕事で使用しているポータルサイトへのログインを自動化したいです。
vbs、初めて作成しました。

発生している問題・エラーメッセージ

完成当初はスムーズに動いてログインできていたのですが、
突然、エラーが発生し修正方法にほどほど困っております。
どのような視点で、解決をすればよいのか教えてください。

![イメージ説明](f84db4a0909b15bf38b52ce190f1a8a6.png)
The remote server machine does not exist or is unavailable

該当のVBSソースコード

InputAndClick
Sub InputAndClick
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "https://xxxxxxxx/Login.html"
WScript.Sleep 2000
ie.Document.getElementByName("uname")(0).Value = "xxxxxxxx"
ie.Document.getElementByName("pass")(0).Value = "xxxxxxxx"
ie.Document.getElementsByName("login_btn_div")(0).submit
End Sub

ログイン画面のHTML

<div class="form-group">
<input class="form-control" title="address" placeholder="Name" name="username" id="uname" onkeydown="if(event.keyCode==13)doLogin();">
</div>

<div class="form-group">
<input class="form-control" placeholder="Password" name="password" id="pass" type="password" autocomplete="off" onkeydown="if(event.keyCode==13)doLogin();">
</div>

<div onclick="doLogin()" title="Login" class="btn btn-primary btn-block" id="login_btn_div">
<i id="login_btn_spinner" style="display: none" class="fa fa-spinner fa-spin fa-lg"></i>
<span id="login_btn" title="Webmail Login">Login</span>
</div>

補足情報（FW/ツールのバージョンなど）

Win10　IE11

Comments

[YT0014]

該当サーバに手動ではログインできるのでしょうか？

Answer 1

これでどうでしょうか？

Sub InputAndClick
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "https://xxxxxxxx/Login.html"
WScript.Sleep 2000
ie.Document.getElementById("uname").Value = "xxxxxxxx"
ie.Document.getElementById("pass").Value = "xxxxxxxx"
ie.Document.getElementById("login_btn_div").submit
End Sub