その他雑多なこと(tDiary版)

_ [PC][News] 300GB/1枚の光ディスク

日立マクセルのホログラフィックストレージ(CNET JAPAN)。

感光効率が高い、ということなので、カートリッジから取り出し不可だったりしそうだ。ドライブの単価やメディアの単価しだいでは、久しぶりに個人で購入できるHDDまるごとバックアップ可能なリムーバルメディアとなるかも。

スループットが読み出しでの数値なのか、書き込みでも同様なのか気になるところだが、300GB全部を読むのに5時間弱で済むのはいいことだ。ランダムアクセスに成功していない、とあるが、ディスクなので擬似的にランダムアクセスさせるのは不可能ではないはず。

_ [PC] バックアップ

会社マシンが変わったのでバックアップを見直し。

今まではHDDが2台載っていたのでpdumpfsで作業ファイルをバックアップしていたけれど、今回は1台。pdumpfs使えないことはないが、バックアップにはならない。

幸いCD-R/RWドライブ搭載で、WindowsXpなので、更新のあったファイルをCD-RWに書き出そうと思った。

コマンドラインのxcopyを使えばある日付以降の更新ファイルはコピーできる。でも毎回コマンドを叩くのは面倒だ。という訳でWindows Scripting Hostでスクリプトを書いてみた。定期的に動かして気がむいたらCD-RWに焼けば増分バックアップとなる。pdumpfsほど便利ではないけれど、ないよりマシ。

Dim now
Dim predate
Dim nextdate
nextdate=Month(Date) & "-" & Day(Date) & "-" & Year(Date)
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set f = Fs.OpenTextFile("test.dat")
predate = f.ReadLine
cmd = "xcopy ""%UserProfile%\My Documents"" ""%UserProfile%\Local Settings\Application Data\Microsoft\CD Burning\" & nextdate & "\"" /S /E /H /R /Q /Y /K /D:" & predate
Set wShell = CreateObject("WScript.Shell")
Set oExec = wShell.Exec(cmd)
Set f2 = Fs.CreateTextFile("test2.dat")
f2.Write nextdate
Set oExec = wShell.Exec("cmd /c move /y test2.dat test.dat")

_ [PC][News] Firefox1.5

リリースされたので入れてみた。安定しているようだ。