TWSNMP便利ですね
これが無料で使えちゃうのが良いですね
使っていなかった小型PCと廃棄待ちのディスプレイを使って、
事務所の重要機器の死活監視を登録してみました
Windows Server 2016 が立ち上げ直後に再起動ループ
Windows Server 2016のシャットダウン時間が異常に長く困っていた
まだテスト中だった事もあり、Windows update後に「自動再起動する」にして、さっさとupdateを終わらせようと思ったが、立ち上げ直後に再起動が発生し何も操作できなくなってしまう ;><)
セーフモードでは立ち上がるが、Windows Updateの設定の場面は開かないため、戻すことができない状態になる
なんとか元の状態に戻すことができたので、記録しておきます
（ ローカルグループポリシーエディタで設定変更できることを知らなかっただけの話です。でも、焦りました）
◆回復方法 ・セーフモードで立ち上げる ・コマンドで「gpedit.msc」を入力し、ローカルグループポリシーエディタを立ち上げる ・「スケジュールされた自動更新のインストールで、ログオンしているユーザーがいる場合には自動的に再起動しない」を開き、 設定を「有効」にする ・通常モードでWindows Serverを立ち上げる
◆参考にしたサイト 助かりました 感謝感謝です
https://freesoft.tvbok.com/old-tips/windows/10/prevent-auto-reboot.html
Access VBA でクリップボードに書き出す
dataobject の putinclipboard を使ってのクリップボードへの書き出しは、半角文字だけなら問題なんですが、
漢字を含むと失敗するようです
回避方法をネットで探して試してみたので、メモしておきます
■cmdを使って書き出す方法
Private Sub コマンド18_Click()
Dim s, cmd As String
s = "おはよう"
cmd = "cmd /c ""echo " & s & "| clip"""
CreateObject("WScript.Shell").Run cmd, 0
End Sub
■テキストボックスのcopyを使って書き出す方法
Private Sub コマンド17_Click()
Dim s As String
s = "おはよう"
With CreateObject("forms.TextBox.1")
.MultiLine = True
.Text = s
.SelStart = 0
.SelLength = .TextLength
.Copy
End With
End Sub
Zhiyunのsmooth-Q 水平にならない時の緊急対処法
電源入れて、さあ撮るぞと構えるとスマホが水平になっていない場合がある
そんな時、のんびりキャブレーションなんてやってる暇がない
で、対処法
１）フル（フォロー）モードにする ２）ジョイスティックを左右に動かすとスマホの傾きを変え、見た目で水平をとる
これだけ！
Zhiyun Crane V2 でも試しましたが、同じように対応できました。
Zhiyun Crane V2 のアームの固定方法
Zhiyun Crane V2を使い始めて困っていたことだが．．．
Smooth-Qみたいに、「取り出してスマホをセット＆調整して、さあ撮影！」みたいに手軽に使えない
外出先で使おうとしても、平らなところを探してカメラ取付＆調整するのがめんどくさい
どうにかならないかと考えた結果がこれ！
Crane V2の問題はカメラ取付の際に、アームがくるくると回ることで、これをマジックテープで２か所固定すると、なかなかいい感じで、立ったままでもカメラ取付て調整ができるようになった
＜調整のやりかた＞
・２か所ともマジックテープで固定した状態で、カメラをセットする
立ったままでもアームが回転しないので容易にセットできる
・上部の１か所目のマジックテープをリリース
・調整する４か所の内、２か所を調整
・下部のマジックテープを外す
・残りの２か所の調整
・外したマジックテープは、邪魔にならないように丸める
カメラをセットし電源オフ状態でテーブルなどに置きたい時がある
マジックテープで止めておけば、意図しないでアームが回転しカメラをテーブルにぶつけるなんてこともなくなった
運搬時はマジックテープで止めてキルティングポーチに入れ、リュックなどに入れている
付属のケースは嵩張るので使っていない
耳コピ補助スコア
歌のメロディや、ギターソロを耳コピしていると、情けないけど、覚えたところをドンドン忘れてしまう
譜面をその場で作成できるといいのだけれど、そんなスキルはないので、自分でもできる簡単な記録方法がないか考えてみた。
最初は紙とペンで試行錯誤したが、パソコンのExcelに入力する方法にたどり着いた
出来たのが、これ！ 名付けて「耳コピ補助スコア」
◆概要 ・ギターソロの耳コピ用の補助スコア ・１セルで１拍、１行で１小節を表す ・このスコアを見ながら、直近で聞いたメロディを、頭ン中で再現できることを目標にしている なので、このスコアだけではメロディは再現できない 和音なんて、まったくダメ
◆記号の意味 x ４分音符１つ xx ８分音符２つ xxx ３連符 xxxx １６分音符４つ xxxxx ５連符 - 前の音を伸ばす x- xxx- * 休符 x* xxx* ＜x＞ アクセント (xxxx) １拍に収まらない場合 アレンジした場合など 備考に説明を記入する 数値 １拍内での音の高さの識別 又は、アクセント間で音の高さを識別 音の高さが聞き取れてない場合はxを記入
※ちなみに手書きバージョン
Excelに直接入力したほうが、全然楽です
BF-01Dを格安SIM（IIJmio）を使って RTX1100でVPN接続
これまでドコモBF-01B、BF-01DとヤマハRTX1000、RTX1100を使って本社・拠点間でVPN接続をしてきた
しかし、ドコモは通信料が高い為、格安SIM（IIJmio）を試してみることにした
■設定変更せずSIMのみIIJmio SIMに交換してみた結果
・BF-01DにIIJmioのSIMをセット
・APNをIIJmioに変更
結果：トンネル自体は接続状態になるが、pingが通らない状態となった
■IIJmioのVPN接続について調べてみた
・プロトコルやアプリによる制限は設けていない。
・端末にはプライベートIPアドレスが割り当てられるため、接続できない可能性がある。
■設定変更して試してみた
結果：接続可能
但し、下記の制約がある
・RTX1000は使用不可 （nat-traversalが使用できないようだ）
・RTX1100はファームアップが必要（8.03.46以上）
・RTX1100の設定変更が必要（nat-traversal,keepalive,nat）
＜参考URL＞
ファームウェア配布ページ
http://www.rtpro.yamaha.co.jp/RT/firmware/index.php
IPsec NATトラバーサル 外部仕様書
http://www.rtpro.yamaha.co.jp/RT/docs/ipsec/nat-traversal.html
■RTX1100 変更ポイント
・最新のファームに更新する
・nat-traversal機能をオンにする （本社、拠点）
ipsec ike nat-traversal xx on
・キープアライブをオンにする （本社、拠点）
ipsec ike keepalive log xx on ipsec ike keepalive use xx auto heartbeat
・静的IPマスカレードでUDP 500,4500を指定する （本社）
nat descriptor masquerade static 1 1 192.168.1.1 udp 500 nat descriptor masquerade static 1 2 192.168.1.1 udp 4500
※本社では鍵交換を受け付けるため、静的IPマスカレードを設定し、 外側からのパケットを常に通します。
UDPの500番はIKEを通すために必要で、 UDPの4500番もNATトラバーサルで発生するパケットを通すために必要です。
■設定
＜address構成＞
<========tunnel 26=========> 本社RTX1200 <=> BF-01d <=> RTX1100 <=> PC LAN2:xx.xx.xx.xx 192.168.0.1 LAN2:192.168.0.2 LAN1:192.168.1.1 LAN1:192.168.26.1 192.168.26.100(DHCP)
＜RTX1100 config＞
ip route default gateway 192.168.0.1
ip route 192.168.1.0/24 gateway tunnel 26 ← 192.168.1.0/24セグメントのパケットはトンネル26へ転送
ip filter source-route on
ip filter directed-broadcast on
ip lan1 address 192.168.26.1/24
ip lan2 address 192.168.0.2/24
tunnel select 26
ipsec tunnel 26
ipsec sa policy 26 26 esp aes-cbc sha-hmac
ipsec ike keepalive log 26 on
ipsec ike keepalive use 26 auto heartbeat
ipsec ike nat-traversal 26 on
ipsec ike local address 26 192.168.26.1 ←ローカルアドレス
ipsec ike local name 26 mnetsg26 key-id ←ローカル名
ipsec ike pre-shared-key 26 text ******** ←パスワード
ipsec ike remote address 26 ***.***.***.*** ←本社外部アドレス
ip tunnel tcp mss limit auto
tunnel enable 26
ipsec auto refresh on
ipsec ike retry 10 5
dhcp service server
dhcp scope 1 192.168.26.100-192.168.26.199/24 expire 10:00 maxexpire 10:00
dns server 210.130.1.1
dns private address spoof on
＜本社側rtx1200の設定（抜粋）＞
ip route 192.168.26.0/24 gateway tunnel 26 ← 192.168.26.0/24セグメントのパケットはトンネル26へ転送 tunnel select 26 ipsec tunnel 26 ipsec sa policy 26 26 esp aes-cbc sha-hmac ipsec ike keepalive log 26 on ipsec ike keepalive use 26 auto heartbeat ipsec ike nat-traversal 26 on ipsec ike local address 26 192.168.1.1 ←ローカルアドレス ipsec ike pre-shared-key 26 text ******** ←パスワード ipsec ike remote address 26 any ← 接続するアドレス anyはどのアドレスもOK ipsec ike remote name 26 mnetsg26 ← リモート名 ip tunnel tcp mss limit auto tunnel enable 26 nat descriptor masquerade static 1 1 192.168.1.1 udp 500 nat descriptor masquerade static 1 2 192.168.1.1 udp 4500
＜経路情報の設定画面のスクリーンショット＞
数ある通信カードのなかで、BF-01B,BF-01Dは、この経路情報を登録できることが
大きな特徴だと思います。
この機能があるから、BF-01B,BF-01Dの配下にRTX1100等のルーターを接続できます。
で、設定内容ですが．．．
宛先アドレスにRTX1100 LAN1のセグメントのアドレスを指定し、（192.168.28.0 / 255.255.255.0）
ゲートウェイにRTX1100 LAN2のアドレスを指定します。(192.168.0.2)
こうすることにより、192.168.28.* 宛のパケットは, 192.168.0.2 に転送されるようになり、
BF-01BはRTX1100と通信を始めてくれます。
＊前の記事ではRTX1100 LAN1のアドレスが192.168.26.0になっていますが、
スクリーンショットの192.168.28.0と異なります。
これは、たまたま手元にあったBF-01Bが、192.168.28.0用だったためで、
192.168.26.0と読み替えてください。
MacのキーボードをWindows10で使う！ ＜漢字変換のオンオフ方法＞
Macのキーボード（USBケーブル有）をWindows PCで使おうとした場合に困るのが、「漢字変換のオンオフ」！
「かな」キーでオンオフするのが理想で、各種のフリーソフトを試すが、自分の環境ではＮＧであった。
ところが、何気に「caps」キーを触ったら漢字変換のオンオフするではないか．．． 知らなかった
◆まとめ
漢字変換オンオフ ： capsキー caps ： shift ＋ caps
Vegas pro 13でMOVファイルが読み取れない
たまに、表題の状況が発生する。困ったものだ。
iPhoneで撮影したビデオを、Vegasで使う際に遭遇したことを、まとめときます。
◆Quicktime for Windows のインストールが必要
◆Windows PCで、iPhoneの4GB以上のMOVファイルをコピー出来ない
対応方法
１）iCloud経由でWindows PCに取り込む
２）onedrive経由でWindows PCに取り込む
３）MacbookにiPhoneを接続し、「写真」アプリで取り込みし、
「未編集のオリジナルを書き出す」でUSBメモリに書き出して
Windows PCに取り込む
※１）２）はiPhoneからWifi経由でデータを送るので遅い
３）usbケーブルで接続するので早い
◆VegasでMOVファイルが開けないことがある。比較的6GB以上の場合に発生する場合が多いが、原因がわからない
対応方法
MacbookにiPhoneを接続し、「写真」アプリで取り込みし、
「ビデオを書き出す」でM4Vファイルの変換してUSBメモリに書き出して
Windows PCに取り込む
■結論
せっかく時間をかけてMOVファイルをWindows PCに取り込んでも、ファイルを開けない場合があるので、最近は必ず、M4Vファイルに変換してWindows PCに取り込むようにしている
2017/12/15 結局
下記の事情もあり、有料ソフトを購入することにした
マルチカメラでの撮影後、編集開始までのクリティカルパスは、iPhoneになっていたため
安定したデータ取り込みを目指した。
・自宅のMacbookが死んでしまい、MAC環境がなくなる
・iPhone8 Plus にリプレースし、4k/60pでの撮影が増えた
＜購入物＞
・WinX MediaTrans 3680円
https://www.winxdvd.com/mediatrans/index-jp.htm?about-5.0
・WinX HD Video Converter Deluxe 2800円 リピータ価格
https://www.winxdvd.com/hd-video-converter-deluxe/index-jp.htm
結局、６千円くらいの出費になってしまったが、Ｗｉｎｄｏｗｓパソコンだけで作業ができて、確実に読み込みできるようになったのは有難い
メディアなしドライブのドライブ文字の変更（diskpartコマンド）
メディアが取り付けられているドライブのドライブ文字（ドライブレター）は、「ディスクの管理」から変更することができる。
しかし、メディアが取り付けられていない場合は、対象が表示されず、ドライブ文字の変更はできない。
外付ディスクを取り付けて、特定のドライブ文字にしたかったが、どこかのドライブに既に割り当てられているようで、
「ディスクの管理」からは確認できず困っていた。
なんと、コマンドラインツール（DiskPartコマンド）で、確認や変更が出来ることがわかったので、メモしておきます
◆環境 Windows10
◆起動
C:\Users\user>diskpart
Microsoft DiskPart バージョン 10.0.15063.0
Copyright (C) Microsoft Corporation.
コンピューター: USER-PC
◆ドライブ文字の割り当て確認
DISKPART> list volume Volume ### Ltr Label Fs Type Size Status Info ---------- --- ----------- ---- ---------- ------- --------- -------- Volume 0 E DVD-ROM 0 B メディアなし Volume 1 C OS SSD NTFS Partition 111 GB 正常 システム Volume 2 NTFS Partition 493 MB 正常 非表示 Volume 3 D ボリューム NTFS Partition 698 GB 正常 Volume 4 H disk03_3.0 NTFS Partition 2794 GB 正常 Volume 5 V リムーバブル 0 B メディアなし Volume 6 F リムーバブル 0 B メディアなし Volume 7 I リムーバブル 0 B メディアなし Volume 8 J リムーバブル 0 B メディアなし Volume 9 G disk02_2.0 NTFS Partition 1863 GB 正常 Volume 10 L disk01_1.5 NTFS Partition 1397 GB 正常
あまり意味はないのだが、上記のＬドライブをＦドライブにしたかったんだよね
ハードディスクのドライブ文字は、連続した文字にしてないと、なにか落ち着かなくて．．．
割り当てたかったＦドライブが、メディアのないリムーバルに割り当てられていることが確認できた。
では、さっそくドライブ文字の変更を行います。
volume6 F -> W
volume10 L -> F
◆volume6の変更
DISKPART> select volume 6 ボリューム 6 が選択されました。 DISKPART> assign letter=w DiskPart はドライブ文字またはマウント ポイントを正常に割り当てました。
◆volume10の変更
DISKPART> select volume 10 ボリューム 10 が選択されました。 DISKPART> assign letter=f DiskPart はドライブ文字またはマウント ポイントを正常に割り当てました。
◆ドライブ文字の割り当て確認
DISKPART> list volume
Volume ### Ltr Label Fs Type Size Status Info
---------- --- ----------- ---- ---------- ------- --------- --------
Volume 0 E DVD-ROM 0 B メディアなし
Volume 1 C OS SSD NTFS Partition 111 GB 正常 システム
Volume 2 NTFS Partition 493 MB 正常 非表示
Volume 3 D ボリューム NTFS Partition 698 GB 正常
Volume 4 H disk03_3.0 NTFS Partition 2794 GB 正常
Volume 5 V リムーバブル 0 B メディアなし
Volume 6 W リムーバブル 0 B メディアなし
Volume 7 I リムーバブル 0 B メディアなし
Volume 8 J リムーバブル 0 B メディアなし
Volume 9 G disk02_2.0 NTFS Partition 1863 GB 正常
* Volume 10 F disk01_1.5 NTFS Partition 1397 GB 正常
おしまい！！
s3sync でエラー
２件ほどエラーが出たが何とか回避できたので、メモしておきます
１）s3からDownloadする際に下記の「retries left, sleeping for 30 seconds」メッセージが出力されて
downloadが終了しない状態になった
◆メッセージ
ruby c:\s3sync\s3sync.r --delete <送り側> <受け側> EOF error: end of file reached 99 retries left, sleeping for 30 seconds EOF error: end of file reached 98 retries left, sleeping for 30 seconds
◆スクリプトの修正
変更前 ruby c:\s3sync\s3sync.rb -r --delete <送り側> <受け側> 変更後 ruby c:\s3sync\s3sync.rb -r -d --no-md5 --delete <送り側> <受け側> -d ：デバッグログをコンソールに表示します --no-md5 : MD5ハッシュを確認せず、TimeStamp のみを比較して同期を実施します。
原因はわからなかったが、TimeStamp のみの比較で同期させる方式に変更して何とか回避できた
２）s3からダウンロードする際に下記の「Permission denied」のメッセージがでて、
処理が途中で終了してしまう
◆メッセージ
c:\s3sync\s3sync.rb:645:in 'unlink': Permission denied - <受け側> (Error::EACCESS) from c:/s3sync/s3sync.rb:645:in 'updateFrom'
◆対応
受取側のフォルダー内のファイルを全て削除し、再度downloadし回復
EC2-API-Tools ：インスタンス起動停止コマンドラインの修正
トラブル時に使用するEC2のサーバーがあり、毎月、自動で１日だけテストで立ち上げてたが、どうも昨年あたりから自動で立ち上がっていないようだ（笑
定期実行しているバッチファイルを調べてみると～ 以下のエラーが出てた～
Private key authentication has been deprecated from the CLI. Please refer to the following documentation for more details: http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-soap-api.html
それらしき情報が下記のサイトにあり、2016年6月30日以降は動かなくなったようだ
AWSからSOAPのサポートが終了する旨のメールが来た時にしたこと
どうも、バッチファイルを修正する必要があり、下記のサイトを参考に修正したのでメモしておきます
http://blog.serverworks.co.jp/tech/2013/03/29/accesskeyid_secretkey_on_ec2-api-tools/
http://hacknote.jp/archives/19701/
◆インスタンスの情報を取得するバッチファイル
＜変更前＞ set JAVA_HOME=C:\"Program Files"\Java\jre6 set EC2_HOME=C:\tool\ec2-api-tools set PATH=%PATH%;%EC2_HOME%\bin set EC2_PRIVATE_KEY=c:\tool\key\pk-xxxxxxxxxxxxxxxxxxxx.pem set EC2_CERT=c:\tool\key\cert-xxxxxxxxxxxxxxxxxxxxxxxxx.pem set EC2_URL=https://ap-northeast-1.ec2.amazonaws.com ec2-describe-instances i-xxxxxxxx >aws_status.txt ＜変更後＞ set JAVA_HOME=C:\"Program Files"\Java\jre6 set EC2_HOME=C:\tool\ec2-api-tools set PATH=%PATH%;%EC2_HOME%\bin rem EC2_PRIVATE_KEY=c:\tool\key\pk-xxxxxxxxxxxxxxxxxxxx.pem rem set EC2_CERT=c:\tool\key\cert-xxxxxxxxxxxxxxxxxxxxx.pem set AWS_ACCESS_KEY=yyyyyyyyyyyyyyyyyyyyyyyyy set AWS_SECRET_KEY=zzzzzzzzzzzzzzzzzzzzzzzzz set EC2_URL=https://ap-northeast-1.ec2.amazonaws.com ec2-describe-instances i-xxxxxxxx >aws_status.txt
ASPによる掲示板作成
ASPを使って簡単な掲示板を作成してみたのでメモしておきます。
記事の作成、削除機能はありません。記事はTXT,PDF,html形式で作成しておき、記事一覧から記事を参照できるだけのものです。
◆環境
・LANDISK(Windows Server)でWebDAVとASPを有効にする
VBSによるASPが実行できる環境ならば実行可能です
◆掲示板の仕様
・記事をTXT,PDF,html形式で作成し、list.aspと同一フォルダに保存する
・記事を作成する際は、ファイル名の先頭に日付をセットする （yyyymmdd形式）
・記事一覧を表示する際に、ファイルの拡張子は非表示する
・本年、昨年、一昨年、全てのリンクから対象記事を抽出できる
・検索機能で全記事対象にファイル名を検索出来る
・検索する際に英数字は半角・全角を意識することなくヒットさせる
全角を半角に変換する処理は下記のサイトの物を利用させていただきました。
「VBScriptで半角全角変換を担当するクラスを作ってみた」より転載
http://blog.livedoor.jp/midorityo/archives/51064633.html
◆掲示板のイメージ
◆ファイルの格納イメージ
◆起動方法
http://(サイト名フォルダ名)/list.asp
◆掲示板ASPソース
list.asp
<%@LANGUAGE=VBScript%> <html> <head> <title>お知らせ掲示板</title> <meta http-equiv="content-type" content="text/html;charset=shift_jis"> <style> body { margin:20px;} a {text-decoration: none } h2 a:link {color: deeppink } h2 a:visited {color: deeppink } h2 a:hover {color: #00008b; background-color:#ffffff } h2 a:active {color: deeppink } h2 a.nasi:hover {background-color:transparent } a:link {color: #ff0000 } a:visited {color: #00008b } a:hover {color: #4169e1;background-color:#7fffd4 } a:active {color: #4169e1 } a.nasi:hover {background-color:transparent } div.boxA { /* 親ボックス */ width:1000px; height: 30px; position: absolute; } div.box1 { /* ボックス1 */ width: 500px; height: 20px; position: absolute; top: -2px; left: 5px; } div.box2 { /* ボックス2 */ width: 500px; height: 20px; position: absolute; top: -5px; left: 300px; } div.box3 { /* ボックス3 */ width: 1000px; } </style> </head> <body> <h2 style="color: deeppink;"><a href=list.asp>■お知らせ掲示板</a></h2> <div class="boxA"> <div class="box1"> <a href=list.asp>本年</a> <a href="list.asp?ID=1">昨年</a> <a href="list.asp?ID=2">一昨年</a> <a href="list.asp?ID=3">全て</a> </div> <div class="box2"> <FORM ACTION="list.asp" METHOD="POST"> <input type="text" name="keyword" value="<% Response.Write Request.Form("keyword") %>" size="30"> <input type="submit" value="検索"> </form> </div> </div> <br> <hr size="1" color="lightsteelblue" noshade"></br> <div class="box3"> <% myInclude "CharWideNarrow.vbs" Set objFS = Server.CreateObject("Scripting.FileSystemObject") strFDIRNAME = Server.MapPath(".") Set objDIR = objFS.GetFolder(strFDIRNAME) dim array_file(10000), i, j i=0 For Each objFILE In objDIR.Files strFNAME = objFILE.Name array_file(i) = strFNAME i = i + 1 Next dim yy Select Case Request.QueryString("ID") Case "" yy = left(date(),4) Case "1" yy = left(date(),4) - 1 Case "2" yy = left(date(),4) - 2 Case "3" yy = "" End Select if Request.Form("keyword")<>"" then yy = "" End if dim c set c = New CharWideNarrow dim cnt cnt = 0 For j=i to 0 step-1 strFNAME = array_file(j) if yy = "" then If Right(strFNAME, 4) = ".htm" or Right(strFNAME, 4) = ".txt" or Right(strFNAME, 4) = ".pdf"Then if Request.Form("keyword")="" then Response.Write "<a href='" & strFNAME & "' target=blank><b>" Response.Write Replace(Replace(Replace(strFNAME,".htm",""),".txt",""),".pdf","") & "</b></a></br></br>" & vbCRLF cnt=cnt+1 else '検索の際に、小文字及び半角に変換してから判定。 半角に変換する処理は標準では無い為、下記のURLから転載した ' http://blog.livedoor.jp/midorityo/archives/51064633.html if InStr(c.ToNarrowAll(LCase(strFNAME)),c.ToNarrowAll(LCase(Request.Form("keyword"))))<>0 then Response.Write "<a href='" & strFNAME & "' target=blank><b>" Response.Write Replace(Replace(Replace(strFNAME,".htm",""),".txt",""),".pdf","") & "</b></a></br></br>" & vbCRLF cnt=cnt+1 End if End if End If else if left(strFNAME, 4) = yy & "" then If Right(strFNAME, 4) = ".htm" or Right(strFNAME, 4) = ".txt" or Right(strFNAME, 4) = ".pdf"Then Response.Write "<a href='" & strFNAME & "' target=blank><b>" Response.Write Replace(Replace(Replace(strFNAME,".htm",""),".txt",""),".pdf","") & "</b></a></br></br>" & vbCRLF cnt=cnt+1 End If End if End if Next Response.Write "表示 : " & cnt & " 件" %> </div> </body> </html> <% Sub myInclude(ByVal strFile) Dim objFSO , objStream , strDir Set objFSO = Server.CreateObject("Scripting.FileSystemObject") strDir = Server.MapPath(".") Set objStream = objFSO.OpenTextFile(strDir & "\" & strFile, 1) ExecuteGlobal objStream.ReadAll() objStream.Close Set objStream = Nothing Set objFSO = Nothing End Sub %>
CharWideNarrow.vbs
省略 （ファイルを見てね）
◆ファイル
Excel 文字列の分割（u_split）
文字列を区切り文字で分割する場合、VBAならsplit関数があるので良いが、
セル上で使用できる関数が見当たらない。
で、以前作ったものがあったのでメモしておきます。
こんな感じで、区切り文字と何番目の項目を取得するか指定して利用します。
以下のソースを標準モジュールとして登録して利用します。
文字列の分割以外でも汎用的に使えそうな関数をちょっぴり載せておきます
'================================================================================ '区切り文字列から指定の項目番号の文字列を求める 2013/11/05 t.ohishi 'str1：区切り文字を含む文字列, str2：区切り文字, str3：項目数 '================================================================================ Function u_split(str1 As String, str2 As String, str3 As Long) Dim x x = Split(str1, str2) u_split = "" If (str3 > 0) And (str3 <= UBound(x) + 1) Then u_split = x(str3 - 1) End If End Function '================================================================================ '区切り文字列の先頭から指定の項目数までの文字列を求める 2013/11/05 t.ohishi 'str1：区切り文字を含む文字列, str2：区切り文字, str3：項目数 '================================================================================ Function u_split2(str1 As String, str2 As String, str3 As Long) Dim x If Right(str1, 1) = str2 Then str1 = Left(str1, Len(str1) - 1) End If x = Split(str1, str2) u_split2 = "" If str3 > 0 Then For i = 0 To str3 - 1 If i <= UBound(x) Then u_split2 = u_split2 & x(i) & str2 End If Next If Right(u_split2, 1) = str2 Then u_split2 = Left(u_split2, Len(u_split2) - 1) End If End If End Function '================================================================================ '上位１０セルから最初に見つかった空白以外の文字を求める 2013/11/05 t.ohishi 'str1:上位の最初のセルを指定する '================================================================================ Function u_up10(R1 As Range) Dim x For i = 0 To 9 x = R1.Offset(i * -1, 0).Value If (x <> "") Or (R1.Offset(i * -1, 0).Row = 1) Then Exit For End If x = "" Next u_up10 = x End Function '================================================================================ '下位１０セルから最初に見つかった空白以外の文字を求める 'str1:下位の最初のセルを指定する '================================================================================ Function u_dw10(R1 As Range) Dim x For i = 0 To 9 x = R1.Offset(i, 0).Value If (x <> "") Or (R1.Offset(i, 0).Row = 65536) Then Exit For End If Next u_dw10 = x End Function '================================================================================ 'データ件数カウント（100行の空白で終了とする） 'R1:データセルの先頭を指定する '================================================================================ Function u_count(R1 As Range) Dim cnt_space As Long, i As Long, j As Long cnt_space = 0 i = 0 Do Until cnt_space >= 100 If R1.Offset(i, 0).Value <> "" Then cnt_space = 0 Else cnt_space = cnt_space + 1 End If i = i + 1 Loop u_count = i - cnt_space End Function
不調なハードディスクの再利用
HDAT2、便利です。
事務所に不調で交換したハードディスクがいくつかあるんですが、
再利用するにも、一度、エラーが出たハードディスクは使いづらかった。
chkdsk /r でチェックして不良セクタを認識させても、もう一度FORMATしてしまうと、
不良セクタの情報はクリアされてしまうので困っていた。
HDAT2で不良セクタを代替処理（エラー箇所を立ち入り禁止）してしまえば、
FORMATに関係なく安心して再利用できるようになります。
参考：
http://torapo.com/pc/storage/hdat2.htm
◆USBメモリからHDAT2を起動させる方法 ・rufus-2.12.exe をダウンロード ・HDAT2EXE_52.EXE をダウンロード ・rufus-2.12.exeにて、USBメモリの起動ディスクを作成する DOSはFreeDosが指定できる ・HDAT2EXE_52.EXEをUSBメモリにコピーし,hdat2.exeにリネームする ・autoexec.batにhdat2.exeを記入する これでUSBメモリから起動すれば、自動的にHDAT2が起動してくれる ◆Rufus 起動可能なISOイメージなどを使い、簡単な操作・設定でブータブルUSBメモリを作成できる http://www.vector.co.jp/magazine/softnews/160908/n1609081.html ◆HDAT2EXE_52.EXE ハードディスクの修復ツール http://www.hdat2.com/files/hdat2exe_52.exe http://www.hdat2.com/download.html
MICROLINE 5650SU-R で「エラー 0103」
5650SU-Rが「ｴﾗｰ 0103 ﾊﾟﾜｰOFF ｼﾃｸﾀﾞｻｲ」と表示し、印刷できなくなった。
用紙セットまでは問題ないのだが、データを印字開始するタイミングで「ウーンウンーン」と音がしたあとエラー表示をして停止してしまう状態
かなり古い機種で修理は無理そう。中古は５万円するし、後継機種も高額なため、簡単にはあきらめきれない。
◆対応
・リボンを新品に交換 ＞ NG
・本体の外側からのエアーダスターで清掃 ＞ NG
・分解してエアーダスターで清掃 ＞ 回復
◆分解方法
・右側の用仕送りノブを外す
・裏側の爪をドライバーで押さえて、カバーを外側に引っ張ると、意外と簡単にカバーが外れた
◆問題の箇所
・ヘッドを下げるための歯車が複数有るのだが、この歯車と歯車のかみ合わせのところに、
グリスのようなものが付いていたのだが、これをエアーダスターで吹き飛ばしてあげた
Vegas Pro 13 Suite購入！！
１年近くMovie Studio13を使っていたのだが、１本の動画を複数に分割する際に手間がかかりすぎて困っていた。
アドビのプレミアムを使いだし、複数のレンダリングを一括で実行できるようになったのだが、ひ弱な環境のせいもあるかもしれないが、どうも不安定でしっくりこない。
（プレミアムはいきなりハングアップしちゃうんですよね。Movie Studio13は100本以上レンダリングしてますが、一度もないのに…)
たまたま、ソースネクストのサイトを覗いたところ、Vegas Pro 13 Suiteが 2016/10/31 までの限定で 8,980円 で購入できるではないか．．．
さんざん悩んだ挙句、ポチっとしてしまった。
【一括レンダリングの方法】 自分の場合、複数のプロジェクトを一括レンダリングするのではなく、 １プロジェクト内の約20から30箇所を個別にレンダリングすることが多く、 その方法をメモしておきます。 ライブの映像を曲単位に動画ファイルにするイメージです。 ・前もって複数のレンダリングしたい箇所にマークを設定しておく ・それぞれの箇所でドラッグして範囲指定し、右クリックでリージョンを挿入する （編集中に曲ごとにリージョンを設定したほうが効率的ですね） ・ツール＞スクリプトの実行>Batch Renderを選択 ・出力フォーマットを選択 ・Render Regionsのオプションを選択する ・OK そうするとプロジェクトの保管フォルダに、勝手にファイル名を設定してくれて、個別の動画ファイルが書き出される リージョンが20個あった場合、20ファイルの動画ファイルが出来上がります。 あとは、ファイル名を修正して終わり。
これまでの、「選択>レンダリング」の繰り返し作業から解放されました。
積極的に複数の動画ファイルを作ることができます。 うれぴー(^^♪
追加）
VegasからMovie Studioのプロジェクトファイルを読めちゃうんですね。
たぶん、読めると思ってましたが、ほっとしました。
クライアントからの、プリンタサーバーのPrint Spoolerサービスの再起動
どうも最近、プリンターサーバーの調子が思わしくない。
突然、プリント停止すると状態が、まま発生している。
原因がわからないが、とりあえず”Print Spooler”サービスを再起動してやると復旧することはわかった。
ただ、Print Spoolerの再起動は、自分しかできないため、毎回、自分まで連絡が来て作業しているのだが、利用者側で再起動できればと思いスクリプトを書いたので、メモしておきます。
＜環境＞
・\\landisk : ファイルサーバー兼、プリンタサーバー ・\\winsvr001 : 踏み台サーバー。 管理者権限がないとリモートからサービスの再起動ができない。なので、踏み台となるサーバーを用意した。 踏み台サーバーの条件は、プリンターサーバーに管理者権限でアクセスできる。かつ、ファイル共有していない。 ってとこだと思います。たぶん... 私は、SQL Serverを置いてるサーバーを踏み台にしました。
＜しくみ＞
・踏台サーバーに再起動用のバッチファイルを置く ・次に、クライアントから踏み台サーバーのバッチファイルを起動してやる ・リモートのバッチファイルを起動するために、psexec を使用 ・リモートのサービス再起動は scコマンド を使用
■remote_print_spooler_restart.bat
pause ◆print spooler を再スタートします 中止の場合は[ctrl + c]を押してください。 psexec -u winsvr001\administrator -p <パスワード> \\winsvr001 C:\tool\spooler\print_spooler_restart_sc.bat
■print_spooler_restart_sc.bat
sc \\landisk stop Spooler sc \\landisk start Spooler
浜松ガーデンパーク NARU FES ライブ撮影
7/17 ちょっと大き目な野外ステージでライブ撮影してきました
パンしたときかなりブレが目立つため、後日ビデオ用の三脚（Manfrotto MVK500AM）を購入！
Boston – Amanda (Cover) by B-CLAPS
スタジオでのリハしている様子です
カメラは160度の広角で撮れる「CANON iVIS mini X」1台で撮ってます
音は、カメラで録った物をそのまま使ってるんですが、思ったより各楽器のバランスが良くて驚いてます
最近のコメント