おいぬま日報(不定期)

@ [admin] ADSL47M

@niftyだと40Mと月々の料金は変わらないので申し込みました。これでちょっとは速くなるかな〜。

@ [admin] User-Agentが"User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)"?(2)

whoisで202.108.1.6というIPを調べたところ、 CNCGROUP Beijing province network と返ってきた。ぐぐってみたところ、spammerらしいので、アクセスを完全に拒否するようにしました。

# Curious User-Agent(spammer)
SetEnvIf REMOTE_ADDR "202.108.1.6"      nolog badrobot
 
CustomLog /var/log/apache2/access.log combined env=!nolog
 
# Deny from badrobot
<Files *>
    Order allow,deny
    Allow from all
    Deny from env=badrobot
</Files>

@ [admin] 22:00 〜 サーバメンテ

Apache2アップデートのため、本日 22:00 〜 23:00 ぐらいまでサーバ止まります。

@ [ruby] win32oleを通して自作プロシージャを呼ぶ方法

わかるまでにかなり苦労しましたが、こんなにさっくり呼べるみたいです。VBA知ってれば簡単にわかることでした。

test.xls

test.xlsをRubyスクリプトと同じディレクトリに作成してVBEを起動し、プロジェクトを右クリック。[挿入] -> [標準モジュール]してModule1に下記を記述します。

Public Sub Test1()
    MsgBox "Hello world!"
End Sub

test.rb

下記Rubyスクリプトを test.rb として用意しておきます。

require 'win32ole'
 
def main
  file_system = WIN32OLE.new('Scripting.FileSystemObject')
  file_name = file_system.getAbsolutePathName('test.xls')
  excel = WIN32OLE.new('Excel.Application')
  excel.visible = true
  book = excel.Workbooks.open(file_name)
  excel.Run("Test1")
  excel.Quit()
end
 
main()

実行

$ ruby test.rb

見事Test1が実行されて"Hello world!"のダイアログが出てきます!

ちなみにこのページが参考になりました(Delphiのページみたいですが)。

追記: PrivateなSub, Functionも呼べるようです。

@ [news] 請求額30兆円、米で過去最大のたばこ訴訟始まる

30兆円ってすごいですね。しかも原告は政府ですか。日本もパッケージにでかでかと"煙草は健康を害します"と書いたりしないとまずいんじゃないですか?

@ [ktai] ボーダフォングループ共通仕様の第3世代携帯電話7機種を投入

「日本から撤退するかも」なーんていう噂も流れているvodafoneですが、これ見る限りそうでもなさそうですね。正直

auに乗り換えようかと

思っていたのですが、やっぱりvodafone続投で。

@ [memo] はてな技術勉強会

とかはてな技術発表会日記とか。