Q&A
前提・実現したいこと
VBSを使用して社内システムに自動ログインしたい
発生している問題・エラーメッセージ
IEが起動しHP表示されるがログインページが
新規ウィンドウで立ち上がりID,PASSが入力できない
該当のソースコード
作成したVBS
'頭で固定値をセットする 自分の番号をセットする。
strUID = "" 'ユーザー-ID、メールアドレスの人もいる
strPassword = "" 'パスワードあまりスクリプトには保存したくないけど
'IEの起動
Dim objIE '変数を定義します。 Set objIE = WScript.CreateObject("InternetExplorer.Application") 'オブジェクト作成 objIE.Visible = True '可視、Trueで見えるようにします。
'処理したいページを表示します。
'ここでは、ログインページを直接呼びます
objIE.Navigate "http://*****************"
'ページの表示完了を待ちます。
While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
WScript.Sleep 100 '0.1秒待つ 1000で1秒
Wend
'ユーザー-ID(name=u)にセットする。
Set objU = objIE.Document.getElementsByName("loginBTO.userId") '変数に一度セットする
If objU.Length = 0 Then '.Lengthで 取得したエレメントの数がわかります '終了処理/エラー処理 0の時は見つからなかったので Msgbox "ログイン失敗" WScript.Quit 'スクリプトを途中で抜ける End If objU(0).Value = strUID 'データをセットする Set objU = Nothing 'オブジェクト変数解放
'パスワード(name=p)にセットする。
objIE.Document.getElementsByName("loginBTO.password").Item(0).Value = strPassword 'セットする
'次へ ボタンを探して押す
'input type="submit" value=" ログイン "> を 探す
'INPUTのタグを集める .getElementsByTagName("INPUT")を使用 Set objINPUT = objIE.Document.getElementsByTagName("INPUT") 'ループで頭からテキストが 次へ を探す For n = 0 To objINPUT.Length - 1 '※ type="submitボタンなので、.InnerTextじゃなくて、.Valueです ※※注意 If Instr(objINPUT(n).Value,"次へ") > 0 Then '文字列の中から見つけたら objINPUT(n).Click '見つけたINPUTタグのオブジェクトをクリック Exit For End If Next Set objINPUT = Nothing 'オブジェクト変数解放
試したこと
補足情報(FW/ツールのバージョンなど)
HPソース
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> <meta http-equiv="content-script-type" content="text/javascript"> <meta http-equiv="content-style-type" content="text/css"> <title>"ログイン"</title> <script type="text/javascript" src="js/Common.js"></script> <link rel="stylesheet" href="css/Common.css" type="text/css"> <style type="text/css"> <!-- body { width: auto; }td {
background-color: transparent;
}
input.button_width {
width: 10em;
}
-->
</style>
</tr> </table> <hr> <div align="center"> <!-- エラーメッセージ出力 --> </div> <form name="loginForm" method="post" action="/bba-web/login.do"> <INPUT type="hidden" name="screenBTO.eventId" value="1"> <table align="center" summary="login" frame="box" style="width: 800px " border="0"> <colgroup span="2" width="25%"> </colgroup> <tr> <td> </td> <td class="center">ユーザID </td> <td> <input type="text" name="loginBTO.userId" maxlength="50" size="20" value="" class=".login"></td>
</tr> <tr> <td> </td> <td class="center">パスワード </td> <td> <input type="password" name="loginBTO.password" maxlength="50" size="20" value="" class=".login"></td>
</tr> <tr> <td colspan="3"> </td> </tr> <tr> <td> </td> <td class="right"> <input type="button" name="button1" value="ログイン" onclick="login()" onkeypress="" id="loginButton" class="button_width"></td>
</tr> </table> <br> <table align="center" summary="notice" border="0"> <tr> <th class="center">お知らせ </th> </tr> <tr> <td align="center"></td> <td> <input type="button" name="button2" value="パスワード変更" onclick="goPassChange();" onkeypress="" id="changeButton" class="button_width"> </td>
</tr> </table> </form> <script type="text/javascript" language="JavaScript"> <!-- var focusControl = document.forms["loginForm"].elements["loginBTO.userId"];</FONT> <BR> </td>
if (focusControl != null && focusControl.type != "hidden" && !focusControl.disabled && focusControl.style.display != "none") {
focusControl.focus();
}
// -->
</script>
下記のような回答は推奨されていません。
このような回答には修正を依頼しましょう。