Option Explicit

Const READYSTATE_COMPLETE = 4

Dim objIE
Dim objForm

Set objIE = WScript.CreateObject("InternetExplorer.Application")

With objIE
          '.Visible = False
          .Visible = True
                
          .Navigate "https://idp.folio.fabasoft.com/idp/Authn/UserPassword"
                
          ' Ждём…
          Do       
              WScript.Sleep 100
          Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
                
          ' Заполняем форму #0
          Set objForm = .Document.forms(0)
                
          With objForm
              .elements("j_username").value = "логин"
              .elements("j_password").value = "пароль"
                    
              ' Отправляем форму на сервер
              .submit()
          End With
                
          ' Ждём…
          Do
              WScript.Sleep 100
          Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
                
          'Тут прочие действия, для чего, собственно и затевались…
End With

Set objIE = Nothing

WScript.Quit 0