Const LOGIN_ID   = "????" ' ←「?」を全部消して、あなたのIDを入力
Const LOGIN_PASS = "????" ' ←「?」を全部消して、あなたのパスワードを入力
Const LOGIN_URL  = "http://it-web.biz/search/index.php" ' ログインフォームがあるURL
Const READYSTATE_COMPLETE = 4 ' 読み込み完了
Dim objIE ' インターネットエクスプローラを利用

Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Navigate LOGIN_URL
objIE.Visible = True

Do While objIE.ReadyState <> READYSTATE_COMPLETE
 WScript.Sleep 10
Loop

If objIE.Document.Forms.Length > 0 Then ' フォームが存在し
 For Each objForm In objIE.Document.All.Tags("form")
  If objForm.Name = "formclickup" Then ' nameプロパティがログイン用
   objForm.All("msiteno").Value = LOGIN_ID
   objForm.All("mspw").Value = LOGIN_PASS

   For Each objInput In objIE.Document.All.Tags("input")
    If objInput.Value = "Login" Then
     objInput.Click
    End If
   Next

  End If
 Next
End If

Set objIE = Nothing