タスクスケジューラーで、ある時間にあるＷｅｂを印刷するには。

ある時間にあるＷｅｂページを自動に印刷するには、どうしたらいいのでしょうか？

Ｗｅｂページの表示までは、うまくいったのですが、自動印刷のところでつまずいて、解決できません。

どなたか、ヒントをご提供ください。

No.3 ベストアンサー 回答者： ittochan 回答日時： 2003/06/18 22:05

ごめんなさい

貼り付けミスでした

Set obj = WshShell.Exec("rundll32 %systemroot%\System32\mshtml.dll,PrintHTML ""http://www.okweb.ne.jp/""")

こうしてね。

これでもエラーが出たら ANo.#2を確認です。

No.2 回答者： ittochan 回答日時： 2003/06/18 22:00

＞「サポートされていないプロパティまたは、

＞メソッドです。WshShell.Exe
WSHのバージョンが古いとそうなります。
コマンドプロンプトで
cscript
と打ってみてください

Windows Script Host Version 5.6

と表示されればいいんですが

古い場合は↓から最新版をインストールしてね

参考URL：http://www.microsoft.com/downloads/details.aspx? …

No.1 回答者： ittochan 回答日時： 2003/06/17 23:56

印刷コマンドは

rundll32 %systemroot%\System32\mshtml.dll,PrintHTML "http://www.okweb.ne.jp/"

こんな感じなんですが
これだと最後に「印刷」ボタンをクリックしなきゃ駄目だと思うのです

そこで
VBScriptで

Set WshShell = CreateObject("WScript.Shell")
Set obj = WshShell.Exec("rundll32 %systemroot%\System32\mshtml.dll,PrintHTML

""http://www.okweb.ne.jp/""")

do until WshShell.AppActivate(obj.ProcessID)
WScript.Sleep 100
loop
WshShell.SendKeys "{enter}"

こんな感じにするといいかも

この回答への補足

ittochanさま

おお！ rundll32～で、'「印刷」ボタン'までいきました。
ありがとうございます。
win2000では、次になります。
C:\WINNT\system32\rundll32.exe c:\winnt\ServicePackFiles\i386\mshtml.dll,PrintHTML "http://www.aaaaaa.co.jp/"


そこで、２点ほど質問です。
１．「印刷」をきいてこないモードは、できないのでしょうか？
２．VBscriptは、XXX.vbsにして、デスクトップに貼り付けて、実行したのですが、
どうも、次のエラーで途中終了してしまいます。どこを修正すべきなのでしょうか。ご指導ください。

「サポートされていないプロパティまたは、メソッドです。WshShell.Exe

以上

補足日時：2003/06/18 15:53

この回答へのお礼

ittochan さま

度々のご回答、ありがとうございます。
パーフェクトです。
期待とおり以上のもをご指導いただきました。ありがとうございました。

つまずいたのは、ご指摘の通りVesionのせいでした。

本解決以外にＷＳＨとRUNDLL32の可能性をご示唆していただきました。奥の深さを再認識しました。

今後とも、よろしくお願い致します。
以上

お礼日時：2003/06/19 09:01