2008年11月07日 01:12
まだ開設一週間くらいなのに、こんなサンプルばかり載せていると訪問者がいなくなってしまうのではないかと心配してしまうのですが、このエントリは息抜き程度に読んでもらえるとうれしいです。
追加のサーバーは起動時にパスワードを聞かれるのでどうにかしたいと考えた事がありました。
IDファイルが作られたあとにサーバーIDのパスワードを解除すればいいだけの話なのですが、こんなWSHスクリプトを書いてみた事があります。
以下のようなVBSファイルをドミノのプログラムディレクトリに入れておくと、起動したら何も考えずに「password」と言うパスワードを送り込んでくれます。
StartServer.vbs
Dim WshShell
set WshShell = CreateObject("WScript.Shell")
WshShell.Run("nserver.exe")
WScript.Sleep(100)
WshShell.AppActivate("Lotus Domino Server")
WshShell.SendKeys("password")
WshShell.SendKeys("{Enter}")
パスワードがテキストファイルに保存されることになるので、セキュリティ上は重大な問題があるので、実環境で使う人はいないと思うのですが何となくこの人間の操作まで代理してくれるような感じがするSendkeys メソッドと言うのはとても魅力的に映って色々遊んでいました。
こんな感じでノーツを起動して、データベースを一個開いてから閉じる、と言う簡易なテストツールに使うことも出来る!とか思ったりしました。
StartNotes.vbs
※ 斜体にしたところは環境に応じて適切な値を入れて下さい。
Dim WshShell
set WshShell = CreateObject("WScript.Shell")
WshShell.Run("notes.exe")
WScript.Sleep(8000)
WshShell.AppActivate("Lotus Notes")
WshShell.SendKeys("password")
WshShell.SendKeys("{Enter}")
WScript.Sleep(4000)
WshShell.SendKeys("^o")
WshShell.SendKeys("%i")
WshShell.SendKeys("mailserver")
WshShell.SendKeys("{Enter}")
WshShell.SendKeys("%f")
WshShell.SendKeys("mail/xxxx.nsf")
WshShell.SendKeys("%o")
WScript.Sleep(10000)
WshShell.SendKeys("%(fx)")
Windowの文字とかオブジェクトを取ったりエラーハンドリングをして精度を高められる有償のテストツールみたいにはいかないのですが、ちょっとプログラムっぽくないノリでソフトウェアを動かしている感じが楽しくて色々触ってみたりしました。
とりあえず書いてみたけど、やっぱりNotes技術者の役には立たないですね。。。
追加のサーバーは起動時にパスワードを聞かれるのでどうにかしたいと考えた事がありました。
IDファイルが作られたあとにサーバーIDのパスワードを解除すればいいだけの話なのですが、こんなWSHスクリプトを書いてみた事があります。
以下のようなVBSファイルをドミノのプログラムディレクトリに入れておくと、起動したら何も考えずに「password」と言うパスワードを送り込んでくれます。
StartServer.vbs
Dim WshShell
set WshShell = CreateObject("WScript.Shell")
WshShell.Run("nserver.exe")
WScript.Sleep(100)
WshShell.AppActivate("Lotus Domino Server")
WshShell.SendKeys("password")
WshShell.SendKeys("{Enter}")
パスワードがテキストファイルに保存されることになるので、セキュリティ上は重大な問題があるので、実環境で使う人はいないと思うのですが何となくこの人間の操作まで代理してくれるような感じがするSendkeys メソッドと言うのはとても魅力的に映って色々遊んでいました。
こんな感じでノーツを起動して、データベースを一個開いてから閉じる、と言う簡易なテストツールに使うことも出来る!とか思ったりしました。
StartNotes.vbs
※ 斜体にしたところは環境に応じて適切な値を入れて下さい。
Dim WshShell
set WshShell = CreateObject("WScript.Shell")
WshShell.Run("notes.exe")
WScript.Sleep(8000)
WshShell.AppActivate("Lotus Notes")
WshShell.SendKeys("password")
WshShell.SendKeys("{Enter}")
WScript.Sleep(4000)
WshShell.SendKeys("^o")
WshShell.SendKeys("%i")
WshShell.SendKeys("mailserver")
WshShell.SendKeys("{Enter}")
WshShell.SendKeys("%f")
WshShell.SendKeys("mail/xxxx.nsf")
WshShell.SendKeys("%o")
WScript.Sleep(10000)
WshShell.SendKeys("%(fx)")
Windowの文字とかオブジェクトを取ったりエラーハンドリングをして精度を高められる有償のテストツールみたいにはいかないのですが、ちょっとプログラムっぽくないノリでソフトウェアを動かしている感じが楽しくて色々触ってみたりしました。
とりあえず書いてみたけど、やっぱりNotes技術者の役には立たないですね。。。
最新コメント