Pika's Home

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 Crane V2 でも試しましたが、同じように対応できました。

Zhiyun Crane V2を使い始めて困っていたことだが．．．

Smooth-Qみたいに、「取り出してスマホをセット＆調整して、さあ撮影！」みたいに手軽に使えない

外出先で使おうとしても、平らなところを探してカメラ取付＆調整するのがめんどくさい

どうにかならないかと考えた結果がこれ！

Crane V2の問題はカメラ取付の際に、アームがくるくると回ることで、これをマジックテープで２か所固定すると、なかなかいい感じで、立ったままでもカメラ取付て調整ができるようになった

＜調整のやりかた＞

・２か所ともマジックテープで固定した状態で、カメラをセットする
　立ったままでもアームが回転しないので容易にセットできる

・上部の１か所目のマジックテープをリリース

・調整する４か所の内、２か所を調整

・下部のマジックテープを外す

・残りの２か所の調整

・外したマジックテープは、邪魔にならないように丸める

カメラをセットし電源オフ状態でテーブルなどに置きたい時がある
マジックテープで止めておけば、意図しないでアームが回転しカメラをテーブルにぶつけるなんてこともなくなった

運搬時はマジックテープで止めてキルティングポーチに入れ、リュックなどに入れている
付属のケースは嵩張るので使っていない

歌のメロディや、ギターソロを耳コピしていると、情けないけど、覚えたところをドンドン忘れてしまう
譜面をその場で作成できるといいのだけれど、そんなスキルはないので、自分でもできる簡単な記録方法がないか考えてみた。

最初は紙とペンで試行錯誤したが、パソコンのExcelに入力する方法にたどり着いた

出来たのが、これ！　名付けて「耳コピ補助スコア」

◆概要
・ギターソロの耳コピ用の補助スコア
・１セルで１拍、１行で１小節を表す
・このスコアを見ながら、直近で聞いたメロディを、頭ン中で再現できることを目標にしている
　なので、このスコアだけではメロディは再現できない
　和音なんて、まったくダメ

◆記号の意味
　x ４分音符１つ
　xx ８分音符２つ
　xxx ３連符
　xxxx １６分音符４つ
　xxxxx ５連符

　- 前の音を伸ばす
　x-
　xxx-

　* 休符
　x*
　xxx*

　＜x＞ アクセント

　(xxxx) １拍に収まらない場合
　　　　　アレンジした場合など
　　　　　備考に説明を記入する

　数値 １拍内での音の高さの識別
　　　　又は、アクセント間で音の高さを識別
　　　　音の高さが聞き取れてない場合はxを記入

※ちなみに手書きバージョン
　Excelに直接入力したほうが、全然楽です

これまでドコモBF-01B、BF-01DとヤマハRTX1000、RTX1100を使って本社・拠点間でVPN接続をしてきた
しかし、ドコモは通信料が高い為、格安SIM（IIJmio）を試してみることにした

■設定変更せずSIMのみIIJmio SIMに交換してみた結果

・BF-01DにIIJmioのSIMをセット
・APNをIIJmioに変更

　結果：トンネル自体は接続状態になるが、pingが通らない状態となった

■IIJmioのVPN接続について調べてみた

・プロトコルやアプリによる制限は設けていない。
・端末にはプライベートIPアドレスが割り当てられるため、接続できない可能性がある。

https://help.iijmio.jp/app/answers/detail/a_id/2174/~/vpn%E6%8E%A5%E7%B6%9A%E3%81%AF%E5%88%A9%E7%94%A8%E3%81%A7%E3%81%8D%E3%81%BE%E3%81%99%E3%81%8B

■設定変更して試してみた

　結果：接続可能

但し、下記の制約がある
　・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のキーボード（USBケーブル有）をWindows PCで使おうとした場合に困るのが、「漢字変換のオンオフ」！

「かな」キーでオンオフするのが理想で、各種のフリーソフトを試すが、自分の環境ではＮＧであった。

ところが、何気に「caps」キーを触ったら漢字変換のオンオフするではないか．．．　　知らなかった

◆まとめ

　漢字変換オンオフ　：　capsキー

　caps　：　shift ＋ caps

たまに、表題の状況が発生する。困ったものだ。

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コマンド）で、確認や変更が出来ることがわかったので、メモしておきます

◆環境　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  正常

おしまい！！

２件ほどエラーが出たが何とか回避できたので、メモしておきます

１）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のサーバーがあり、毎月、自動で１日だけテストで立ち上げてたが、どうも昨年あたりから自動で立ち上がっていないようだ（笑

定期実行しているバッチファイルを調べてみると～　以下のエラーが出てた～

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を使って簡単な掲示板を作成してみたのでメモしておきます。
記事の作成、削除機能はありません。記事は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

 省略　（ファイルを見てね）

◆ファイル

newlist20170511.zip

文字列を区切り文字で分割する場合、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

5650SU-Rが「ｴﾗｰ 0103 ﾊﾟﾜｰOFF ｼﾃｸﾀﾞｻｲ」と表示し、印刷できなくなった。

用紙セットまでは問題ないのだが、データを印字開始するタイミングで「ウーンウンーン」と音がしたあとエラー表示をして停止してしまう状態

かなり古い機種で修理は無理そう。中古は５万円するし、後継機種も高額なため、簡単にはあきらめきれない。

◆対応

・リボンを新品に交換　＞　NG

・本体の外側からのエアーダスターで清掃　＞　NG

・分解してエアーダスターで清掃　＞　回復

◆分解方法

・右側の用仕送りノブを外す

・裏側の爪をドライバーで押さえて、カバーを外側に引っ張ると、意外と簡単にカバーが外れた

◆問題の箇所

・ヘッドを下げるための歯車が複数有るのだが、この歯車と歯車のかみ合わせのところに、
グリスのようなものが付いていたのだが、これをエアーダスターで吹き飛ばしてあげた

１年近く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の再起動は、自分しかできないため、毎回、自分まで連絡が来て作業しているのだが、利用者側で再起動できればと思いスクリプトを書いたので、メモしておきます。

＜環境＞

・\\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

7/17 ちょっと大き目な野外ステージでライブ撮影してきました
パンしたときかなりブレが目立つため、後日ビデオ用の三脚（Manfrotto MVK500AM）を購入！

スタジオでのリハしている様子です
カメラは160度の広角で撮れる「CANON iVIS mini X」1台で撮ってます
音は、カメラで録った物をそのまま使ってるんですが、思ったより各楽器のバランスが良くて驚いてます

地元、静岡ケントスで「Hiroya & Rock’n Band」,「Alee」のライブ撮影してきました。で、ようやく編集終了。

今回の会場は、ステージと客席が近すぎて、カメラの設置場所にずいぶんと悩みました
悩んだ甲斐あって、それほど違和感なく仕上がったかなと思っています

音は、Zoom H2nでも録ってみたんですがやっぱり「iVis mini x」を使っています。

ランサムウェアがニュースになっているが、幸いうちの事務所では被害は出てないです。
ただ、万一感染してしまった場合、ファイルサーバーのファイルまで影響がでるのは怖いので、ネットワークドライブを自動で切断するスクリプトを作成してみました。

ウイルスがファイルサーバーにの名前を知る方法は普通は無いはずですが、
ネットワークドライブ経由なら、サーバー名を知らなくてもアクセスできてしまうので、利用者には申し訳ないですが、強制的にネットワークドライブを切断することにした次第です。

下記のスクリプトは、どうしてもネットワークドライブを使用する必要のあるPCは除外して、ネッワークドライブを強制的に切断してくれます。
これを、PC立ち上げ時に自動で実行すれば、前日、ネットワークドライブを接続しても、翌日には切断されるようになります。

'********************************************************************
'* ネットワークドライブ切断
'********************************************************************
Option Explicit
On Error Resume Next

Dim objFSO      ' FileSystemObject
Dim wsh, computername, username

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set wsh = WScript.CreateObject("WScript.Shell")
computername = LCase(wsh.ExpandEnvironmentStrings("%COMPUTERNAME%"))
username = LCase(wsh.ExpandEnvironmentStrings("%username%"))

Dim objWshNetwork
Set objWshNetwork = WScript.CreateObject("WScript.Network")

Dim intChr,  strDrive

if  mid(computername,1,7) = "landisk" _
 or mid(computername,1,6) = "winsvr" then

else

  For intChr = Asc("A") To Asc("Z")
    strDrive = Chr(intChr) & ":"
    If objFSO.DriveExists(strDrive) Then
        If objFSO.GetDrive(strDrive).DriveType = 3 Then
            objWshNetwork.RemoveNetworkDrive strDrive,true,true
        End If
    End If
  Next
end if

Set objWshNetwork = Nothing
Set objFSO = Nothing
Set wsh = Nothing