ka.のブログ一覧

1年以上振りかもしれん。
その間、仕事が忙しかったり入院したりフラれたりいろいろと忙しく過ごしてました。
ほとんど車に乗れませーん。

来週には新しい子もくるので、車いじりの時間が取れるといいなぁ。

新しい子には、実はかなり期待している。
大義名分は足車のはずが、なにやらイロイロと買ってしまったｗ

ちょっと用があって、ひさしぶりに屋根を開けて堂堕自動車へ。
およそ2ヶ月ぶりのオープン。

今日はついついど～だ巻きを買ってしまった。運転席側は必要無いので1本だけ。
運転席側のど～だバーは乗り降りのたびに手摺りにしているので、手を振れる部分がバフ掛けしたかのように光ってる。

ピロスタビリンクにも惹かれたが、ちょっと予算が…
乗り心地が良くなるなら試してみてもイイかな。


つるしのど～だ巻きをそのまま付けてみたのだけど、まだど～だバーの角と硬さが気になるので、銀マットを切って挟み込んでど～だ巻きを強化してみた。コレでだいぶ人に優しくなったと思われます。

あとはサンバイザー復活させてみたり。
鏡付いてないんだよね。
NBのは付いてるんだっけ?

俺用備忘録 ADのTips
携帯から見られるし便利なのよね。

意外とネット上に情報が無いので、必要な方はどーぞ
こういうものって必要な時に頭の中から出てこないんだな

SAMIDとCN以外はdsmod userで変更できるのでそっちの方が楽

---------------
ADユーザのSAMIDとUPNを変更するスクリプト

Set objUser = GetObject("LDAP://CN=user1, OU=MyOU, DC=MyDomain, DC=com")
objUser.sAMAccountName = "user2"
objUser.userPrincipalName = "user2"
objUser.SetInfo

---------------
ADユーザの名前(CN)を変更するスクリプト

Set oTargetOU = GetObject("LDAP://OU=MyOU,DC=MyDomain,DC=com")

oTargetOU.MoveHere "LDAP://CN=user1,OU=MyOU,DC=MyDomain,DC=com","CN=user2"

---------------
ADの指定したOU以下の全ユーザのSAMIDを表示名と同一にするスクリプト
たまたま俺が表示名をSAMIDにしたかったからで、表示名じゃなくて別に姓でも名でもいいんだが…

Set oTargetOU = GetObject("LDAP://OU=MyOU,DC=MyDomain,DC=com")

oTargetOU.Filter = Array("user")

For each usr in oTargetOU
  if instr(usr.sAMAccountName, "$") = 0 then
    usr.put "sAMAccountName", usr.DisplayName
    usr.setinfo
  end if
Next

表示名に変な文字が入っててWindowsに怒られてもつまらんので、文字種のチェックする場合はこんな関数になるか？
わざわざ関数にしなくてもなんら問題ないけどね。
正規表現が使えると便利ですな。組織によってネーミングルールがあるだろうし。
Function fncStrChk(str1)
  set oRegEx = New RegExp
  oRegEx.Pattern = "[0-9A-Za-z]+"
  If oRegEx.Test(str1) Then
    fncStrChk=True
  Else
    fncStrChk=False
  End If
End Function

そうすると？これを
For each usr in oTargetOU
  if instr(usr.sAMAccountName, "$") = 0 then

こうすればイイんじゃね？超適当ですけどｗ とりあえずちゃんと動いた。
For each usr in oTargetOU
  if fncStrChk(usr.DisplayName)=True And instr(usr.sAMAccountName, "$") = 0 then

コアとなる部分だけ書いたけど、実際はエラーチェックとかCSVファイルから引っ張ってきたりするコードが必要なことは言うまでもなく。

iPod nanoが結構安く売っているのを昨日の広告でチェキってたので、今日出かけた帰りに買ってきた。

今日はとりあえず妹にあげる用。誕生日になにもあげてなかったんで。
パソコンかiPod欲しいと言われたら、iPod選ぶでしょ。
ケースとドックも買ってきた。

まあ大人の理由があったりなんかして、iPodには今まで手を出さなかったけど、コレは良いね。ｼｬﾎｰ買うんだったらnanoの方が良いな。後ろバフがけしてあるし。

実は、妹の反応が良かったら自分のを買おうと思ってたんだけど…
明日、買いに行こう。

それから、PowerShot S80用にSDカードを買ってきた。無駄にデカイ800万画素、256MBじゃすぐいっぱいになってしまう。
150倍速の2GB。フォーマット超はええ。

iPodもSD使えば良いのに。

久しぶりの休みです。
久しぶりに家に帰ってきました。
しかも連休なんて、ヤバくね?とか思ってしまいます。

----------------------
某CEOより筑波決戦にお誘いいただきました。まだ返してないけど。
ぜひとも走りに真摯な熱い方達と走ってみたいです。
オッサンの厚い胸板を借りるつもりで、謙虚さを見せつつもSタイヤで一泡吹かせてみたいです。

ただね、その頃が一番の山場っぽいんです。仕事のね。
そもそも、他の人間にやらせるなんて嫌だしね。

悩みます。仕事か遊びか。
仕事あっての遊びじゃないかな、と、僕は思います。

----------------------
話を戻して、今日は6月頭に車検に出していたSRを引き取りに出掛けました。1ヶ月半の放置プレイです。
車検代189,000円でした。

キャブOHとリセッティングの効果は絶大で、何処から開けてもスムーズに加速する。
ｷﾀｺﾚこの感じ、なにこの乗り物、超最高とか思いつつブッ飛ばしていると、突如エンジンストール。

ガス欠でした。しかもリザーブで。
来た道には、近くにGSがあった記憶は無い。ならば前に進もうと、灼熱の中をバイク押して歩きました。

途中、親切なチャリのオッサンにリポDをもらって少し勇気が出た。
次の次の信号を左に曲がるとスタンドがあると言う。

次の信号が果てしなく遠いです。
噴き出る汗の量が減ってきて、ヤバいなとか思いました。
結局、7km歩きました。

レギュラー満タン現金でと告げ、すぐに水分補給。

水を買おうと財布を開くと、JAFの会員証が目に入りましたorz