ここに書いてあることと全く同じ。 チケットぴあ でメインIDをサクラドメイン にしてあると、予約やチケット購入時に「お客様の会員情報ではサービスをご利用いただくことはできません」と表示される。メインメールアドレスをGMailに変更して購入可能となった。

ほんと、そうならそう表示しろとか、そもそもそんなメールアドレスで入会認めるな(今回のために会員登録した)とか思ってしまう。お客様対応部署にがんがん問い合わせて、負荷をかけた方が良いのかもしれない。

たぶんさくらのサーバが不正行為によく使われるんだろうな。さくらから携帯にメールを送ると拒否されることも増えてきた気がするし…

7月の出張から帰ってみると、自宅サーバのHDD残量が0になって数日分の記録データが消失した模様。出張前にそれなりの容量を空けておいたはずなのですが、予定外に不要なものが記録されていたようで。

毎年このようなことが起きるので残量を監視してメールで報告してくれるプログラムでも探そうかなと思ったのですが、内容が簡単なので作ることに。ついでに仕事でPythonを覚えることになったので、IronPython で作ってみようかと。

• 残量以外にHDDの健全性チェック機能も付けたので、実行には要管理者権限。
• 調べたいのはデータドライブだけなので、100GB以上のドライブ限定(STORAGE_MIN_TOTAL_SIZE)。
• ドライブの使用量が90%を超えた場合にメール (STORAGE_MAX_FREE_RATIO)
• スクリプト内にメールサーバのパスワードが平文であるのがセキュリティ的に難ありですが、それはおいおい修正ということで(と言って、やらないんだろうな>自分)

MAIL_FROM = "from@example.net"
MAIL_TO = "to@example.net"
SMTP_SERVER = "mail.example.net"
SMTP_PORT = 587
SMTP_USER = "smtpuser"
SMTP_PASSWORD = "smtppassword"
STORAGE_MIN_TOTAL_SIZE = 100e+9
STORAGE_MAX_FREE_RATIO = 0.9

import clr
clr.AddReferenceByPartialName("System.Management")
clr.AddReferenceByPartialName("System.Net")
from System.Management import ManagementScope,ObjectQuery,ManagementObjectSearcher,ManagementObjectCollection
from System.IO import DriveInfo,DriveType
from System import String
from System.Net import NetworkCredential
from System.Net.Mail import SmtpClient,MailMessage

message = ""

# Check HDD health
scope = ManagementScope("¥¥¥¥.¥¥ROOT¥¥WMI")
query = ObjectQuery("SELECT * FROM MSStorageDriver_FailurePredictStatus WHERE PredictFailure=True")
searcher = ManagementObjectSearcher(scope, query)
mgrCollection = searcher.Get()

for aMgr in mgrCollection:
    message = message + aMgr["InstanceName"] + " is predicted to be failure.¥n"


# Check drive free space
drives = DriveInfo.GetDrives()
for aDrive in drives:
    if aDrive.DriveType == DriveType.Fixed and ¥
       aDrive.TotalSize > STORAGE_MIN_TOTAL_SIZE and ¥
       float(aDrive.TotalFreeSpace)/aDrive.TotalSize>STORAGE_MAX_FREE_RATIO:
        message = message + String.Format("{0} has {1:0.0}GB free.¥n", aDrive.Name, aDrive.TotalFreeSpace/1e+9)

try:
    if message <> "":
        mailMsg = MailMessage(MAIL_FROM, MAIL_TO)
        mailMsg.Subject = "Storage alert"
        mailMsg.Body = message
        
        smtpClient = SmtpClient(SMTP_SERVER, SMTP_PORT)
        smtpClient.Credentials = NetworkCredential(SMTP_USER, SMTP_PASSWORD)
        
        smtpClient.Send(mailMsg)

except Exception as ex:
    print ex.clsException

• Have you ever wanted to know if your Disk is going to fail before it does? (MSDN blog)
• ドライブの情報を取得する (日曜プログラマーの休日)
• Sending Emails in C#.Net (C#.NET)

---

こういう写真が撮ってみたかった。

今まで(例えばこれ )稲妻を撮影するときは、出そうなところにシャッター半押しで構えて、光れば押すという反射神経に頼ったものでしたが、まぁこれがうまくいかない。チャンスは数分から数10分に一度の一瞬。集中力と半押しを維持する指が持続せず、押したときには手遅れなことが大半。

今回は露光を暗めに設定、シャッター速度を5秒にしてひたすら連射しました。シャッターを開きっぱなしにして、そこに稲妻が映るのを待つわけです。1分間に12枚、1時間で720枚。今回も300枚以上撮影して使えるのはたったの3枚。撮影枚数が潤沢なデジカメだからできる手法です。

撮影方法が見つかったので、次は電線のない場所探しです。