VBSで自動ログインについて

質問

お世話になります。

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)複数のシステムを上記のように自動ログインしたいのですが、１つのVBSで処理できる定義をおしえてください。(1)も考慮した形でお願いします。

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

回答No.2

kumatti1

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

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

お礼

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

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

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

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

回答No.1

hallo-2007

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

補足

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

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

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

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

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