スクリプト on qwerty.work

【FileMaker】PowerShell連携で画像回転とExif情報を削除

Wed, 05 Feb 2025 19:47:55 +0900

経緯

画像も簡単に入力ができる商品管理的なデータベースが欲しいという要望があり、ファイルメーカーでサンプル的に作りました。しかし、横向きの画像がどうしても縦になると依頼主はすでに100件以上登録済みで、そのほとんどが縦向きになっており困った様子。

原因はカメラにあるようで、何の機種かわかりませんが恐らくスマホで、横向きで撮影してもEXIF情報に登録された向きが90度横になるみたいで、Windows上の表示は横向きなのですが、ファイルメーカーのオブジェクトフィールにピクチャ挿入してみるとEXIF情報通り90度横に表示されてしまいます。

解決方法として「縮小専用」などのフリーソフトでリサイズするついでにEXIF情報を削除する方法が思いついたので、縮小専用でリサイズした画像を挿入したところ横向きで登録できました。EXIF情報を削除すれば解決できることが分かったのですが、依頼主にその方法を提案しましたが、100以上ある画像を変換して再登録するのは嫌だとのこと…。

他に思いつく解決策はファイルメーカー内で画像操作を行うプラグインを使うことですが、すぐに試すことができなかったり、高額だったり、バージョンが古くて対応していなかったりと現実味に欠けており、どれもピンときませんでした。

目についたプラグイン

プラグイン不要でPowerShellと連携できる方法があった

以下のサイトがヒントだったのですが、Windows上で動いているFileMakerであればスクリプトからPowerShellにコマンドを送信し、PowerShell上で画像の回転、EXIF情報の削除を行うことができることを発見しました。ちなみに、環境はWindows11とFileMaker12です。

https://fm-aid.com/bbs2/viewtopic.php?id=6946 https://fm-aid.com/bbs2/viewtopic.php?id=6946

ただ、上記サイトのまま使用してもPowerShellに値を渡せなかったり、スクリプト内で画像のエクスポート・インポートがうまくいきませんでした。これはそれぞれでパスの書き方が原因で、以下のように改造したらうまくいきました。

スクリプトとソース

スクリプトの流れとしては以下の通りです。

フィールド内の画像をフォルダに書き出す
書き出し先のファイルパスを変数に入れてPowerShellに渡す
PowerShellで該当のパスの画像を右90度回転＆EXIF削除して上書き保存
ファイルメーカーでピクチャを挿入

ファイルメーカーのスクリプト

変数を設定 [$pathExport; 値:Get(テンポラリパス) & 〇〇管理::写真01]
フィールド内容のエクスポート[〇〇管理::写真01];「$pathExport」]
変数を設定 [$pathWin; 値:Replace ( Substitute ( $path ; "/" ; "\\" ) ; 1 ; 1 ; "" )]
Eventを送信[「aevt」;「odoc」;Let([    $ps =     "powershell -windowstyle hidden -Command \"     [void][Reflection.Assembly]::LoadWithPartialName('System.Drawing');
    $PathWin = '{pathWin}';    $image = [System.Drawing.Image]::FromFile($pathWin);
    $image.RotateFlip('Rotate90FlipNone');    foreach ($propertyId in $image.PropertyIdList) {        $image.RemovePropertyItem($propertyId);    }    $image.Save($pathWin, System.Drawing.Imaging.ImageFormat]::Jpeg);    $image.Dispose();    \""]; Substitute($ps; "{pathWin}"; $pathWin))]
スクリプト一時停止/続行[間隔(秒:3)]
変数を設定 [$pathInport; 値:"imagewin:" & $pathExport]
フィールドへ移動 [〇〇管理::写真01]
ピクチャを挿入 [「$pathInport」]

「Eventを送信」の部分で設定する計算式の指定の内容

Let([
    $ps = 
    "powershell -windowstyle hidden -Command \" 
    [void][Reflection.Assembly]::LoadWithPartialName('System.Drawing');
    $PathWin = '{pathWin}';
    $image = [System.Drawing.Image]::FromFile($pathWin);

    $image.RotateFlip('Rotate90FlipNone');
    foreach ($propertyId in $image.PropertyIdList) {
        $image.RemovePropertyItem($propertyId);
    }
    $image.Save($pathWin, [System.Drawing.Imaging.ImageFormat]::Jpeg);
    $image.Dispose();
    \""
]; 
Substitute($ps; "{pathWin}"; $pathWin)
)

画像の回転に関するPowerShellのコマンドは以下のページが参考になりました。

https://qiita.com/miyamiya/items/d1a975fb6618d46eda0c https://qiita.com/miyamiya/items/d1a975fb6618d46eda0c

削除するEXIF情報について

上記のスクリプトでは画像ファイルのEXIF情報をすべて削除します。「向き（Orientation）」に関する情報のみをEXIFから削除することもできます。

EXIF情報を削除する部分

foreach ($propertyId in $image.PropertyIdList) {
    $image.RemovePropertyItem($propertyId);
}

EXIFから向きの情報のみを削除する場合

上記の部分を以下に置き換えればOKです。これでもうまくいきました。

$image.RemovePropertyItem(274)

EXIFに含まれるタグの種類は以下のページが参考になります。向きの情報である「Orientation」のタグ番号は16進数の0x0112であり、10進数に変換すると274になります。

https://www.vieas.com/exif23.html https://www.vieas.com/exif23.html

https://exiftool.org/TagNames/EXIF.html https://exiftool.org/TagNames/EXIF.html

まとめ

ファイルメーカーからPowerShellにコマンドを送信したり、変数の受け渡しができることを初めて知りました。また、PowerShellで画像の編集ができることも知りませんでした。解決不可能と思っていたことが無事に解決できて良かったです。

Windows10/8.1/7のプロダクトキーを確認するコマンドとその他の方法

Thu, 16 Jan 2020 20:13:32 +0900

コマンドプロンプトまたはPowerShellからWindowsのプロダクトキーを確認するコマンドのメモ。Windows10/8.1/7で共通です。

コマンドプロンプトの場合

コマンドプロンプトから確認する場合は以下のWMICコマンドを実行します。

wmic path SoftwareLicensingService get OA3xOriginalProductKey

PowerShellの場合

PowerShellから確認する場合は以下のコマンドを実行します。

powershell "(Get-WmiObject -query 'select * from SoftwareLicensingService').OA3xOriginalProductKey"

何も表示されない場合

上記のコマンドを実行してもプロダクトキーが表示されない場合があります。例えばWindows10で無償アップグレードでインストールされたPCなど、デジタルライセンスの場合、表示されないことがあります。

VBScriptで調べる場合

以下のコマンドをメモ帳などのテキストエディタに貼り付け、windowskeyfinder.vbsと適当に名前を付け保存し、ダブルクリックで実行するとレジストリに保存されている暗号化されたプロダクトキーをデコードして表示することができます。

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
 
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function

以下のページを参考にしています。

https://answers.microsoft.com/en-us/insider/forum/insider_wintp-insider_repair/how-to-find-all-windows-version-serial-key/a6d7e4eb-2adf-4e57-8ead-0bd85ec2758d https://answers.microsoft.com/en-us/insider/forum/insider_wintp-insider_repair/how-to-find-all-windows-version-serial-key/a6d7e4eb-2adf-4e57-8ead-0bd85ec2758d

フリーソフトで調べる方法

試していませんが、以下の二つのアプリケーションで調べることも可能のようです。

http://www.nirsoft.net/utils/product_cd_key_viewer.html#DownloadLinks http://www.nirsoft.net/utils/product_cd_key_viewer.html#DownloadLinks

http://www.rjlsoftware.com/software/utility/winproductkey/download.shtml http://www.rjlsoftware.com/software/utility/winproductkey/download.shtml

以下の参考ページによると、前者の「ProductKey」がいいみたいです。Windowsに限らず、Officeのプロダクトキーも調べることができそうです。

https://datarescue.yamafd.com/check_win_productkey/ https://datarescue.yamafd.com/check_win_productkey/

Windows Updateを実行するVBスクリプト「windowsupdate.vbs」

Mon, 11 Nov 2019 23:28:29 +0900

スクリプトからWindows Update

Windows10のアップデートに時間がかかりすぎるので、スクリプトでサクッとアップデートできないかな？と前回「WUA_SearchDownloadInstall.vbs」を使用した方法を見つけてメモしましたが、他にもみつけたのでメモ。これもすべてのWindowsで使えるようです。

https://yamanxworld.blogspot.com/2010/07/windows-scripting-windows-update.html https://yamanxworld.blogspot.com/2010/07/windows-scripting-windows-update.html

https://gist.github.com/the-takeo/71c863327399f8761828dcfe21e59da1 https://gist.github.com/the-takeo/71c863327399f8761828dcfe21e59da1

まずはソースを.vbsで保存

上記のページあるソースをメモ帳などに貼り付け、WindowsUpdate.vbsなど、適当に .vbs を付けて保存します。

コマンドプロンプトからcscriptで呼び出す

上記のWindowsUpdate.vbsを管理者として起動したコマンドプロンプトからcscriptで呼び出して実行します。

WindowsUpdate.vbsをCドライブ直下に保存していた場合

cscript "c:\WindowsUpdate.vbs"

これだけで実行できます。

重要な更新プログラムのみインストールする設定になっている

オプションの更新プログラムなどは除き、重要な更新プログラムのみをインストールする設定になっています。以下のコードはその部分になります。

updateSearcher.Search("IsInstalled=0 and Type='Software' and AutoSelectOnWebSites=1")

パラメーターの意味

  パラメーター
  意味




  IsInstalled=0
  インストールされていない更新プログラムを対象にする


  Type='Software'
  更新プログラムが対象


  AutoSelectOnWebSites=1
  重要な更新プログラムのみを適用

パラメーターの参考サイト

https://docs.microsoft.com/en-us/windows/win32/api/wuapi/nf-wuapi-iupdatesearcher-search https://docs.microsoft.com/en-us/windows/win32/api/wuapi/nf-wuapi-iupdatesearcher-search

その他類似のスクリプトの参考サイト

http://shinke1987.net/?p=276 http://shinke1987.net/?p=276

https://blog.osakana.net/archives/8270 https://blog.osakana.net/archives/8270

https://www.atmarkit.co.jp/ait/articles/1808/06/news012.html https://www.atmarkit.co.jp/ait/articles/1808/06/news012.html

http://qiita.com/Marukaziler/items/54bfbf054a372328be3f http://qiita.com/Marukaziler/items/54bfbf054a372328be3f

Windows Updateを実行するVBスクリプト「WUA_SearchDownloadInstall.vbs」

Mon, 11 Nov 2019 23:14:53 +0900

スクリプトからWindows Update

Windows10のアップデートに時間がかかりすぎるので、スクリプトでサクッとアップデートできないかな？と探してみたらありました。すべてのWindowsで使えるようです。

https://docs.microsoft.com/en-us/previous-versions/windows/desktop/aa387101%28v%3dvs.85%29 https://docs.microsoft.com/en-us/previous-versions/windows/desktop/aa387101%28v%3dvs.85%29

ソースを.vbsで保存

上記のページあるソースをメモ帳などに貼り付け、WUA_SearchDownloadInstall.vbsなど、適当に .vbs を付けて保存します。

そのソース（WUA_SearchDownloadInstall.vbs）

Set updateSession = CreateObject("Microsoft.Update.Session")
updateSession.ClientApplicationID = "MSDN Sample Script"

'Get update title to search for
WScript.Echo "Enter the title of the update: " & _
"(for example, Update for Windows Rights Management client 1.0)"
updateTitle = WScript.StdIn.Readline

WScript.Echo vbCRLF & "Searching for: " & updateTitle & "..."

Set updateSearcher = updateSession.CreateupdateSearcher()

'Search for all software updates, already installed and not installed
Set searchResult = _
updateSearcher.Search("Type='Software'")

Set updateToInstall = CreateObject("Microsoft.Update.UpdateColl")

updateIsApplicable = False

'Cycle through search results to look for the update title
For i = 0 To searchResult.Updates.Count-1
   Set update = searchResult.Updates.Item(i)
   If UCase(update.Title) = UCase(updateTitle) Then
   'Update in list of applicable updates 
   'Determine if it is already installed or not
      If update.IsInstalled = False Then
         WScript.Echo vbCRLF & _
         "Result: Update applicable, not installed."
         updateIsApplicable = True
         updateToInstall.Add(update)
      Else 
         'Update is installed so notify user and quit
         WScript.Echo vbCRLF & _
         "Result: Update applicable, already installed."
         updateIsApplicable = True
         WScript.Quit 
      End If
   End If 
Next

If updateIsApplicable = False Then
   WScript.Echo "Result: Update is not applicable to this machine."
   WScript.Quit
End If

WScript.Echo vbCRLF & "Would you like to install now? (Y/N)"
stdInput = WScript.StdIn.Readline
 
If (strInput = "N" or strInput = "n") Then 
   WScript.Quit
ElseIf  (stdInput = "Y" OR stdInput = "y") Then
   'Download update
   Set downloader = updateSession.CreateUpdateDownloader() 
   downloader.Updates = updateToInstall
   WScript.Echo vbCRLF & "Downloading..."
   Set downloadResult = downloader.Download()
   WScript.Echo "Download Result: " & downloadResult.ResultCode
  
   'Install Update
   Set installer = updateSession.CreateUpdateInstaller()
   WScript.Echo vbCRLF & "Installing..."
   installer.Updates = updateToInstall
   Set installationResult = installer.Install()
  
   'Output the result of the installation
   WScript.Echo "Installation Result: " & _
   installationResult.ResultCode
   WScript.Echo "Reboot Required: " & _
   installationResult.RebootRequired 
End If

コマンドプロンプトからcscriptで呼び出す

上記のWUA_SearchDownloadInstall.vbsを管理者として起動したコマンドプロンプトからcscriptで呼び出して実行します。

WUA_SearchDownloadInstall.vbsをCドライブ直下に保存していた場合

cscript "c:\WUA_SearchDownloadInstall.vbs"

これだけで実行できます。

重要な更新プログラムのみインストールしたいとき

オプションの更新プログラムなどは除き、重要な更新プログラムのみをインストールした場合は。検索対象を指定するupdateSearcher.Search("Type='Software'")の部分を以下に変更します。

updateSearcher.Search("IsInstalled=0 and Type='Software' and AutoSelectOnWebSites=1")

パラメーターの意味

  パラメーター
  意味




  IsInstalled=0
  インストールされていない更新プログラムを対象にする


  Type='Software'
  更新プログラムが対象


  AutoSelectOnWebSites=1
  重要な更新プログラムのみを適用

パラメーターの参考サイト

https://docs.microsoft.com/en-us/windows/win32/api/wuapi/nf-wuapi-iupdatesearcher-search https://docs.microsoft.com/en-us/windows/win32/api/wuapi/nf-wuapi-iupdatesearcher-search

その他類似のスクリプトの参考サイト

http://shinke1987.net/?p=276 http://shinke1987.net/?p=276

https://blog.osakana.net/archives/8270 https://blog.osakana.net/archives/8270

https://www.atmarkit.co.jp/ait/articles/1808/06/news012.html https://www.atmarkit.co.jp/ait/articles/1808/06/news012.html

http://qiita.com/Marukaziler/items/54bfbf054a372328be3f http://qiita.com/Marukaziler/items/54bfbf054a372328be3f

複数のJSとCSSをまとめて非同期で読み込むJavascriptのメモ

Sat, 09 Feb 2019 20:38:57 +0900

WEBページの表示スピードを高速化させるために、複数のJSやCSSを非同期のAsyncで読み込んだり、Deferで読み込んだりするためのソースをメモ。

JSとCSSを遅延読み込みするスクリプト

jQueryに依存するスクリプトなので、実行するには事前にjQueryを読み込んでおく必要があります。JSとCSSを混在させてURLを指定すればOK。これを～の間に書いて使うものっぽいですが、私は``の直前に書いて使っています。どちらがいいかは好みです。

非同期で使用するなら、jQueryと読み込み順がバラバラになるasyncを使うとうまくいかなくなります。jQueryの後に順番通りに読み込むdeferを使う方がよいです。

<script src="//cdn.jsdelivr.net/npm/jquery@3.3.1/dist/jquery.min.js" defer></script>
<script defer>
jQuery(function(){
   //var r=Math.ceil((new Date()*1)*Math.random()); //Zenback用デフォルト
   var r = new Date(); //Zenback用
   var r = ''+r.getFullYear()+('0'+r.getMonth()).slice(-2) ;  //randの値を年月（例 201901）にする
   require_onload( [
       '//cdnjs.cloudflare.com/ajax/libs/SyntaxHighlighter/3.0.83/styles/shCore.min.css',
       '//cdnjs.cloudflare.com/ajax/libs/SyntaxHighlighter/3.0.83/styles/shCoreRDark.min.css',
       '//cdn.jsdelivr.net/npm/@fortawesome/fontawesome-free@5.6.3/css/all.min.css',
       '//cdn.jsdelivr.net/npm/purecss@1.0.0/build/tables-min.css',
       '//cdn.jsdelivr.net/npm/@tehnoskarb/slimbox2@2.0.5/css/slimbox2.css',
       '//cdn.jsdelivr.net/npm/@gerhobbelt/keyscss@1.1.3-6/keys.css',
       '//w.zenback.jp/v1/?base_uri=https%3A//qwerty.work&nsid=1234561665775123456%3A%3A123456466455123456&rand='+r,
       '//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js',
       '//jsoon.digitiminimi.com/js/widgetoon.js'
   ] );
});

function require_onload( arg ) {
   if (is_array(arg)){
       var element = [];
   for(var i=0; i<arg.length; i++){
       if ( arg[i].match(/\.css/) ){ //末尾だけ確認したいときは/\.css$/
           add_child_css(arg[i]);
       }
       else if ( arg[i].match(/\.js|w\.zenback.\jp/) ){ //末尾だけ確認したいときは/\.js$/
           add_child_js(arg[i]);
       }
       else{ alert('check url : ' + arg[i]) }
       }
   }
   else{
       if ( arg.match(/\.css/) ){ //末尾だけ確認したいときは/\.css$/
       add_child_css(arg);
   }
       else if ( arg.match(/\.js|w\.zenback.\jp/) ){//末尾だけ確認したいときは/\.js$/
       add_child_js(arg);
   }
       else{ alert('check url : ' + arg[i]) }
   }
}

function add_child_js(src){
   var element = document.createElement("script");
   element.src = src;
   document.body.appendChild(element);
}

function add_child_css(src){
   var css_element = document.createElement('link');
   css_element.type = 'text/css';
   css_element.rel  = 'stylesheet';
   css_element.href = src;
   document.body.appendChild(css_element);
}

function is_array(obj) {
   return Object.prototype.toString.call(obj) === '[object Array]';
}

参考ページ

https://pgmemo.tokyo/data/archives/517.html https://pgmemo.tokyo/data/archives/517.html

CSSを非同期で読み込むスクリプト例

jQueryに依存していないので、単体で使用できます。下の方のエレメントをいじくればJSやDNS-Prefetchなどに転用可能です。これも～の間に書くか、``の直近や後ろに書くかは好みです。これはjQueryに依存しないので、非同期読込はasync、deferのどちらでも大丈夫です。

<script async>
   window.addEventListener("load",function(){
    const css = [
         "//cdnjs.cloudflare.com/ajax/libs/SyntaxHighlighter/3.0.83/styles/shCore.min.css",	
         "//cdnjs.cloudflare.com/ajax/libs/SyntaxHighlighter/3.0.83/styles/shCoreRDark.min.css",
         "//cdn.jsdelivr.net/npm/@fortawesome/fontawesome-free@5.6.3/css/all.min.css",
         "//cdn.jsdelivr.net/npm/purecss@1.0.0/build/tables-min.css",
         "//cdn.jsdelivr.net/npm/@tehnoskarb/slimbox2@2.0.5/css/slimbox2.css",
         "//cdn.jsdelivr.net/npm/@gerhobbelt/keyscss@1.1.3-6/keys.css"
 ];
<br>
 for(i in css){
   let html = document.createElement("link");
   html.rel = "stylesheet";
   html.href = css[i];
   html.async = true;
   document.head.appendChild(html);
   }
});
</script>

DNS-Prefetchを非同期で行うスクリプト例

JSやCSSから横道逸れますが、半角スペースで接続先を指定する例。DNS-Prefetchを非同期で実行するスクリプトですが、エレメントの部分を入れ替えれば、CSSやJSにも使えそうです。jQueryなしで使えます。

<script>
(function(c){var d="//jsoon.digitiminimi.com/js/widgetoon.js //w.zenback.jp/_p/js/jquery.min.js //pagead2.googlesyndication.com/pagead/js/adsbygoogle.js /include/GoogleAnalytics.js".split(" "),a,b,e=c.createDocumentFragment();for(a=d.length-1;0<=a;a--)b=c.createElement("link"),b.setAttribute("rel","prefetch"),b.setAttribute("href",d[a]),b.setAttribute("as","script"),e.appendChild(b);c.getElementsByTagName("head")[0].appendChild(e)
})(document);
</script>

その他参考ページ

https://webkaru.net/jquery-plugin/lazy-script/ https://webkaru.net/jquery-plugin/lazy-script/

https://firstlayout.net/load-css-asynchronously-with-loadcss/ https://firstlayout.net/load-css-asynchronously-with-loadcss/

CSS限定！もっとシンプルな方法

スタイルシート（CSS）限定ですが、Javascript無しのもっとシンプルな方法で非同期読み込みできる方法を見つけましたので参考にメモ。（2020/05/18追記）

https://curio-shiki.com/blog/webpage/what-we-do-for-speed https://curio-shiki.com/blog/webpage/what-we-do-for-speed

https://qiita.com/rana_kualu/items/95a7adf8420ea2b9f657 https://qiita.com/rana_kualu/items/95a7adf8420ea2b9f657

上記の参考ページにあったソース例

<link rel="preload" href="/path/to/my.css" as="style">
<link rel="stylesheet" href="/path/to/my.css" media="print" onload="this.media='all'">

なぜコレが非同期なのかわかりませんし、効果があるのかも謎ですが、今度ためしてみようと思います。

以下にもCSS非同期読み込みについてまとめています。( 2021/12/13追記）

CSSを非同期で読み込むいろいろな方法 - QWERTY.WORK

jQuery.jsの読み込みにDeferやAsyncを使ったらエラーでスクリプトが動かないとき

Mon, 28 Jan 2019 23:58:24 +0900

jQueryの読込にDeferやAsync使ったら動かなくなった

サイトの高速化を行うために読み込むJSを遅延読み込みしようと、あらゆるJSにdeferやasyncを付けていたら、jQueryにDeferを付けた時点でエラーになりアコーデオンメニューとかが動かなくなりました。

<script src='/js/jquery.min.js' defer></script>

そんなときの対処法

jQueryに依存するスクリプトを**window.onload = function() {…}**で囲ってみてください。

<script defer>
    window.onload = function() {
        スクリプト
    }
</script defer>

または、**window.addEventListener( ’load’, function(){…}, false);**で囲ってみてください。

特にChromeは動くけど、EdgeやInternet Explorer(IE)で動かないときはこちらが有効でした。

<script defer>
    window.addEventListener( 'load', function(){
        スクリプト
    }, false);
<script>

のようにスクリプトを囲ってやれば、Deferで読み込んでもスクリプトが動くようになります。詳しくは以下のサイトに詳しく例が書いてありましたので参考にしてみてください。

それでも動かない場合、を、****にする必要なときがあります。

参考サイト

https://norando.net/jqueryplugin-and-defer/ https://norando.net/jqueryplugin-and-defer/

https://sakura.monte-verita.biz/3981 https://sakura.monte-verita.biz/3981

Onloadを使って回避する方法もある

以下のページには上記と違う方法で回避する方法もありました。私も使ってみたところうまく回避できました。

<script defer src="//cdn.jsdelivr.net/npm/jquery@3.3.1/dist/jquery.min.js" onload="
        $(function() {
            $('form').submit(function() {
                $('form').find(':submit').attr('disabled', 'disabled');
            });
        });
    "></script>

https://qiita.com/suzunone/items/55277b99893b2a6cf353 https://qiita.com/suzunone/items/55277b99893b2a6cf353

また、指定したJSとCSSをDeferとAsyncを使い分けて読み込むPrefetchLoader.jsというスクリプトの紹介もありましたが、使ってみたところ、はっきりと見た目の表示は速くなりました。

ですが、GTmetrixやPagespeed Insightsなどで測定すると表示の時間は遅くなりました。見た目は速い感じがするんですが不思議です。今回は適用を見送りましたが、気になるのでまた試してみたいと思います。

その他参考サイト

JSをどこで読み込むかで表示スピードが変わる実験結果が書いてありました。ともて興味深いのでメモ。

http://tokkono.cute.coocan.jp/blog/slow/index.php/xhtmlcss/how-to-use-script-defer-and-async-for-performance-enhancement/ http://tokkono.cute.coocan.jp/blog/slow/index.php/xhtmlcss/how-to-use-script-defer-and-async-for-performance-enhancement/

複数のSNSボタンのJavascriptをスッキリまとめて高速化

Mon, 12 Mar 2018 21:03:38 +0900

Facebool、Twitter、Google+、はてなブックマーク、Pocket、LINEなどのSNSボタンをページに設置する際、SNSそれぞれのJavascriptコードが必要ですが、複数あるのでページのソースがごちゃごちゃになります。

それを簡潔なjavascriptコードでコンパクトにする方法を見つけたのでメモ。

コードをまとめることによって重複コードがなくなり、ソースの文字数が減るのでページ表示の高速化になるかと思います。

まとめた場合のコード

コードはページのどこに書いてもいいのですが、の直前に書くほうがページ表示の高速化につながります。

<script type="text/javascript">
	(function(w,d){
		w.___gcfg={lang:"ja"};
		var s,e = d.getElementsByTagName("script")[0],
		a=function(u,f){if(!d.getElementById(f)){s=d.createElement("script");
		s.src=u;s.async=true;if(f){s.id=f;}e.parentNode.insertBefore(s,e);}};
		a("//connect.facebook.net/ja_JP/all.js#xfbml=1","facebook-jssdk");
		a("//platform.twitter.com/widgets.js","twitter-wjs");
		a("https://apis.google.com/js/plusone.js");
		a("//b.st-hatena.com/js/bookmark_button.js");
		a("https://widgets.getpocket.com/v1/j/btn.js?v=1");
		a("//media.line.me/js/line-button.js?v=20140411");
	})(this, document);
</script>

GoogleAnalyticsも含める場合

<script type="text/javascript">
	(function (w, d) {
		w._gaq = [["_setAccount", "UA-xxxxxxx-x"],["_trackPageview"]];
		w.___gcfg = {lang: "ja"};
		var s, e = d.getElementsByTagName("script")[0],
		a = function (u, i) {
			if (!d.getElementById(i)) {
				s = d.createElement("script");
				s.src = u;
				s.async = 1;
				if (i) {s.id = i;}
				e.parentNode.insertBefore(s, e);
			}
	};
	//GoogleAnalytics
	a(("https:"==location.protocol?"//ssl":"//www")+".google-analytics.com/ga.js","ga");
	//Facebook
	a("//connect.facebook.net/ja_JP/all.js#xfbml=1","facebook-jssdk");
	//Twitter
	a("//platform.twitter.com/widgets.js","twitter-wjs");
	//GooglePlus
	a("https://apis.google.com/js/platform.js");
	//Hatena
	a("//b.st-hatena.com/js/bookmark_button_wo_al.js");
	//Pocket
	a("https://widgets.getpocket.com/v1/j/btn.js");
	//LINE
	a("//media.line.me/js/line-button.js?v=20140411");})(this,document);</script>

SNSボタンの表示部分

ソーシャルボタンを表示したい部分に書きます。だけは直下が望ましいです。

<div id="fb-root"></div>
<ul>
	<li><div class="fb-like" expr:data-href="data:blog.url" data-layout="box_count" data-action="like" data-show-faces="false" data-share="false"/></div></li>
	<li><a href="https://twitter.com/share" class="twitter-share-button" data-lang="ja" data-count='vertical'>Tweet</a></li>
   <li><div class="g-plusone" data-size="tall" data-href="ページのURL" ></div></li>   <li><a href="http://b.hatena.ne.jp/entry/<?php the_permalink(); ?>" class="hatena-bookmark-button" data-hatena-bookmark-title="ページのタイトル" data-hatena-bookmark-layout="vertical-balloon" title="このエントリーをはてなブックマークに追加"><img src="http://b.st-hatena.com/images/entry-button/button-only.gif" alt="このエントリーをはてなブックマークに追加" width="20" height="20" style="border: none;" /></a></li>
	<li><a data-pocket-label="pocket" data-pocket-count="vertical" class="pocket-btn" data-lang="en" data-save-url="ページのURL"></a></li>
	<li><span><div class="line-it-button" style="display: none;" data-type="share-a" data-lang="ja"></div>
		<script src="//scdn.line-apps.com/n/line_it/thirdparty/loader.min.js" async="async" defer="defer"></script></span></li>
</ul>

参考ページ

https://log-file.net/wordpress/speedup-1190 https://log-file.net/wordpress/speedup-1190

http://requlog.com/self-branding/wordpress/facebook-fast-display/ http://requlog.com/self-branding/wordpress/facebook-fast-display/

http://tokkono.cute.coocan.jp/blog/slow/index.php/xhtmlcss/asynchronous-loading-of-major-social-buttons/ http://tokkono.cute.coocan.jp/blog/slow/index.php/xhtmlcss/asynchronous-loading-of-major-social-buttons/

Windows Updateを自動で再起動とアップデートを繰り返すバッチファイルを作る

Wed, 17 May 2017 19:31:42 +0900

Windows Updateと再起動の繰り返しを自動化したい

Windowsパソコンのリカバリやクリーンインストールしたときに数回に渡りWindows Updateと再起動を繰り返し手間と時間がかかります。そのWindows Updateの手間を減らすため、夜間にフルオートでWindows Updateと再起動を繰り返し実行させ、朝にはすべての更新ファイルの適用が終わっているみたいなことができないかな？と方法を探していたらPowerShellを使った方法を見つけたのでメモ。

PowerShellからWindows Updateを行うスクリプト

以下のページからダウンロードしたAutoWindowsUpdate.ps1を使い、Windows7の環境で試したところ、スクリプトからアップデートできました。

http://www.vwnet.jp/Windows/PowerShell/FullAutoWU.htm http://www.vwnet.jp/Windows/PowerShell/FullAutoWU.htm

AutoWindowsUpdate.ps1はC:\WindowsUpdateに保存して使用します。

Windows 7/Windows Embedded Standerd 7/Windows 10で試して使えました。PowerShellが使えればWindows 8/8.1、Windows Server 2008 R2やWindows Server 2012/2016でも使えるのではないかと思います。

アップデートのフルオート化

このスクリプト単体（AutoWindowsUpdate.ps1）で自動ログオンやWindows Updateと再起動を繰り返し行うようにできるらしいでのですが、試したところうまくいきませんでした。よって、完全なフルオート化するために以下の事を行います。

管理者ユーザーの自動ログオンを設定
スタートアップにスクリプトを起動するバッチファイルを登録
バッチファイルからAutoWindowsUpdate.ps1を実行

管理者ユーザーの自動ログオンを設定する方法

スクリプトからWindows Updateを行って再起動がかかった際、Windowsログオンのパスワード入力を求められる環境の場合、そこで自動化が止まってしまいます。そこで、予めパスワードを求められないように自動ログオンできるようにしておきます。ユーザー権限でAutoWindowsUpdate.ps1を実行するとエラーになるので、自動ログオンするユーザーは管理者権限のあるユーザーを使用します。

Windows+Rを押してcontrol userpasswords2またはnetplwizと入力し、管理者権限があるユーザーで自動ログオンするように設定します。設定方法は以下の記事を参考にしてください。ほとんどのWindowsで共通の方法です。

- [Windows10で起動時のパスワード入力をスキップ（省略）して自動サインイン（ログオン）する方法 ](https://qwerty.work/blog/2015/09/windows10-password-skip.php)

Windows Updateがすべて終わったらパスワードを求めるように逆の作業を行い、パスワードが求められるよう元に戻します。

スクリプト起動させるためのバッチファイルをスタートアップに登録

Windows Updateを実行するPowerShellのスクリプトAutoWindowsUpdate.ps1を起動するためのバッチファイルをスタートアップに登録します。Windows Updateと再起動を無限ループで行う方法なので、全てのアップデートが終わり、自動アップデートが不要になったらスタートアップから削除してください。

起動用バッチファイルのソース例（start.bat）

C:\WindowsUpdateに保存されたAutoWindowsUpdate.ps1を起動するためのバッチファイルをスタートアップに登録します。以下のソースをメモ帳に貼り付け、これをstart.batとか名前を付けて保存し、スタートアップに登録します。

powershell Set-ExecutionPolicy RemoteSigned
powershell "C:\WindowsUpdate\AutoWindowsUpdate.ps1 Full"
powershell Set-ExecutionPolicy Restricted
pause

重要な更新プログラムのみアップデートしたいときはファイルパスの後ろのFullの文字を削除するかMinimumに変更してください。

ExecutionPolicyについて

PowerShellのスクリプトファイル（拡張子「.ps1」）を実行するには、ExecutionPolicyがRestrictedになっているとエラーになります。そのため1行目をSet-ExecutionPolicy RemoteSignedに変更し、スクリプト終了後はSet-ExecutionPolicy Restrictedにして元に戻します。

現在のExecutionPolicyの状態を調べるコマンド

Get-ExecutionPolicy

Set-ExecutionPolicyのコマンドについての参考

Set-ExecutionPolicy コマンドレットの使用

AutoWindowsUpdate.ps1を実行

AutoWindowsUpdate.ps1を実行すれば更新ファイルの確認→ダウンロード＆インストール→再起動をしてくれます。これをスタートアップに登録したバッチファイルから実行し、無限ループで行います。

参考のソース（AutoWindowsUpdate.ps1）

以下をメモ帳でAutoWindowsUpdate.ps1という名前を付けてC:\WindowsUpdateに保存します。

http://www.vwnet.jp/Windows/PowerShell/ps1/autowindowsupdate.txt

アップデート開始の様子 *

更新ファイルのダウンロードとインストール中の様子

すべてのアップデートが終了したときのログすべての更新ファイルがインストールされたら再起動せずにコマンドプロンプトの画面が消え、ログ（C:\WU_Log）には=-=-=-=-=- Windows Update finished -=-=-=-=-=と表示されています。

しかし、=-=-=-=-=- Windows Update finished -=-=-=-=-=となっていてもインストール失敗し、まだ更新できるファイルが残っている場合があります。その際は手動でstart.batを管理者として実行し、スクリプトを再開してください。こういったことがあるので、全自動というよりは半自動ですね。スクリプトの改善の余地がありそうです。

Windows7の場合、古いWindows Update Clientが入っているとWindows Updateの時間がかかるので、あらかじめ新しいWindows Updateクライアントを入れておくことおすすめします。最新のWindowsクライアントは毎月配信されるロールアッププログラムに含まれています。

2019年10月第2回目 Windows Update 月例ロールアップの一覧とダウンロードリンク（Windows10/8.1/7）

AutoWindowsUpdate.ps1を単体で実行したい場合

AutoWindowsUpdate.ps1を右クリックして「PowerShellを実行」から実行してもユーザー権限による実行となるためか、スクリプトが開始されませんので、PowerShellからAutoWindowsUpdate.ps1を実行する場合は、PowerShellを管理者で実行してから、AutoWindowsUpdate.ps1のパス入力して実行します。

予備のソースファイル

参考にしたサイトが見れなくなったら困るので、今回の使用したAutoWindowsUpdate.ps1とstrat.batは以下よりダウンロードできるようにしておきます。

*WindowsUpdate.zip

その他参考

https://blog.osakana.net/archives/8270 https://blog.osakana.net/archives/8270

http://yamanxworld.blogspot.jp/2010/07/windows-scripting-windows-update_05.html http://yamanxworld.blogspot.jp/2010/07/windows-scripting-windows-update_05.html

https://gist.github.com/joefitzgerald/8203265 https://gist.github.com/joefitzgerald/8203265

http://qiita.com/Marukaziler/items/54bfbf054a372328be3f http://qiita.com/Marukaziler/items/54bfbf054a372328be3f

LANの空きIPアドレスを一斉に調べるコマンドとPowerShellスクリプト例

Sun, 27 Nov 2016 09:29:02 +0900

固定IPを使用するLANの中で、今どのIPアドレスが空いているか適当にpingを打ってみることがありますが、連続して応答が返ってくるとちょっと疲れます。1～254まで全部手動で行うのは面倒なので、コマンドの例を探したらありましたのでメモ。

コマンドプロンプトの例

例えば、192.168.0.2～192.168.0.10を調べる場合

指定した範囲でpingとarpを連続で打つコマンドです。

for /l %i in (2,1,10) do ping -w 1 -n 1 192.168.0.%i && arp -a 192.168.0.%i

最初の**（2,1,10）は変数「%i」**を2から10まで1ずつ加算していくことを表しています。

結果のログをテキストファイルで残す場合

コマンドの後ろに**» result.txt**など任意のファイル名を記載します。

for /l %i in (2,1,254) do ping -w 1 -n 1 192.168.0.%i && arp -a 192.168.0.%i >> result.txt

上記のようにファイル名のみ指定すると、ファイルの保存先はコマンドを実行したディレクトリに保存されます。(ほとんどの場合、ユーザーフォルダ）

分かりやすい場所に保存する場合はd:\result.txtなど、任意のディレクトリに変更します。

バッチファイルを作る場合

このコマンドをバッチファイルにする場合は、3カ所ある**「%i」を「%%i」にして「.bat」**の拡張子を付けた名前で保存します。

for /l %%i in (2,1,254) do ping -w 1 -n 1 192.168.0.%%i && arp -a 192.168.0.%%i >> result.txt

結果について

応答があったもののみがテキストファイルに出力されていますので、ここにないIPアドレスが空いているということになりますが、たまたま電源が入っていない機器も含まれるので注意が必要です。

PowerShellのスクリプトの例

こちらはPowerShellで192.168.0.1～192.168.0.255まで連続でpingを送信するスクリプトです。以下のスクリプトをPowerShellに貼り付けるか、メモ帳で**「.ps1」**という拡張子を付けて保存します。

$date = Get-Date -Format _yyyy_MMdd_HHmmss
for ($i = 1; $i -lt 255; $i++) {
        ping 192.168.0.$i >> pinglog$date.txt
}

実行すると、実行結果の入ったテキストファイルが**「pinglog_2016_1127_092028.txt」**のようなファイル名で実行ディレクトリに保存されます。

PowerShellでテキストでURL一覧を読込み一斉にpingテストする

Sat, 26 Nov 2016 23:09:39 +0900

WordPressやMovableTypeで使っているブログ更新時のPING送信先が活きているか、PowerShellで簡単に調べるスクリプトを見つけたのでメモ。

ping送信先のテキストファイルを用意

例えば、以下のテキストをpinglist.txtという名前を付けて保存

google.co.jp
facebook.com
yahoo.co.jp

スクリプト作成

以下のスクリプトをメモ帳に貼り付け、先ほどのpinglist.txtと同じ階層にping.ps1といった感じで適当に**.ps1**の拡張子を付けて保存します。

echo pingを実行しています。しばらくお待ちください。

$date = Get-Date -Format _yyyy_MMdd_HHmmss
$target = Get-Content pinglist.txt

foreach ($item in $target) {
  ping $item >> pinglog$date.txt
  }

echo 結果を「pinglog$date.txt」に保存しました。

pause

スクリプト実行

スクリプトファイル（ping.ps1）を右クリックして「PowerShellで実行」をクリックするとスクリプトが実行されます。

　↓

実行結果

実行結果は以下のような内容でスクリプトファイル（ping.ps1）と同じ階層に**「pinglog_2016_1126_225217.txt」**といったテキストファイルが作成されているので開いて確認できます。

これで、今後の確認作業が楽になりそうです。

スクリプト on qwerty.work

【FileMaker】PowerShell連携で画像回転とExif情報を削除

経緯

目についたプラグイン

プラグイン不要でPowerShellと連携できる方法があった

スクリプトとソース

ファイルメーカーのスクリプト

削除するEXIF情報について

EXIF情報を削除する部分

EXIFから向きの情報のみを削除する場合

まとめ

Windows10/8.1/7のプロダクトキーを確認するコマンドとその他の方法

コマンドプロンプトの場合

PowerShellの場合

何も表示されない場合

VBScriptで調べる場合

フリーソフトで調べる方法

Windows Updateを実行するVBスクリプト「windowsupdate.vbs」

スクリプトからWindows Update

まずはソースを.vbsで保存

コマンドプロンプトからcscriptで呼び出す

WindowsUpdate.vbsをCドライブ直下に保存していた場合

重要な更新プログラムのみインストールする設定になっている

パラメーターの意味

その他類似のスクリプトの参考サイト

Windows Updateを実行するVBスクリプト「WUA_SearchDownloadInstall.vbs」

スクリプトからWindows Update

ソースを.vbsで保存

そのソース（WUA_SearchDownloadInstall.vbs）

コマンドプロンプトからcscriptで呼び出す

WUA_SearchDownloadInstall.vbsをCドライブ直下に保存していた場合

重要な更新プログラムのみインストールしたいとき

パラメーターの意味

その他類似のスクリプトの参考サイト

複数のJSとCSSをまとめて非同期で読み込むJavascriptのメモ

JSとCSSを遅延読み込みするスクリプト

参考ページ

CSSを非同期で読み込むスクリプト例

参考ページ

DeferとAsyncを指定して非同期で読み込むスクリプト

参考ページ

DNS-Prefetchを非同期で行うスクリプト例

その他参考ページ

CSS限定！もっとシンプルな方法

上記の参考ページにあったソース例

jQuery.jsの読み込みにDeferやAsyncを使ったらエラーでスクリプトが動かないとき

jQueryの読込にDeferやAsync使ったら動かなくなった

そんなときの対処法

参考サイト

Onloadを使って回避する方法もある

その他参考サイト

複数のSNSボタンのJavascriptをスッキリまとめて高速化

まとめた場合のコード

GoogleAnalyticsも含める場合

SNSボタンの表示部分

参考ページ

Windows Updateを自動で再起動とアップデートを繰り返すバッチファイルを作る

Windows Updateと再起動の繰り返しを自動化したい

PowerShellからWindows Updateを行うスクリプト

アップデートのフルオート化

管理者ユーザーの自動ログオンを設定する方法

スクリプト起動させるためのバッチファイルをスタートアップに登録

起動用バッチファイルのソース例（start.bat）

ExecutionPolicyについて

AutoWindowsUpdate.ps1を実行

参考のソース（AutoWindowsUpdate.ps1）

AutoWindowsUpdate.ps1を単体で実行したい場合

予備のソースファイル

その他参考

LANの空きIPアドレスを一斉に調べるコマンドとPowerShellスクリプト例

コマンドプロンプトの例

例えば、192.168.0.2～192.168.0.10を調べる場合

結果のログをテキストファイルで残す場合

バッチファイルを作る場合

結果について

PowerShellのスクリプトの例

PowerShellでテキストでURL一覧を読込み一斉にpingテストする

ping送信先のテキストファイルを用意

スクリプト作成

スクリプト実行