プログラム開発「備忘録」

psqgresqlいろいろ

Sat, 13 Sep 2014 11:48:17 +0900

db作成
<エンコーディング指定時>
createdb --encoding=EUC_JP --locale=ja_JP.EUC_JP --template=template0 mydb01

<ダンプ>
psql dbname > infile <ダンプリストア> psql dbname < infile

Postgres プロセスIDキャンセル

Tue, 09 Sep 2014 18:40:01 +0900

idleになっているプロセスを確認

postgres=# select * from pg_stat_activity;

idleになっているプロセスを開放する

クエリのキャンセル。プロセスIDは pg_stat_activity.procpid

SELECT pg_cancel_backend(プロセスID);

クエリの中止

SELECT pg_terminate_backend(プロセスID);

それでもダメならkillする

kill プロセスID

ACCESS2010 Ｒｕｎｔｉｍｅ版でセキュリティ警告なしにする

Fri, 01 Nov 2013 18:43:56 +0900

HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted Locations\Location(n) で追加ｎは現在の最大＋１にする

excelを右クリックで別ウインドウとして開く方法

Tue, 22 Oct 2013 10:43:15 +0900

・OpenWithNewWindow（名称はなんでもいい）の追加
　OpenWithNewWindowデータを「新しいウインドウで開く(&W)」にすれば右クリックで表示される
・下にcommandを追加

HKEY_CLASSES_ROOT\Excel.CSV\shell\OpenWithNewWindow\command
"C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE" "%1"

HKEY_CLASSES_ROOT\Excel.Sheet.12\shell は、ブック(xlsx)
HKEY_CLASSES_ROOT\Excel.Sheet.8\shell は、ブック(xls) 97-2003 ブック
HKEY_CLASSES_ROOT\Excel.CSV\shell は、csvファイル

Excel.SheetMacroEnabled.12 に追加するとマクロ有効ブック(xlsm)

複数検索・置換

Wed, 07 Aug 2013 19:03:12 +0900

複数ファイルから文字列を一括検索
find ./path/to/file -type f -print | xargs grep 'hoge'
これを行うとhogeを./path/to/fileから検索して、ターミナル上に表示してくれます。
複数ファイルから文字列を一括置換
find ./path/to/file -type f | xargs sed -i "s/hoge/hage/g"
これを行うとhogeを./path/to/fileから検索して全てhageに置換してくれます。
覚えておくと便利ですね。

ACCESS Clone Recordset作成方法

Wed, 15 Jun 2011 11:07:03 +0900

Function cloneRs(rsSrc)
　Dim strm
　
　Set cloneRs=CreateObject("ADODB.Recordset")

　If rsSrc.EOF Then Exit Function '-------------------> 終

　set strm = CreateObject("ADODB.Stream")

　　rsSrc.save strm
　　
　　cloneRs.open strm
　　
　　strm.close

End Function

windows2008 VPN

Tue, 22 Mar 2011 19:32:39 +0900

(WindowsServer2008)会社と自宅間で L2TP/IPSec VPNを構築してみた

MCP70-642の勉強中で出てきたリモートアクセス用のVPNを会社～自宅間でテスト構築してみることにしました。

VPNサーバは Windows Server 2008 で、NAPTによりインターネットにアクセス可能です。
ネットワーク図は下記のような感じです。

VPNサーバ側の設定
まずは Windows Server 2008 で役割の追加で｢ネットワークポリシーとアクセスサービス｣から｢リモートアクセスサービス｣をインストールします。

管理ツール｢ルーティングとリモートアクセス｣から、サーバを右クリックし｢ルーティングとリモートアクセスの構成と有効化｣を押下します。

これで｢ルーティングとリモートアクセスサーバーのセットアップウィザード｣が開始します。

●ネットワークカード(NIC)が2枚以上ある場合
構成は｢リモートアクセス(ダイヤルアップまたはVPN)｣にします。

｢リモートアクセス｣では｢VPN｣にチェック。
VPN接続で、ネット側のNICを選択します。その際、｢静的パケットフィルタをセットアップしてセキュリティを有効にする｣のチェックは外します。
(このチェックがついていると、VPN以外のパケットは通さなくなるため、LAN内からサーバへの通常アクセスもできなくなります。VPNサーバをルータ替わりで使うときに使うオプションだと思われます。このチェックはNICのプロパティの｢入力フィルタ｣、｢出力フィルタ｣に反映されます。)
IPアドレスの割り当てで｢自動｣にしとくとDHCPを使ってアドレスを割り当てることができ、｢指定したアドレス範囲｣にしとくと次の画面で払いだすIPを設定することができるようです。

●NICが1枚しかない場合
構成は｢カスタム構成｣→｢VPNアクセス｣にします。(｢リモートアクセス｣にしてもNICが1枚しかないとダメだと怒られます)

今回はNAT内部にリモートアクセスサーバを置いているので、特別なフィルタリングはしません。
なので、NICのプロパティで全ての通信を許可するようになっていることを確認します。(最初は｢静的パケットフィルタをセットアップしてセキュリティを有効にする｣のチェックを入れてせってしたため、フィルタが生成され通常通信できずにかなりハマりました。)

ルーティングとリモートアクセスサーバーの役割インストール後、｢リモートアクセスのログとポリシー｣を右クリックし｢NPSの起動｣を押下します。

すると｢ネットワークポリシーサーバー｣が起動するので、ここでリモートアクセスを許可するポリシーを作成していきます。

｢ネットワーク接続の方法｣には｢リモートアクセスサーバー｣を指定。

条件の選択で指定したWindowsグループのアカウントに許可を与えます。

続けて認証の方式(今回は MS-CHAPv2 のみ許可)や制約(セッション時間や時刻など)、暗号化のポリシーを決めていきます。

今回は L2TP/IPSec を用いるので、それ以外のVPNプロトコルは無効しておきます。
管理ツール｢ルーティングとリモートアクセス｣の｢ポート｣のプロパティから各VPNの構成でセッション数や有効無効が設定できます。

本来 IPSec では証明書を使ったコンピュータ認証をするのがセキュリティ的に望ましいのですが、今回はテスト接続ということで、キー文字列による暗号化をするように設定します。

L2TP/IPSecでは L2TP を IPSec でカプセル化しているため、IPSecで使うポートを開放する必要があります。
開放する必要があるのは
　UDP 500 (IKE:鍵交換で必要)
　IPプロトコル番号 50 (ESPプロトコル)
です。
しかし、IPSecには NAT や NAPT を介するとその際のプロトコルやポート変換を、IPSecが改ざんとみなすため、正常に通信ができません。
これを回避するための方法が NAT-T (NATトラバーサル)というもので、IPSec のパケットをさらにUDPのパケットでカプセル化するというものです。
使う UDP は 4500 ポートです。
Windows Server 2008ではもともとNAT-Tにも対応済みなので、サーバ側OSの設定で特にすることはありません。

ということで、ルータ側でポートフォワーディングするのは下記のような設定になります。
　UDP 500 → 192.168.1.10へ
　UDP 4500 → 192.168.1.10へ
(ルータでファイアウォールの設定してる場合は、UDP 500,4500 の外向き通信も許可しないといけません。またサーバのファイアウォールでも上記ポートを開放しておきます。)

各VPNプロトコルで必要なポートはTechNet:VPN およびファイアウォールで参照できます。
NAT-Tの概要はIPsec - NAT Traversalでわかりやすく解説されています。

ここからはクライアントの設定です。
●Vistaの場合
コンパネの｢ネットワークと共有センター｣のタスクから｢接続またはネットワークのセットアップ｣を押下します。
｢職場に接続します｣を選択します。

｢インターネット接続(VPN)を使用ます｣を選択します。

ここで、接続するルータのダイナミックDNS名を入れます。(固定IP持ってるならそっちのほうがいい)
そして、｢今は接続しない｣にチェックを入れます。

VPNサーバ上でVPN接続が許可されているグループに所属するユーザアカウントを入力します。

接続の使用準備ができました画面では、｢閉じる｣を押下します。

後は、暗号化や認証等の細かい設定が必要なので、コンパネの｢ネットワーク接続｣より、先ほど作成した接続のプロパティを表示します。
｢ネットワーク｣タブで、VPNの種類を｢L2TP IPsec VPN｣にします。

そして、｢IPsec 設定｣ボタンを押下し、｢認証に事前共有キー｣を使うをチェックし、サーバ側と同じキーを入力します。

これで、設定を保存し、ダイアログを閉じます。

●XP の場合(SP2以上必須)
コンパネの｢ネットワーク接続｣からネットワークタスクの｢新しい接続を作成する｣を押下します。
｢職場のネットワークへ接続する｣を選択します。

｢仮想プライベートネットワークに接続｣を選択します。

｢接続名｣は適当で、｢ホスト名またIPアドレス｣に接続するルータのダイナミックDNS名を入れます。(固定IP持ってるならそっちのほうがいい)

ウィザードが完了するとすぐに接続用ダイアログボックスが開くみたいなので、｢プロパティ｣を押下します。
このプロパティで IPSec の事前共有キーの設定をするんですが、Vistaと押下するボタンが違うので注意が必要です。
｢セキュリティ｣タブの｢IPSec 設定｣を押下します。

そしたら、事前共有キー入れるダイアログボックスが開くのキーを入力します。

｢ネットワーク｣タブで、VPNの種類を｢L2TP IPsec VPN｣にします。

これで、設定を保存し、ダイアログを閉じます。

これで済めば楽なんですが、例の NAPT 絡みでこれだけではつながりません。
クライアント側で NAT-T を使えるように設定してやらないといけません。初期設定では NAT-T つかない設定らしいのです。
これがどうやらレジストリ使うしか方法がなさそうなのです。。(しかもXPとVistaじゃ場所違うし、XPはどうやらSP2以上が必要)

追加するレジストリのキーと値は下記の通りです。


・キー
　HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\IPSec  (XPの場合)
　HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\PolicyAgent（Windows Vistaの場合）
・値の名前
　AssumeUDPEncapsulationContextOnSendRule
・値の種類
　REG_DWORD
・値
　0  (NAT-T無効。デフォルト)
　1  (片一方がNATの背後)
　2  (サーバ、クライアント共にNATの背後）

このクライアントのNAT-T対応は、MS:ネットワークアドレス変換 (NAT) の使用に関する問題や、第2回 VPNを使って安全・簡単なリモート接続　その２で詳しく解説されてます。

レジストリ設定後、クライアントPCを再起動します。

これでネットワーク接続で、作成したVPNを接続すればつながります。

自宅も会社も同じフレッツIPv6網なので、試しにその網を使ってIPv6通信してみました。
クライアント側は接続先をVPNサーバが持っている IPv6 アドレス(NTTから払いだされる 2001:xxx に変更するだけでOKです。
サーバ側も特に何もしなくてもOKでした。(ルータやFWでIPv6のUDPを許可する必要はありますが。。)
ルーティングとリモートアクセスのサーバのプロパティで｢IPv6リモートアクセスサーバー｣や｢IPv6転送を有効にする｣にチェックを入れないといけないのかと思ってましたが、なくても行けます。(チェック入れるとクライアントの PPP のアダプタに IPv6 アドレスが振られるようです。ただ、今回はVPNのトンネルさえIPv6でつなげれば、中はIPv4でもかまわないのでチェックなしにしてます)

ちなみに、TinyVPNとL2TP/IPsecとで会社～自宅間のVPNのベンチ結果です。
TinyVPN 1.3MB/s
L2TP/IPSec 2.4MB/s

追記：
VPNサーバとDNSサーバ同じ場合、問題が生じるようです。
詳しくは(WindowsServer2008)会社と自宅間で L2TP/IPSec VPNを構築してみた (その2)を参照。

http://jehupc.exblog.jp/10537558/

論鶴羽山

Sun, 26 Dec 2010 22:21:35 +0900

淡路島の最高峰に行ってきました。

ほぼ舗装路を走って、もうすぐ諭鶴羽神社という前で海が見え始め眼下に沼島が
いつもは海岸沿いを走って見ている島が今日は下に

大鳴門橋

諭鶴羽山頂で

展望抜群

長浜～

Wed, 25 Aug 2010 15:00:07 +0900

８月１５日８：３０長浜スタート！！

前日までは、いつもの自転車仲間と１泊２日で岐阜県の徳山ダム方面を走っていました
昨夜は長浜に泊まり、大阪までどこまで走れるか・・・・挑戦です

８：３０に長浜駅をスタートです
スタート地点が分かるようにJRで来たわけではないけど、近くのビジネスホテルからわざわざ駅前に来ました

琵琶湖を見ながら南下したいので、なるべく自転車道を走ろうとしました

これをずっと見ながら南へ

周りの自転車は北へ、一人だけ反対に走っているような感じです

途中で琵琶湖からどんどん離れて行きましたが、また勝手に琵琶湖沿いにもどったりしました

暑くて、暑くて、

琵琶湖大橋を過ぎて、しばらくすると蓮と風力発電
日陰はないけどちょっと景色を眺めてました

琵琶湖から瀬田川へ

ここから、たまに行く宇治へ向かいます

宇治到着

電車に乗ろうか・・・・
このまま走ろうか・・・・・
時間は３時半

久御山方面を通って
木津川の新しくなった流れ橋へ

走ることにしました

到着　６時半ぐらいでした

遠くに見えるのは、毛馬の水門です

長浜から大阪まで走れました
距離、１２０ｋｍ～１４０ｋｍぐらいです

涼しい季節に、今度はロードで走ってもいいかも

PHP.ini設定

Sun, 21 Feb 2010 00:48:49 +0900

register_globals = On
output_buffering = On <------ CSV出力で必要

Autorunを無効にする

Fri, 22 Jan 2010 23:01:46 +0900

1.スタートにある「ファイル名を指定して実行」をクリックする。
2.Gpedit.msc を入力しOKをクリックする。
3.左にあるメニューのコンピューター構成→管理用テンプレート→システムをクリックする。
4.右に表示される一覧から「自動再生機能をオフにする」をダブルクリックする。
5.「有効」をクリックし「すべてのドライブ」を選択しOKをクリックする。
6.再起動する。

VB6 Data Reportが使えない

Thu, 14 Jan 2010 10:45:11 +0900

Data Report デザイナがメニューに表示されない
対象製品
すべて展開する | すべて折りたたむ
概要この文書は Visual Basic にて Data Report デザイナを利用する際にメニューに表示されない現象について説明しています。...この文書は Visual Basic にて Data Report デザイナを利用する際にメニューに表示されない現象について説明しています。
先頭へ戻る
現象Visual Studio 6.0 をインストールし、Data Report デザイナを利用する際に、メニューに表示されないことがあります。また、その際にコン...Visual Studio 6.0 をインストールし、Data Report デザイナを利用する際に、メニューに表示されないことがあります。また、その際にコンポーネントメニューからデザイナの追加を試みると、選択肢に表示されないことがあります。
先頭へ戻る
原因この現象は Visual Studio 6.0 をインストールする前に、Office XP Developer がインストールされていると発生します。Offic...この現象は Visual Studio 6.0 をインストールする前に、Office XP Developer がインストールされていると発生します。Office Developer が Data Report デザイナをインストールする際にデザインタイムライセンスはセットアップされません。しかしながら、Visual Studio 6.0 がインストールされる際に、既に Data Report デザイナのファイルが存在するため Visual Studio 6.0 セットアップが、 Data Report デザイナのファイルのコピー、登録、ライセンスセットアップをスキップするために本現象は発生します。
先頭へ戻る
回避策以下の手順にて本現象の回避が可能です。 Regsvr32.exe を使用し、次のコンポーネントをレジストリに登録します。<windows\ststem32>\M...以下の手順にて本現象の回避が可能です。
Regsvr32.exe を使用し、次のコンポーネントをレジストリに登録します。
<windows\ststem32>\Msdbrptr.dll
<windows\ststem32>\Msstdfmt.dll
<windows\ststem32>\Msdatrep.ocx
<windows\ststem32>\Msbind.dll
<windows\ststem32>\msdbrpt.dll
<program files>\Common Files\Designers\Msderun.dll

<windows\ststem32> は、Windows XP、Windows 2000、Windows NT 4.0 の場合です。Windows 98 および Windows Me の場合は、<windows\system> となります。
次のサポート技術情報にある Vb6cli.exe をダウンロードします。
194751 (http://support.microsoft.com/kb/194751/JA/ ) FILE: VB6Cli.exe Fixes License Problems with Visual Basic 6.0
Vb6cli.exe を実行し、任意のフォルダに解凍します。
解凍した VBC6.exe を実行します。
先頭へ戻る

VB6でHelpが表示できない

Wed, 13 Jan 2010 15:06:26 +0900

[VS60] IDE からヘルプが起動しない
http://support.microsoft.com/kb/250334/ja

の
解決方法
regsvr32.exe を使用して vshelp.dll をレジストリに登録しなおします。例) regsvr32 "C:\Program Files\Com...regsvr32.exe を使用して vshelp.dll をレジストリに登録しなおします。

例)
regsvr32 "C:\Program Files\Common Files\Microsoft Shared\VS98\VSHELP.DLL"

で解決！！！

S11HTとＸ２００をBluetoothで接続

Mon, 11 Jan 2010 21:58:23 +0900

１．S11HTのBluetoothのダイアルアップにチェックを付ける
２．ＭＯＤＥＭの「詳細設定」
　　「+CGDCONT=1,"IP","emb.ne.jp」
　　ユーザー:em
　　パスワード:em
　　電話番号:*99#

T105でWake Up Lan設定

Sun, 13 Dec 2009 13:27:23 +0900

BIOS設定で、
Integrated Devices の
「Embedded Gb NIC 1」を「Enabled with PXE」に変更します。
すると、CTRL+S が起動時に選択可能になります。（以下を参照）

起動中にシステムの機能にアクセスする方法
http://supportapj.dell.com/support/edocs/systems/pet105/ja/HOM/HTML...

これでNICの設定変更画面に入れるので、WOLを設定変更することができます。