アリンコネット – あるSEのログ2


2009 年 12 月 30 日

今年の反省

カテゴリー: うだうだ – teminami 22:22

フリーウェア公開

CuteFlowJPとしてhttp://sourceforge.jp/projects/cuteflowjp/を立ち上げたが、自分の運用が軌道に乗らなかったので、このプロジェクトでしか使わなくなってしまい尻すぼみ。

Webサービスの立ち上げ1件

jQueryなどを組み込んで、ブログとは別でサイト構築中。

 

と今年の目標が何も達成できていない。また、いろんな意味で方向性が定まっていない事がようやく認識できた年でした。

ではよいお年を。

2009 年 12 月 29 日

4GBで3500円のMP3プレイヤー(Transcend MP320)

カテゴリー: レビュー – teminami 19:37

たまたま触る機会があったTranscend MP320 についてのレビュー。

  1. 安い(4GBで3,500円)
  2. 日本語表示も問題なし。
  3. iTune Musicフォルダをコピーして運用するだけで問題ない。ただしAACは非対応なので保存形式をMP3にしている人に限る。
  4. 3行表示の有機LEDディスプレイながら、ファイルナビゲータというモードにすると階層構造になっているフォルダの移動もボタンで簡単にできる。
  5. FMチューナーとマクロによる録音も可能。

USBメモリ内のファイルを再生できるカーステレオなどを使っているなら、イヤフォンを用意すれば、抜き取るだけで車外へ持ち出して続きが聞けるのでかなり便利なはず。予想外に使い易かったのでオススメです。

2009 年 12 月 15 日

L-06AのGoogleボタン

カテゴリー: うだうだ – teminami 23:25

docomoのL-06Aに搭載されているGoogleボタンを押すとどんな専用アプリが起動するのか以前から気になっていたので、たまたまdocomoショップにて実機をされたので押してみた。



Gmailしか確認してないが、iモードブラウザ経由で表示しただけだった。「Google専用ボタンあります」という部分しか目に留まっていなかったので、期待しすぎた。

2009 年 12 月 10 日

Windows2003のGPOでネットワークドライブの割り当て

カテゴリー: PC管理 – Tags: , , – teminami 21:43

\\Test001\Work という共有フォルダをXドライブとして割り当てると、エクスプローラ上ではTest001のWork(X:)となってしまい非常に気に入らない。

このTest001のWorkという名称はnet useコマンドでは設定できない為、やむなくVBScriptを使う方針に。あとは、GPOで配布したら完了。

しかし問題が。Windows7では正しく機能しない。ActiveDirectoryのサーバーが2008ならこんなことしなくとも、GUIですぐ終わるのに

もしWindows2003ServerのGPOにて下記のようなスクリプトをWindows7で利用できている方が居たら情報下さい。判りにくかったので下記へ変更しました。
(2009/12/11追記)Windows7上で上記のスクリプトは動作しますが、WindowsServer2003のActiveDirectory環境からログオンスクリプトとして配布しても、Windows7上では動作しません。もしこの条件でWindow7のログインスクリプトとして動作が確認できた方が見えたら、情報下さい。

Set objNet = CreateObject("WScript.Network")

'特定のユーザーだけにマウント
If (objNet.UserName = "hogehoge") Then
    Call CreateNetworkDrive("X:", "\\test01\hoge", "Hoge用")
End If

'ドライブマウント処理
Call CreateNetworkDrive("Y:", "\\test01\Work", "Work用")

Sub CreateNetworkDrive(strDrive, strPath, strExplain)

    'ドライブアンマウント処理
On Error Resume Next
    objNet.RemoveNetworkDrive strDrive, true, true
On Error Goto 0

    objNet.MapNetworkDrive strDrive , strpath

    'ドライブ名称設定
    CreateObject("Shell.Application").NameSpace(strDrive & "\").Items().Item().Name = strExplain

End Sub