こう云う成果をUSAで出されると、国内メーカにとってはイタいよね･･･ しかもMITって･･･
充電時間が最大36分の1になる画期的なリチウムイオン充電池が登場 - Gigazine [ 20090313 1238 ]
SIGMA SD14専用のリチウムイオンバッテリー BP-21 で云うと、3分30秒前後で充電完了するワケだ･･･
同じ大きさ(バッテリー容積)なら、撮影時間も延びるってコトだろうな･･･
そうなると、のて機でも、便利になるだろうが、結局、
(長時間使える)小型燃料電池と どっちが先に世に出るかで、市場における力関係が決まるだろうな･･･
実用化２～３年後とか云ってたら、まぁアウトだね。 安全性ってのもあるだろうが、Limit1yearってトコかな。
MITも、撃沈したくはナイだろうし、国内に拘らず日本メーカーと結託するコトを激しく推奨するよ。
ExtendAlias - Blog Archives
2009/03/14
日本の電池メーカ ｵﾜﾀ？･･･
2009/03/13
VBScriptで鯖管理 そにょ２･･･
このログのスクリプトは以後のログで更新しました。[ 20090411 1839 ]
鯖ってより、Windows(NT系2k以降)端末全般に云えるコトかも知らんが、
Windows起動時のアプリケーション自動起動･･･
[スタート]メニュー、[プログラム]配下の[スタートアップ]に登録したり、
レジストリの
[HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run] |
ただ、残念なことに、これらでは起動順序を指定できない。
唯一その機能を持つレジストリキー RunOnce も、既知と思うが、
システムレベルのファイル更新向けなので、初回起動時にのみ動作し、設定が消去される。
スタートアップ起動させたいが、起動タイミングがカブると具合の悪いものも、意外に少なくはナイようだ。
しかも、スタートアップフォルダ登録では、ログオン時にしか機能しない。
ココで 紛らわしいので一応の解説を入れると、[スタートアップ]フォルダ登録での起動と云うのは、
Windowsのブート後、ログオン画面が表示され、
(オートログオンを設定している場合は少し違うが、実際は同じ。
マシンがショボいと、一瞬ログオン画面が見えることがあるので判る)
ユーザーがログオンした後の自動起動をサポートしている。
で、グループポリシーで云うトコロの"スタートアップスクリプト"と云うのが動作するタイミングは、
前述にあるWindowsブートの後半で実行される、
つまり、ログオンより、スタートアップのほうが先行動作する･･･ なんて紛らわしい･･･
で、チョイと判ってるヒトなら、グループポリシーで、スタートアップ／ログオンスクリプトに
実行させたい対象を設定して、起動順序をある程度、制御下においてみることも試みていると思う。
本来はスクリプトを登録するのがスヂっポイのだが、実行ファイルも直接置けるし、パラメータの指定も出来る。
で、そのグループポリシーのスクリプト登録、スタートアップ／ログオン／ログオフ／シャットダウン
それぞれ、分けて設定できる、RAMドライブのような変り種利用者だったら、この意味は判るだろうし、
中々に嬉しい機能だろう。
ただ残念ながら、起動順は設定できるようだが、次の処理までの移行時間までは設定できないと見える･･･
しかしまぁ、ココでもVBScriptが使えるってコトで、だったら･･･とチョイっと作って実働させている。
sScriptor.zip |
{sScriptor}.vbe |
{sScriptor}.ini |
iniファイル内 行書式)
|
iniファイル例)
C:\Applications\System Tools\ProcessorManegements\CrystalCPUID\CrystalCPUID.exe;/F22 /P1 /E;;1;4000;[CrystalCPUID] |
ちなみにグループポリシーで登録するファイルは、
|
しかし、[スタートアップ]フォルダのように、ココに直接ファイルを置いただけでは機能しない。
[管理ツール]-[グループポリシー (グループ ポリシー オブジェクト エディタ)]内の、
[コンピュータの構成]-[Windowsの設定]-[スクリプト(スタートアップ／シャットダウン)]
[ユーザーの構成]-[Windowsの設定]-[スクリプト(ログオン／ログオフ)]
に対し、任意の処理へGUIを使って登録する必要がある。
また、前述のように、既定フォルダ以外に配されている場合は、フルパスでの登録が必要となる。
って、設定がGUIになってるので、心配はナイが･･･
で、以下に、その設定画面の画像を並べてみたので参考にしてほしい。
なんか、このログ作るのに、また新たな副産物が出来てしまった･･･
おかげで、ソースを作ったままの見た目で うp出来るようになった。
と、云うのも、Bloggerの余計な処理のおかげで、preタグが思うように機能しなくてね(-_-;)
んで、今回分のソースなど･･･
'***** ↓↓↓ScriptTitle↓↓↓ ********************************************************* |
ウチの鯖ﾀﾝでは、
[HKEY_USERS\.DEFAULT] や [HKEY_CURRENT_USER] 他の
[Software\Microsoft\Windows\CurrentVersion\Run] の中身を全部移行して利用している。
コイツを使って、最速起動に繋がるBoot時のスタートアップパターンとか、見つけてみるのも一興かとw
･･･ただ、タスクマネージャだけはヤメといたほうがイイよ、最小化指定で起動すると、
起動自体は出来るケド、ウインドウとして開かなくなるからww
PowerBar(のて機やUPS接続機以外では不要)は、ココには"身"の記述無かったので、触れていない。
Dr.ワトソンも、敢えて触れずにおいている。(存在忘れてたってのが正しいが･･･)
＜そのまま使えるVBscript 鯖管理 起動順序 グループポリシー スタートアップ ログオン ログオフ シャットダウン＞
所詮ソノ程度か･･･
関係省庁や自動車メーカーってぇ程度でデキるコトなんてソンなモンだろうなε-(￣ヘ￣)┌ﾔﾚﾔﾚ
ＩＴＳ：交通事故防止に先端情報技術、１０年度実現へ - 毎日.jp [ 20090309 1434 ]
バカな御役所連中じゃ、金掛けて無用に規模の大きなハコを作りたがるキライがあるので、
こう云うハナシが出てきたら、注意して推移を見ていかないと、
JHと結託した企業らに、無駄に金を取られる結果となったETCの二の舞となるのだが、
どのくらいのｲﾊﾟｰﾝ人が、そう云ったコトを理解しているコトやら･･･
ま、アタマの悪いﾔｼらが、いくらボられようと知ったこっちゃナイけどネww
はっきり云って、普及も安易な最良策には、そんな大掛かりな設備も費用も、全く必要ない。
★ETC車載器に、WiFiとWiMAX、そしてナビと共用可能なGPSのアンテナを組み込み、
車ごとにIPv6のUniqueアドレスを割り当てWebサーバとして機能させる。
★車同士がFONのような、WiFiのアクセスポイント 及び 中継局として機能するようにする。
★それぞれのユニット(車)が近接することで通信を開始、それぞれの移動方向を識別し、
交差点などでの、見通し外位置の車両接近を感知し、警告を表示できるようにする。
コレだけでも、出会い頭の事故などは、カナリ減らせると云うのは、想像に易しい。
ついでに、フラッシュメモリに近接車両のIPをログするようにしておけば、
当て逃げなどの事故の際にも、犯人検挙に寄与できるだろう。
そこで更に、
★安価なUSBカムを接続できるようにし、フラッシュメモリレコーダ回路も搭載し、
上記Webサーバ機能を利用して、ドライブレコーダ／移動Webカムとして稼動させる。
この、Webカム化っては、コレが以外に必須だ。
と云うのも、事故の場合、対象車両炎上などで、機材が灰になるコトもあるだろうし、
機器不良に寄る万一のレコードミスも、結構考えられる。
公開化しておくことで、何れかの他者が記録を取っているコトを期待できる。
そう云う向きを逆手にとって、バックアップとして利用するとwww
接続しているIPすべてをログとり、他のユニット(車両)と相互記録する構造なら、
そう云う折にも、事故に巻き込まれていない ないし、破損軽微な近接車両から画像やIPのログを回収できる。
また、コレはオマケだか、
★信号機や道路標識などにも同様の機能と、Webカムレコーダを追加し、
接近車両管制(事故防止)Serverとして機能させる。
当然、近接する車両のWebカメラ画像も記録するよう構成するべきだろう。
イマドキ高価な監視カメラなど使わなくとも、高度な画像補正処理がたった１つの石だけで、
それも一瞬で出来ちまう時代だ、チャチぃ防水(赤外線撮影モード付き)Webカムと、
いくらもしないフラッシュメモリレコーダ回路を組み込むだけで、用を成す。
まぁ、コイツに関しては、管轄が警察や国土交通省になるだろうから、ひき逃げなど多々ある事故も、
税金から無駄な人件費や、貴重な時間掛けて捜査する必要性はなくなる。
コノ程度の設備への投資なら、経年換算で、役立たずに掛ける人件費よりは、余程安上がりだ。
そもそも、現在の技術なら、試行機ツクるのにも、殆ど金は必要ナイだろう。
それこそ "ひまつぶし"レベルで出来るワナΨ(｀∀´)Ψ
ソノ上、それらシステムは、ユビキタスシステムの一翼を担わせることもでき、一石二鳥と云うわけだ。
以前 国を挙げてヤルと宣うてた、"日本全国隈なくインターネット環境を敷設する"ってのにも、寄与出来そうじゃネ？w
折角コスト掛けてナニかヤるなら、一石で多数の鳥をオトとせるほうが、イイに決まってる。
どうせ今後、車載ETC機は なにかしら必要な社会になってくるだろし、
JHがメーカーに対し、新車への標準搭載を要請しているらしいので、
結局、そう遠からず、要らなくても憑いてくるようになるだろう。
だったら、ココで提案したような機能が追加されてた方が、まだ実があるのではないだろうか？
ｺｲｼを流用すれば、いちいちカードを挿すタイプのETC車載器は要らんワナ。
IPv6アドレスを、ETCゲートで取得して、基幹サーバで、対象に課金すればイイだけだし、
(ココは陸運局のナンバー登録管理システムとも連携すべきだろう)
クレジットカードも要らんワナ、銀行のDebitシステムとJH基幹が連動すればコト足りる。
そう考えてみると、現行のETCなんて、ホントバカな構成のシステム組んだモノだな、JHも･･･
しかしまぁ、聴かれてもいないのに、こんな提案してやるなんて、我ながらマヌケだワ、一銭にもならんのに･･･
って、ココに挙げた例は、チョイと考えて思いついた分だけだ、引き出し開ければ案など幾らでもある。
もっとも、こんなログ、車両メーカーや関係省庁の連中が見てるとは とても思えんがねw
ま、ちったぁアタマ使って安全なクルマと交通システムを創るよう、健闘されたし。
やってもうた･･･
プロバイダ切り替えを半ば諦め、解約を保留していたGyaOに戻したまではよかったが、
うっかり、フレッツ光のCTUの設定をそのままにしてしまい、ファイアウォール周りが、
Interlink向けのままで、鯖が外部から繋がらない状態に(ﾟДﾟ;)
宅内からでは、ケータイ使ってテストするくらいしか、
鯖内Webベースでの外部接続テストができない状態なので、すっかり忘れてた(´ﾍ｀；)
訂正を施し、今、ようやく接続を確認できて ひと安心w
もう、
おきつねさまのひまつぶし http://www.okitsunesama.com |
･･･で、何故にプロバイダを戻したのか？ 別段Interlinkの品質に不満は無かった。
が、料金を比較する上で、肝心なコトをすっかり忘れていた。
まず、このイナカでの USEN GyaO光 の場合、with Flets なので、
NTTのをすべて込みでの金額が、
| サービス | 単価 | 数量 | 購入金額 | ご利用期間 |
|---|---|---|---|---|
| ホームタイプ ISP月額基本料 | 1,162 | 1 | 1,162 | 1月 1日～ 1月31日 |
| 光屋内配線使用料 | 200 | 1月 1日～ 1月31日 | ||
| フレッツ・光プレミアム Ｆ利用料 | 3,000 | 1月 1日～ 1月31日 | ||
| 消費税 | 218 | |||
| 合 計 | 4,580 | |||
要は、比較の考え方自体が間違っていたワケだ･･･
ここいらヘン、関東に居た時は、GyaOのマンションタイプで、
USEN側とは直接接続だったので、回線も同社(実際はダークファイバのUSEN借り上げ)だったし、
コチラでも、同社をプロバイダとして選択し、with Flets というカタチでの利用だったので、
料金においても、NTT回線介在でのネットワーク利用と云う感覚は無くなっていた･･･
とは云え過去には、インターネットって NTTの回線＋プロバイダの接続サービス ってのしか
選択肢ナイ時代があったんだよね～ あまりに昔のことなので、ホンキで忘却してた･･･ ^_^;
ツマるトコ、Interlinkの場合、あの料金に、NTTの回線分が別途上乗せされるワケで、
切り替えるほどの低価格にはなり得ない･･･むしろ、NTT側の割引がない分、割高になる･･･
で、已む無く、お試し期間中だったInterlinkを断ったと･･･
ただ、USEN GyaOも、NTTの割引期間が切れるまでに、
この地域では光接続最安値の BBIQ へ切り替えるコトも検討している。
アソコも最近は、"鯖キンシ"なんつ～ボケたコト云わなくなったらしいし、
PPPoEギライの当方だが、結局NTTも同じ処理だし、だったらBBIQ選択しないテはナイよな･･･
関東圏でUSEN選択したのは、むしろ価格よりも、光LANをそのまま敷設し、
キホンでIPを８個割り振られるってコトに魅力を感じたコトが要因として大きかった。
(その割には安かったのだが^_^;)
で 以前、USENに問い合わせたみたのだが、どうやらもう、イナカでは自社回線の増設はヤル気ナイらしい･･･
光接続を全国の家庭に ってフレ込みで立ち上がった事業だったような気がしたのだが･･･
志が微妙になってしまっている現状、USENもｵﾜﾀか？
2009/03/11
VBScriptで鯖管理 そにょ１ オマケ･･･
DateFolderCreateもアーカイブを用意したので ﾄﾞｿﾞ♪
DateFolderCreate.zip |
しっかし、エンコードファイル.vbeを、直接やり取りできないコトをすっかり忘却ってたよ^_^;
＜そのまま使えるVBScript 日付 フォルダ 作成 自動化 複数 ルートフォルダ 指定可能＞
2009/03/10
VBScriptで、日付付きFileBackup･･･
FileBackupper.vbs と .vbe を、暫定で今使ってるままをうpしました。
ファイル／フォルダ右クリックのコンテキストメニューに、
[バックアップ作成]を追加する機能はまだ付いていない版です。
デキルコトは、対象ファイル／フォルダの名称を、
"[元FileName] yyyymmdd hhnnss.[拡張子]" に 変え、コピーを取るだけ。
実働のブツなので使えますが、未使用関数が載ったままになってたりと、
効率が悪い部分が残っています。
改訂版も後日うpするので、コノ分は、あくまで、参考までに･･･
FileBackupper.zip |
使い方は至って簡単、ファイルやフォルダをドラッグするだけ。
ショートカットでの利用も可。
'***** ↓↓↓ScriptTitle↓↓↓ ********************************************************* |
しかし、リリース2006年かぁ･･･(遠い目) ファイル文字列処理に初々しさがあるよねw
ちなみに、もっと程度の低い版なら、2004年にはあったw
更に前だとWinBatch版、もっと前はBatファイルだったなぁ･･･(更に遠い目)
もう、過去のHDDクラッシュで、ソース紛失してるケド^_^;
＜そのまま使えるVBscript 日付 添付 バックアップ ファイル フォルダ＞
WindowsScriptEncoderを便利に･･･
このログは、コチラのログ も併読してください。 |
－－－－－－－－－－－－－－－－－ [ Update 20090317 2113 ]
このログのスクリプトのアーカイブはコチラの版に差し替えました。
通常のWindowsアプリケーションの挙動なら、その本体やショートカットを作成し、
対象ファイルをドロップすれば、ソースファイルのあるフォルダに結果を返してくれそうなものだが、
WindowsScriptEncoderは、そのままでは、長いファイル名に対応できてない上、書式がカナリ厄介。
書式)
"[インストール先]\screnc.exe" "対象ファイル.vbs" "エンコード後のファイル.vbe" |
screnc.exe － エンコーダ本体 |
まず、エンコード後の名称を、フルパスで拡張子までキッチリ指定しないと正しく動作しないってのがヘン。
また、コンソールアプリなので、スペースを含んでいたり、長いファイル名は、
[ " ]ダブルクォーテーションで囲む必要がある。
このような仕様では、どうやったって、単純にショートカットを配し、ドロップして利用･･･ とはイかないワケだワ(´ﾍ｀；)
最終的に、内容がエンコードされて、拡張子が変わるだけでいいのに、何故こんな指定方法なのか･･･
(安易な不正アクセスを防ぐイミでは、有効かもしれないケド･･･)
結果のファイル名.vbeを、ソース.vbsと異なるようにしたい向きを除き、とてもユーザーフレンドリーとは云いがたい･･･
今回も使い方は、以下スクリプトをコピってテキストエディタに貼り、
VBSEncodeConnection.vbs として保存後、実行スクリプト保存フォルダを任意に作成し、ソコへ放り込んで、
ショートカットをデスクトップ他、使いやすい場所に配してください。
あとは、作成した.vbsファイルをまとめてドラッグするだけで利用できます。
エンコーダのインストール先は、スクリプト中の
Const Enc = "C:\Program Files\Windows Script Encoder\screnc.exe" |
今回は、組み込み関数は一切ないデスw つか、要らないと云うほうが正しいカナ。
'***** ↓↓↓ScriptTitle↓↓↓ ********************************************************* |
ま、ソコはソレ、不便なら、問題を解消する策を講じられる位でないと、
MS製品なんて使ってられんと云うコトで･･･w
とは云え、今回は手順も面倒なので、ソースとエンコード済みのファイルをDL出来るようにしてみました、
VBSEncodeConnection.zip |
－－－－－－－－－－－－－－－－－ [ Update 20090317 2113 ]
このアーカイブはコチラの版に差し替えました。
今までのモノも、似た対応できたんだけど、面倒だったのでw
あと、セキュリティ的に、テキストのほうが安心できる人も多いかと思ったし･･･ (^_^;
ちなみに、エンコード後のファイルはバイナリ形式な上、既にヒトが読めるカタチになってません、
修正や改変は出来ないので、ソースは大事に保管してください。
また、エンコード後のファイル.vbeは、Web環境で利用する場合、
対応している対象がIEだけらしいとのレポートを読んだ記憶があります。(未確認、誤報なら嬉しいが･･･)
あくまで、ローカルでの運用に留めた方が無難かと思われます。
－－－－－－－－－－－
次回は、FileBackUpper.vbe辺りをソース込みで うp予定。
対象ファイルの名称を "[元FileName] yyyymmdd hhnnss.[拡張子]" に 変え、コピーを取るだけのモノ。
長いこと利用しているブツで、HTML/JavaScript/VBScript etc.. 版管理に威力を発揮している。
初期起動で、ファイル／フォルダ右クリックのコンテキストメニューに、
[バックアップ作成]を追加するようレジストリ設定を行える機能の追加版を用意する予定。
乞うご期待。
＜そのまま使えるVBscript WindowsScriptEncoder 容易 使い方＞
2009/03/09
ググるさん1ページ目に･･･
･･･検索ワード "おきつねさま" だけで載るようになった^_^; (70件圏内)
気まぐれで、以前シゴトで使ってたVBScriptとかの持ちネタを放出しだしたからか？w
そお云う引き出しなら まだまだあるのだがw♪
VBScriptで日付処理 それから･･･
C++で作成してる別アプリが完了次第、
VBScriptでの日付処理最終版にとりかかる予定。
ただ思うに、C++で .NetFrameworkを利用して、
日付関連の文字列返すActiveXオブジェクトを組んだほうが効率良い様な気も･･･
シェアウェアなら似たようなのあるみたいだけど、
VisualBasic関数のラッパーDLL VBWRAP ver1.00 |
Excelワークシート関数に･･･
DateSerialがナイことに、さっき気がついた･･･
ナニをイマサラと云われそうだが、ソレもソノ筈、
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ |
Worksheet上で
=iDateSerial(2009,3,0,"yyyy/mm/dd") |
当然、引数はセル参照を指定できるので、当時は それなりに使えたよ。
ちなみに、今日追加したのは、文字列返しの部分と、不正入力対応･･･
デモ、ホントに使うのなら、不正値での動作は、エラーを返すほうがイイのかも知れない･･･
そうしたい場合は、※印の行を消して使ってくださいなっと♪
P.S. コッチのほうが無難かも･･･
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ |
VBScriptで月末日取得 最強処理･･･
つか、VBSで無くとも応用できます、閏とか一切気にしなくてイイです。
今日の月の月末日は ってのは
n = Now() |
優良サイトではないので変数宣言省いてマスΨ(｀∀´)Ψ
単に日付が欲しいだけで、イチイチ閏なんて計算してらんないって、バカらしくてw
ただ、税額処理だの、給与計算だのってぇのでは、意外に使える(実際使ってた)
+1 0 ってトコがツボ。大体殆どの開発環境で使えるし、
Excelワークシート関数なら
=DATEVALUE(YEAR(NOW())&"/"&MONTH(NOW())+1&"/1")-1 |
Excel/AccessなどのVBAでも有効な手段。
Dim nYear As Integer ,nMonth As Integer |
Excelに対し、DateControls.xlaと云うExcelAddinファイルをツクって、
モジュールにFunctionsと銘打って、その中に記述していた関数、
Public宣言とApplication.Volatile記述で、ワークシート関数として使っていたブツ。
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ |
しかし、最近はExcelも使わなくなったなぁ･･･
って、職があった頃から、Excelには見切りつけて、
数百MB規模のデカいデータは、VBSで適宜処理して、AccessやSQL鯖にブチ込んで処理してたケドねww
つか、プーしてる今となっては、無用の長物だけどねww
＜月末 日付取得 うるう Excel Access VBA＞
云うたトコロで所詮･･･
元々Excel&AccessVBA使いが、以前、仕事の都合でVBScriptに手を出したので、移植モノも多いのデス。
なので、時折間違って、
Public Function |
まぁ、日付に関しては、Script系では、VBAの使い良さに勝てないデスね･･･
･･･VBA:VisualBasic for Applicationの略
MSOffice製品のマクロ機能を司ってるのがｺｲｼ。･･･って既知だろな、どうせ;
当然本家VisualBasicも、同様に処理できるので、
以前紹介したような、複雑なスクリプトなど無用の長物そのものなのデス。
だったらナンで書いたのか･･･ ソコに山があったのデス! (VBSで)ドコまでやれば、
そのヘン近づけられるかってのに興味があっただけなのデスww
VBScript実行が抑制される？･･･
VBScriptの.vbsファイルは、一部のセキュアアプリで実行が許可されないか、
実行確認画面をクリックする必要に迫られることがある。
(KingS●ft製のでヤラれたコトがある、数年前に･･･)
タスクで自動動作させたい向きには非常に厄介だ。
それらを避けたい場合は、.vbsファイルをエンコードして利用するコトで、
セキュアを維持しつつの自動化への解決となることが多い。
エンコード後の拡張子は .vbe
肝心のエンコーダは、 WindowsScriptEncoderと云うのが、
Microsoftサイトで配布(要認証)されているので、利用されたし。
ソースを読まれたくない場合などにも良いかと･･･w
VBScriptで鯖管理 そにょ１･･･
Update 20090311 0300
ココのScriptも、以後のログにアーカイブ用意しました。 |
Windowsのタスクに登録して、日毎フォルダを作成するだけのスクリプト。
当然設定は １日１度 00:00 に 動作させる。
なんでそんなモノ要るのかって？
毎日定点で写真を撮ってるので、保存毎にフォルダ作るのが面倒になったからwww
ちなみに、ココで公開したスクリプトは、元々コレ向けだったものが多いですww
今回の分は、以前の仕事で、
"起動後、特定条件の日だけにデータ取得を動作させるよう、処理を自動化してくれ"
と依頼されて創ったモノをバラし、その断片に、新たな構想を加えて作成したモノです。
(確か、六曜で云う、大安 の日だけって指定だったと思う 当然Windowsのタスクにそんな器用な設定はない。)
iniファイル配置で、複数フォルダを対象に出来るのが、ちょっとだけ凝った点w
つか、コレに関しては、用途的に必須だったってのが事実^_^;
と云うのも、タスクにvbsやvbeを登録する場合、
ソレ自体はスクリプトであって、実行する本体ではないので、パラメータの指定が出来ないと云う罠が･･･
もっとも、ランタイム自体から記述してしまえばイイのだろうが、面倒だ。
どうせなら単純登録だけで使いたい･･･ と云う なんとも手抜きな欲がココまでさせたとも云える･･･
それに、複数のフォルダに同処理を施したかったってものあったので、iniファイルを読み込むカタチにしたと(´ﾍ｀；)
デキルコトはってぇと、指定フォルダ配下に、
[指定したフォルダ] |
指定したターゲットフォルダは、既存していることが必須で、ない場合、処理は実行されません。
自動でターゲットフォルダを作成する処理も検討しましたが、セキュリティ的に疑問を感じた為ヤメました。
書式)
DateFolderCreate.vbe {対象フォルダ名{,対象フォルダ名} |
パラメータ無指定の場合
[スクリプトを起動したフォルダ] |
コマンドラインやショートカットからの、パラメータ指定起動の場合、
[指定したフォルダ] |
また、スクリプトが配されているフォルダに、スクリプトと同名のiniファイルがあり、
C:\Target,C:\Target\Target |
C:\Target |
C:\Target |
指定先に、対象が既存の場合は、スキップするようになっているので、殆ど意識無く使えます。
毎度のコトながら、役割ごとに関数化してあるので、流用もしやすいかと･･･
▼ウチの鯖たん上で、実働してるスクリプトそのもの･･･^_^;
'***** ↓↓↓ScriptTitle↓↓↓ ********************************************************* |
って、以前のログから読んでるヒトには、使用関数周り、ドコかで見覚え感ありありでしょうが、
まぁ、御愛嬌と云うコトでww
･･･つか、こんなのに用がある閲覧者が居るのかってコトのほうが、いささか疑問だが(´ﾍ｀；)
＜そのまま使えるVBScript 日付 フォルダ 作成 自動化 複数 ルートフォルダ 指定可能＞
2009/03/08
エラい目みた･･･
WMI呼び出しだけで済まそうと手を付けたC#が、１日程度で挙動を把握できたコトにチョーシづき･･･って、
得られた値は、レジストリにあるクロックアップ前のモノで、全く使い物にならなかったのだが･･･(;_;
･･･で、面倒を省みず、RDTSC命令を使うが為に、C++の敷居を跨いでしまったってのはマズかった･･･
なんか、ほぼ睡眠も取らずに獲り憑かれたように･･･ま、３日ほどで こいつも大体把握できたのでイイんだけどねw
しかしアレだね、C#やC++が使えると、デキるコトが格段に広がるのはイイんだケド、
後者なんてもうアレは、完全に人間向けでないでしょ、あの記述は･･･ ^_^;
しかも、同じ処理させるだけで、アレだけ多様な対象の列挙の仕方があるのか と、
ホンキで考え込んでしまったよ･･･
しかし、使ってみて更にMSのWindowsに対する手抜き具合を知った感があるね。
プロセッサのRDTSC命令の扱い１つ取っても そう思えるよ･･･
･･･てっきり、Winは、休止モードから回復した時に、全てのレジスタに元の値がセットされてしまって、
検出方法がないから、休止復帰のRUNレジストリキーがナイのかと思ってたら、サにアらず、
しっかり初期化されてましたよ･･･ Visたんトカもコノへん未拡張のままなのかな？
マシン重いと、休止モードに頼りたくなるよね～ww
つか、プロセッサ多コア時代に、クロックの取得がハードレベルでﾃﾞﾌｫサポートされてないってのはドウなの？
石メーカーも、もう少し考えてツクれよってハナシにならないか？
実際、OSサイドからパワーマネージしようと思ったら、クロックの正確な値を得るのに、
レジスタ上のticksが頼りって ちょっとね･･･ しかもコア毎に可変でしょ、イマドキの石って･･･
ナニが不満ってGeodeNX1750@14Wは、某著名CrystalCPUIDナシでは、フルクロックにならんのよコレが!
ソレを補う監視ツールを創りたかっただけなんだよね～ C#だのC++だのに手を出した理由って･･･
しかも環境が VSExpressEditionなモンだから、肝心の欲しい機能を含むALTが憑いてなくて使えんし･･･
ま 結局、無くても全然困らなかったけどねww
しかし、1000msec取得するだけのインターバルタイマまで自分で書かないとならないとは･･･
VBScriptより辛いかしらん(´ﾍ｀；)
Windows.Forms.Timerに逃げる(クロック表示フォームあるし)というのも手段なのだが、
フォーム(を完全に)非表示とか、フォーム無しVer.とかでも動作させたい場合にチト困る･･･
マシンがショボいと、イラんトコに神経使うのよコレが･･･
動画再生もｲｯﾊﾟｲ×2なのは仕方ナイとして、Adobe製品やMSOffice製品ですらカナりキツい･･･
ソレらを使うには、あの軽いCrystalCPUIDすら常駐させて置けないんだから、ドウにもナラん(-_-;)
まぁ、完成したらココとかに うpする(ソースのほう)と思うケド、機器依存激しいカモねwww
敢えて普及してるんだか してナイんだか判らん .NetFramework3.5を多用しようと目論んでいると云うΨ(｀∀´)Ψ
･･･でも、基本的なモノしか描き込んでいない･･･そう、それは まるで、背景白い手抜き漫画のようなwww
･･･な、カンジだし、以外に大丈夫かな、カナ？ ^_^;
2009/03/04
ソレに比べて･･･
コッチの商品▼って、照明としてもヨさげだけど、
超高輝度ＥＬシート - 株式会社 海光社
原稿や写真フィルム確認向けのライトテーブルの代わりに向いてるような希ｶﾞｽ
･･･価格と寿命が折り合うかが疑問ではあるが^_^;
諸元情報中に
※発光色ホワイトは太陽光に当る場所に設置した場合、
紫外線の影響で赤色顔料が退色して少しづつ青味を帯びてゆきます。
とあるが、コレでは一般利用するにはムリがあるなぁ と思いつつ見てたら、
防湿ラミネートによる長寿命化
空気中の水分をの侵入を防ぐために積層フィルムでラミネートしています。
ともある、だったら、
●曲げられる必要があるなら
紫外線遮光フィルムを表層に貼る、ないし、同特性のあるラミネート材料を使う
●板状で使うなら
紫外線遮光透明塗料をコーティングする、ないし、紫外線遮光プラスチック板を表層に充てがう
と云った構造にするだけでも、劣化防止に効果が上がりそうなものだが、検討しなかったのだろうか？
最近の紫外線カット系商品の可視光透過率の高さは、
過去のモノとは比較にならない程 性能が向上しているのだが･･･
－－－－－－－－－－ update 200903080203 |
国内大手企業って･･･
いちいち イマサラ感 炸裂させてくれるトコ多いよな～
「省電力」有機ＥＬ照明に進出 出光、１３年めど 欧米で事業化検討 - FujiSankei Business i [ 20090303 ]
って、ホント今更、しかも検討とか云ってるし･･･ コレだからコッチ出のイナカ企業はよぅ･･･(´ﾍ｀；)
ついに手を付けてしまった･･･
VB6.0やVisualStudio.NET(2k2)に触れていた過去から逃れるかの如く、
つい先頃までは、出来るコトは殆どをVBScriptでカタづけてきたのだが、
JavaScriptに触れたあたりから、創りたいモノに欲が出てしまい、
とうとう、処理可能な範疇を超えてしまったらしい･･･
已む無く、インストールはしてあったVisualBasic2k8に手を出したが、
どうやら更に足りなくて、VC++やVC#にまで食指が伸びてしまった･･･
つか、マシンスペックがｱﾚなもんで、デバッグするだけで停まりそうなのだよ(|| ﾟДﾟ)
マトモな機材が揃うまでは関わりたくなかった開発環境だったのだが･･･
しかし作りたいのは、スペックの低さマトモじゃない機器向けなんだけどね(´ﾍ｀；)
2009/02/28
VBScriptで日付処理 そにょ３･･･
日付の処理だけ、某Format関数を模してみた。･･･あくまで暫定版。
限られた指定方法で、要素を並べ替えられる程度しか機能しないが、
新たに曜日を要素として取得可能になっている。
書式)
iDTw({tDate}, {tNow}, {sFormat}, {dSplitter}, {tSplitter}, {dtSeparator}, Control) |
{sFormat}に対し、半角英大文字の、"YMD" で 日付部分を
"W"で曜日を "HN" で 時分を "S" で秒を、それぞれ任意の位置に配置できます。
★オマケ
"S HNS YMD [W] HN" |
曜日取得処理 GetWeekDay
装飾も含めて好きなように曜日文字列を取得したいが為だけに作成したモノ。
単なる曜日取得と異なり、逆引き検索や対応データへの変換など、
パラメータの適用次第で応用の幅を広げられるようになっている。
また、iDTw を使う場合、変数 strWeekday をPublicで宣言し、
この関数(の結果)を事前に代入しておくコトが必須となる。
なんだか、海外のライブラリ使ってるみたいで使いデ悪くて、お蔵入りさせてたブツではあるがw
書式)
GetWeekday(YMD, wFormat, WeekdaysString, nDepth) |
lArray や inArrays は、これらの為に用意したモノとも云える･･･
'***** ↓↓↓ScriptTitle↓↓↓ ********************************************************* |
更に自由度の高い書式指定機能付スクリプトを作成するので、この分も要らなくなったりするww
似たようなものばかりでアレなんだケド、色んなデータへのアプローチの仕方があるというコトで、
なにかしら参考になっていればいいなぁ･･･(´ﾍ｀；)
＜そのまま使える スクリプト 年月日 曜日 時分秒 文字列 配列変数 取得 Format Text FormatDateTime＞
VBScriptで多次元配列 そにょ２･･･
外部関数追加で、スプリット文字列に区切り文字 ~(チルダ)を不要にしてみた。
あと、バラバラに列挙してたスクリプトを、ファイルのままに張ってみたw
ただ、Tabが全部ツブれてしまうんだよね･･･
以下を、空のテキストファイルにコピペして、任意の名前に、拡張子.vbsをつければ動作します。
'***** ↓↓↓ScriptTitle↓↓↓ ********************************************************* |
lArrayでは、文字列を文字にバラす際、ADODBオブジェクトに文字列を書き込み、
それを先頭から１文字ずつ読み出して、変数へ配列を追加しつつ、値を代入している。
書式)
lArray (strLetters, rArray) |
書式)
inArrays(tSources, strLimitters, arReturn) |
登録:
投稿 (Atom)