プロが教えるわが家の防犯対策術!

お世話になります。

VBScriptを扱うのは初心者です。
運用SEをして、複数のシステムをログインし、閲覧できるか手動で監視していますが、以下のネット上のサンプルを参考にスクリプトを作成しましたが、以下の課題が出てきましたので、対応方法を教えて頂けないでしょうか?宜しくお願いします。

■スクリプト
Option explicit
'オブジェクトの作成(IE)
Set IEObj = CreateObject("InternetExplorer.Application")

Dim MemID,UsrPass,IEObj

MemID = "xxxxxx"
UsrPass = "xxxxxx"

With IEObj
.Visible = True
'URL
.Navigate "http://xxxxx"

While .Busy Or .ReadyState <> 4
Wend

.document.all.Item("jossoname").Value = MemID
.document.all.Item("jossopasswd").Value = UsrPass
.document.forms(0).submit

End With

Set IEObj = Nothing

■課題
上記、スクリプトは正常に起動し、該当システムを自動的にログインされます。
(1)自動ログインした画面を自動的に閉じたいのですが、どのように定義すればいいのですか?
(2)複数のシステムを上記のように自動ログインしたいのですが、1つのVBSで処理できる定義をおしえてください。(1)も考慮した形でお願いします。

以上、何卒宜しくお願いします。

A 回答 (2件)

> 1


セッションタイムアウトがあったとしてもログアウトしてからIEを閉じた方が無難だと思いますよ。

> 2
HTAでUIを持たせるとか、複数のバッチファイルかVBSから呼び出して(呼び出される側は)WScript.Argumentsプロパティで判別するとか。
    • good
    • 0
この回答へのお礼

ご連絡が遅れまして、大変申し訳ございません

ご回答ありがとうございます。

> 1
セッションタイムアウトがあったとしてもログアウトしてからIEを閉じた方が無難だと思いますよ。
←承知しました。ただ監視運用においては、多数のシステムをログインさせるので、ログアウトも自動で閉じるほうがいいです。

> 2
HTAでUIを持たせるとか、複数のバッチファイルかVBSから呼び出して(呼び出される側は)WScript.Argumentsプロパティで判別するとか。
→すいません。かなり初心者なので少し調べてみます。

お礼日時:2013/07/31 23:18

(1)たぶん IEObj.Quit のことでしょうか。


(2)別途 ID、パスワードなどの情報を持っておく必要がありますよね。
別ファイルで、テキストファイルを準備する方法もあるかと思いますが
エクセルのシートのデータを持たせて、エクセルのVBAで実行させた方が
便利だと思うのですが。

この回答への補足

ご連絡が遅れまして、大変申し訳ございません

ご回答ありがとうございます。

(1)たぶん IEObj.Quit のことでしょうか。
→自分なりに調べてみた結果、上記回答に行き着きました。しかし定義方法が間違えているかもしれませんが、上記設定すると、エラーが出力されます。
※.document.all.Itemがありません。
どのように定義すればよろしいでしょうか?

(2)別途 ID、パスワードなどの情報を持っておく必要がありますよね。
別ファイルで、テキストファイルを準備する方法もあるかと思いますが
エクセルのシートのデータを持たせて、エクセルのVBAで実行させた方が
便利だと思うのですが。
→すいません。知識不足ですが、どのように処理すればよろしいでしょうか?

以上、よろしくお願いします。

補足日時:2013/07/31 23:23
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!