アラフィフおやじログ

Conohaでサーバを立てようとしてUbuntuを導入したけど、セキュリティ的に甘々だったので セキュリティ設定を施した形のUbuntuの手順をまとめておこうと思って、まとめておく。 色々なサイトのつぎはぎだけど、まぁここまでしとけば大丈夫でしょう。 サーバ構築はHyper-V使ってやってます。昔みたいに物理サーバを調達しなくていいので やりやすくはなっていますな。 次はCentOSの手順をまとめておけばどっちでも対応できますな。 いずれはDockerFileに落とし込めればいいなぁと思いつつ。 ConohaでWebサイト立ち上げる際にはApacheとか入れないといけないのでその辺は また別途、考えるかな。 ●参考サイト 　 http://eco.senritu.net/ubuntu_security_settings/ 　 http://blog.livedoor.jp/oceanweb/archives/7507015.html 　 http://smdn.jp/softwares/ubuntu/initialconfig_trusty_desktop/ 　 http://netlog.jpn.org/r271-635/2009/03/linux_ubuntusysvrcinit.html 　 http://server-setting.info/ubuntu/first-setting-ubuntu-server.html 　 http://debianj.com/ubuntu/install/ntp 　 http://www.server-world.info/query?os=Ubuntu_14.04&p=ntp 　 http://ufuso.jp/wp/?p=16457 　 http://kore1server.com/249/Ubuntu+12.04+LTS%E3%82%B5%E3%83%BC%E3%83%90%E3%83%BC%E3%82%92%E5%AE%89%E5%85%A8%E3%81%AB%E3%81%99%E3%82%8B 　 http://variedtastefinder.jpn.ph/server/1588 　 http://blog.jicoma...

弁理士関連で法律が年に1回変わるので学習ツールとか 作る際に、条文をダウンロードするのがなぁとおもっていたので その元ネタでサンプル作成してみたよ。 Googleをキーワード検索して一番上にあるやつの 緑タイトルを拾ってそこにアクセスしてページソースをダウンロードする というもの。エラー処理とかないので取扱いは慎重にした方が いいですよ。 で以下、ソース。まさかCITEタグとは思いもしませんでした。 後はダウンロードした後にEXCELに加工して取り込めば楽できるな。 skeywordを他の法律に変えれば別の法律も取得できます。 法令検索 の結果が一番に表示されるなら加工もしやすいかな・・・。 '// '// 特許法のページソースを取得する '// '// Proxy環境の場合はDOSプロンプトで実行 netsh winhttp import proxy source=ie Option Explicit Dim sURI Dim rgetHtml Dim oFilename Dim sKeyword '// メイン部分 sKeyword = "特許法" oFilename = "C:\temp\" + sKeyword +".txt" sURI = getURL(sKeyword) if sURI = False then MsgBox "notComplete" end if rgetHtml = getHTML(sURI,oFilename) if rgetHtml=True then MsgBox "Complete" end if '// Googleでキーワード検索1位のURL(下に緑で出てる▼のやつ)を取得する function getURL(sKeyword) Dim objIE getURL = False Dim rURL Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = False objIE.Na...