[powershell]の記事一覧 | satocchiaブログ

ヌルの謎、解けた？！　７年越し

以前書いたpowershellのヌルは負数？。誰も答えてくれず謎だったけど、大Google先生のAIモードに聞いてみたらあっけなく解決した、らしい。「らしい」というのはその回答の一部、特に最後のあたりを完全には理解出来ていないからです。人工知能に追いつかない知能の持ち主です、はい。以下、謎への回答。謎番号の内容は上のリンクを見てね。＜謎 1＞ $null の型はどうやって調べる？「何もないもの」に「お前の型は何だ？」とは聞けない、という哲学的な壁です。$null に対してメソッド（.GetType()）を呼ぼうとすると、システムは「実体がないのに命令を出すな！」と怒ります。型を知るには、比較演算子を使ってシステム側に判定させるのが正解です。調べ方: $null -is [object] 答え: True が返ります。真相: 厳密には、.NET の System.DBNull や null 参照ですが、pwsh においては「何の型でもないが、すべてのオブジェクトの底にいる存在」として扱われます。 ※ ちなみに、パイプラインで何も流れてこなかった時の「空」は [System.Management.Automation.Internal.AutomationNull]::Value という別の化け物（通称：超null）だったりします。＜謎 2＞ 0より小さいのに符号はゼロ？これは pwsh の「比較時の型変換ルール」が生んだ錯覚です。 $null -lt 0 が True になる理由: pwsh の比較では、「左側の型に合わせて右側を変換する」、あるいは「数値と比較する際は null はどんな数値よりも小さい」という順序定義が優先されます。 [math]::sign($null) が 0 になる理由: このメソッドに $null を渡すと、.NET の型変換によって $null が数値の 0 に変換されてから計算されます。そのため、結果は 0 になります。結論: $null はマイナスの数ではなく、「比較の序列では最底辺」だが、「計算に使うと 0 に化ける」という、二面性を持った存在なのです。＜謎 3＞配列の $null 比較で頭が爆発する理由ここが一番の「アハ体験」ポイントです。pwsh の -eq には、恐ろしいルールがあります。「左側に配列を置くと、比較ではなく『フィルタリング』として動作する」これを踏まえて、あなたの実験を解釈しましょう。 @(1, $null, 3) -eq $null 挙動: 配列の中から $null を探して、見つかった $null だけの配列 ($null) を返します。 ifの判定: 要素が 1つの配列の場合、その中身の真偽を見ます。中身が $null（偽）なので、結果は False になります。 @(1, $null, 2, $null, 4) -eq $null 挙動: $null が2つ見つかり、要素が2つの配列 ($null, $null) を返します。 ifの判定: pwsh の if は、「要素が 2 つ以上ある配列」は中身が何であれ True と判定します！結論: だから $null が2つ以上入っていると「NULL」と表示されてしまったのです。 $a と $b の違い $a = @($null, $null) → 要素数は 2。-eq の結果も要素数 2 なので True。 $b = @($null,,, $null) → このカンマの書き方だと、内部で「空の配列」などが入れ子になり、フィルタリングの結果が複雑に（あるいは要素数1に）変化した可能性があります。AIにこの回答を載っけていいか聞いたら、ぜひに書いておいてくれと言われたので載せます。

2026.03.09

コメント(0)

関数を作る関数

powershellのスコープがいまいち理解できず、「関数を定義する関数」ってのが作れないでいました。スコープについて説明してるのって、大概が変数についての説明で、関数のスコープを指定するやり方が分からなかったのです。長い間悩んでいたのですが、先日、いいサイトを見つけました。function Global:関数名(パラメタ){関数実体}とやればいいだけなんですね。簡単じゃん。ちなみに、日本語でスコープを詳しく解説しているのも見つけたので、書いておきます。function Build-Function( [string]$name, [scriptblock]$definition ){ Invoke-Expression "function Global:$name{${definition}}"}Build-Function -name foo -definition { param( $p1, $p2 ) "bar`t$p1`t$p2"}foo a b

2021.12.20

コメント(0)

powershellでpdfsharpをいじってみる（２）PDF分割

今回はPDFの分割。元のPDFファイル名に枝番を付して、指定フォルダ（無指定：デスクトップ）に生成する。使用している関数　 set-PdfSharpAssembly　は前回のやつ。split-pdffunction split-pdf{ param( [parameter(mandatory)][string]$pdfpath, [parameter(mandatory=$false)][string]$outfolder="$env:userprofile\desktop" ) if ( !( Test-Path $pdfpath ) ){ throw "pdfのパスが見つかりません:$pdfpath" } set-PdfSharpAssembly $inputpdf = [PdfSharp.Pdf.IO.PdfReader]::Open( $pdfpath, [PdfSharp.Pdf.IO.PdfDocumentOpenMode]::Import ) $totalpages = $inputpdf.pagecount $NombreWidth = [math]::Floor([math]::Log10( $totalpages )) + 1 $NameStem = [io.path]::GetFileNameWithoutExtension( $pdfpath ) for ( $Nombre = 0; $Nombre -lt $totalpages; $Nombre++ ){ $outname = "${NameStem}_" + ([string]$Nombre).PadLeft( $NombreWidth, "0" ) + ".pdf" $outpath = Join-Path $outfolder $outname $pdfdoc = New-Object PdfSharp.Pdf.PdfDocument $pdfdoc.AddPage( $inputpdf.pages[ $Nombre ] )|Out-Null $pdfdoc.Save( $outpath ) }}

2021.10.29

コメント(0)

powershellでpdfsharpをいじってみる（１）Hello World

powershellでpdfを操作するっていうと、定番はitextsharpでした。今でも、フリーのPDFツールにdllが同梱されていたりしますね。　でも、いつの間にかライセンスがややこしく、自由に（無料で）使おうとすると苦労するようになったみたいです。これ、元のitextのライセンスが変更されたからで、古いバージョンを使えば今でも利用は可能なようですが、メンテされていないライブラリをいつまでも使うってのはどうもね。　何か手はないかと探したら、いいのを見つけました。名前は「pdfsharp」。ウェブサイトはこちら。同サイトの更新状況は2015年が最新ですが、nuget galleryのlast updateは2019年なので、そこそこ新しいようです。　なんといっても、「PDFsharp and MigraDoc Foundation is Open Source and free to use even in commercial applications. See Licensing.」というのがうれしい。おっと、こんなことも書いてあった。「PDFsharp and MigraDoc Foundation will remain Open Source and free to use even in the far future」。even in the far futureですよ。　これは使わない手はない。ちょこちょこっと触ってみよう。インストールしたくないので、強引なことをやってます。これで、カレントフォルダに「Hello　World」と印刷された pdfが生成されます。function set-PdfSharpAssembly{ #Prepare pdfsharp.dll $tmpdll = "$Env:Temp\pdfsharp.dll" $tmpzip = "$Env:Temp\pdfsharp.zip" $tmpfolder = join-path "$Env:temp" ([io.path]::GetFileNameWithoutExtension( $tmpzip )) if (!( test-path $tmpdll )){ #dllがない if ( !( test-path $tmpzip ) ){ #zipもない $nugetURL = "https://www.nuget.org/packages/PdfSharp" $response -or ( $response = Invoke-WebRequest -Uri $nugetURL )|out-null $nupkgURL = ($response.Links|?{$_.innerText -match "Download package"})[0].href Invoke-WebRequest -Uri $nupkgURL -OutFile $tmpzip #"Has Got Zip" } #zipを解凍 Expand-Archive -Force -Path $tmpzip -DestinationPath $tmpfolder $dllToCopy = Get-ChildItem -Include "pdfsharp.dll" -Recurse "$tmpfolder\*" $dllToCopy.CopyTo( $tmpdll )|Out-Null #"Has Got DLL" }else{ #"Has DLL" } Add-Type -Path $tmpdll}<#確認　set-PdfSharpAssembly[appdomain]::CurrentDomain.GetAssemblies()|?{$_.location -like "*pdfsharp*"}|%{$_.exportedtypes}|%{$_.fullname}#>#PDFsharp - Getting Started http://www.pdfsharp.net/wiki/PDFsharpFirstSteps.ashxset-PdfSharpAssembly$Document = new-object PdfSharp.Pdf.PdfDocument$page = $Document.AddPage()$gfx = [PdfSharp.Drawing.XGraphics]::FromPdfPage( $page )$font = New-Object PdfSharp.Drawing.XFont("Verdana", 20, [PdfSharp.Drawing.XFontStyle]::Bold)$gfx.DrawString( "Hello World!", $font,[PdfSharp.Drawing.XBrushes]::Black, ( New-Object PdfSharp.Drawing.XRect( 0, 0, $page.Width, $page.Height ) ), [PdfSharp.Drawing.XStringFormat]::Center)$Document.Save( "./pdfsharp.pdf" )

2021.10.22

コメント(0)

ワイルドカードで特殊文字のエスケープ

文字列をワイルドカードで判定するときハマったのでメモ。正規表現の特殊文字エスケープなどは情報がたくさんあるのですぐ見つかりますが、ワイルドカードの場合どうなるのか見つからず試行錯誤してみました。MSのサイトにもないしね。まず、"abc[]"にマッチするワイルドカード（abcは任意）を思いつくまま動かしてみると"abc[]" -like "*[]""abc[]" -like "*\[\]""abc[]" -like "*`[`]"１と３はエラー、２はFalseを返します。正解は"abc[]" -like "*``[``]"で、バッククオートで二回エスケープするってやつでした。試したのは"[]"だけだけど、たぶん、*?も同様かと思います。なんと、？や＊は振る舞いが違う。もう少し研究が必要…。

2021.06.30

コメント(0)

dll読み込んだら何が使えるのか

nugetのサイトなんかにある、.netライブラリ。便利そうだけど、powershellでの使い方がいまいちわからないってことが結構あります。つまり…add-type -path "foobar.dll"とやって.netライブラリを読み込んだ後、さて、何が使えるのでしょう。こんなときは、[appdomain]::CurrentDomain.GetAssemblies()|?{$_.location -like "*foobar.dll*"}|%{　　　　$_.definedtypes|?{$_.IsPublic}|%{$_.name}}とやれば読み込まれた型がリストアップされます。(修正2021年10月22日：日本人だな、複数のSを忘れてる)もっと簡単に[appdomain]::CurrentDomain.GetAssemblies()|?{$_.location -like "*foobar.dll*"}|%{$_.exportedtypes}でもいけそう。見付かった型をnew-objectするなり、[型]するなりして、get-memberでプロパティやメソッドを調べればいいね。

2021.06.24

コメント(0)

もうswitchに迷わない

いや、switchってたって、せっかく買ったのにお蔵入りして３DSばっかやってるあの機械のことじゃありません。powershellのswitch文のすごいところは、「switch」に続くカッコ内（「制御式」というらしい）に、単一の値だけじゃなくて、配列だのコレクションだのをじゃんじゃか書けること。例えばswitch ( gci . ){ {$_.lastwritetime -gt [datetime]::now.AddYears(-1)}{$_.fullname}}でカレントディレクトリにある１年以内のファイルをリストアップできちゃたりする。これ便利だけど、その分、ロジックとか追いにくくて難しいんだよね。そして、もう一つ。制御式とCase句の判定にワールドカードや正規表現などさまざまなオプションが使えること。それだけじゃない。Case句には文字列や数値だけでなく、ブレース（｛｝）でくくった任意の式も書けるので、ほとんどどんなことでも判定できちゃう。さて、前置きはこれくらいで、テストパターン。switch -Regex ("a b c d" -split " ") { "a|b"{ "$_`ta_b match" } "a|c"{ "$_`ta_c match" } default{ "$_`tdefault" }}これで、次の結果が出力される。a a_b matcha a_c matchb a_b matchc a_c matchd default

2021.06.09

コメント(0)

５分の２（レジストリのドライブ名）の謎

powershellの利点のなかに、ディスク以外のシステムもドライブ名＋パスでアクセスできることがあります。慣れてくると、これ結構便利だったりしますよね。その一つがレジストリ参照・操作。この前の電源オプションの話でもやったHKLM:\Software\Microsoft\Windows\CurrentVersion\Policies\Explorerなんてのもそう。サクッとワンライナーで書けたのは、powershellがレジストリをドライブ＋パス名で扱えるからでした。ところが…どういうわけか、MSが用意してくれたのは、HKCU（HKEY_CURRENT_USER）とHKLM（HKEY_LOCAL_MACHINE）しかありません。要らないと判断した理由は何でしょう。どなたかご存じなら教えてほしいものです。それはともかく、残り３つのハイブもドライブ名にしちゃえというわけで。set-RegDriveを実行しておけばHKCR:HKU:HKCC:のドライブ名がスクリプト中で使えるようになります。Set-RegDrive.ps1function set-RegDrive{ $RegNames=@" CLASSES_ROOT CURRENT_USER LOCAL_MACHINE USERS CURRENT_CONFIG"@ -split "`r`n"|%{$_ -replace "\s","" } $AlreadyDefined = get-psdrive|?{$_.Provider.name -eq "registry"}|%{ ($_.Root -replace "HKEY_","").trim() } $RegNames|%{ $Abbrev = $_ -replace "^(.).*_(.).*",'$1$2' if ( $Abbrev -eq "USERS" ){ $Abbrev = "U" } if ( $AlreadyDefined -contains $_ ){ return } $DriveName = "HK$Abbrev" New-PSDrive -name "$DriveName" -PSProvider "Registry" -root "HKEY_$_" -Scope Script }}

2021.06.08

コメント(0)

電源オプション非表示／表示

常時起動のマシンをシャットダウンされてしまって、困ったことがあったので対策。あれこれ調べたんですが、一番ラクそうなのを見つけました。　レジストリのHKLM:\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer の「HidePowerOptions」エントリ（DWord値）を作り、値に「1」を入れてやると、スタートボタンの電源ボタンを押しても、シャットダウン・再起動・スリープなどが表示されなくなるそうです。　元に戻すときは、値に0を入れればOK。　で、この程度ならpowershellワンライナーにして、ショートカットにしてしまえば、スクリプトすら要らないじゃん。ってわけで表示無効の例powershell Set-ItemProperty -Path HKLM:\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer -Name "HidePowerOptions" -Type DWord -Value "1"

2021.03.16

コメント(0)

カッコよく何かやってる感じのps1

qiitaに面白いのがあったんで、powershellでもやってみました。向こうは色なしだったけどこっちは色付き。fakehacker.ps1function invoke-fakehacker( [int]$count ){ if ( !$count ){ $count=5 } $sharp="#" Get-Date 1..$count|%{ $color=[console]::ForegroundColor 1..50|%{ [console]::write( $sharp ) Start-Sleep -Milliseconds ( ( Get-Random 5 ) * 10 + ( Get-Random 2 ) * 50 ) if( ( Get-Random 5 ) -eq 4 ){ Start-Sleep -Milliseconds 60 } } [console]::ForegroundColor="yellow" [console]::writeline( "`tdone!" ) [console]::ForegroundColor=$color }}

2021.03.06

コメント(0)

windowsformsでxev

*nixのxevみたいなのをpowershell+windows.formsでできないかな、と思ってやってみたら結構できた。というわけでget-WinformEvent.ps1Add-type -AssemblyName system.windows.forms$Handler ={ ($sender, $e) = $this, $_ # sender（$this） Write-Host '■イベントソース' Write-Host $sender.GetType().FullName # 型を表示 # event（$_） Write-Host '■イベントデータ' Write-Host $e.GetType().FullName # 型を表示 Write-Host $($e | Format-List * | Out-String) # 全てのプロパティを表示}$form=new-object system.windows.forms.form$textbox=new-object system.windows.forms.textbox -Property @{ parent=$form; dock="fill"; multiline=$true}$textbox.add_KeyDown($Handler)$textbox.add_MouseDown($Handler)$textbox.add_MouseMove($Handler)$textbox.add_MouseWheel($Handler)$form.ShowDialog()こんなんで、結構それっぽいことができます。ただ、キーコードの取得で、prtscrキーの捕捉ができません。ググってみたところ、KeyDownじゃなくKeyUpで取れるのだそうです。ほかに、使えそうなマウス＆キーイベントはこんな感じMouseCaptureChangedMouseClickMouseDoubleClickMouseDownMouseEnterMouseHoverMouseLeaveMouseMoveMouseUpMouseWheelKeyDownKeyPressKeyUp

2021.02.20

コメント(0)

ちょっとカッコいいフィボナッチ数の求め方

powershellでタプルが使えることに気づいたので、思いついた。$n=72$x=$y=1;1..$n|%{$x,$y=$y,($x+$y)};$x #fib(72)を求める#806515533049393　を出力

2020.12.10

コメント(0)

文字コード上の次の文字を取得／powershell get-NextCodeChar

文字コード表上で次の文字を取得したいことってありますね。何かテキスト処理をするとき、そのファイルにない文字を区切り文字に使ったり。textencodingほにゃららgetbyteとかなんとか結構めんどかったんだけど、試行錯誤でできました。powershell内部ではUnicodeで処理しているとかで、文字コード表はUnicodeのものになります。get-NextCodeCharfunction get-NextCodeChar( $c,[switch]$Decrease ){ if ( !$c ){ $c=$input } if ( !$c ){ return } if ( $Decrease ){ $inc=-1 }else{ $inc=1 } $result="" $c -split ""|%{ try{ $result+=[string]([char]([int]([convert]::ToChar($_))+$inc)) }catch{} } return $result}パイプや引数で文字を渡すとコード表で次の文字を返します。２文字以上の文字列なら、それぞれを一つずらしたものをくっつけて取得できます。-Decrease　をつけて呼び出すと、「次」でなく一つ手前の文字になります。

2020.12.02

コメント(0)

新型コロナ感染状況

世界の感染状況を一覧するデスクトップアプリをつくってみました。NHKのサイトからデータを取ってくるんで、もし怒られたら削除します。powershellで作っていますが、起動の簡便のため、バッチ化しています。バッチでpowershellを書く時の参考になればいいな。感染者、死者、回復者の各欄をクリックするとそれぞれの項目にしたがって並び替えます。covid19.cmd@SET self=%0@SET args=%* &powershell -command "$lines=gc %Self%;$lines[2..($lines.length-1)],'',''" |powershell -windowstyle hidden -executionpolicy bypass -sta -command -& goto:EOF########################################################################################################引数処理#バッチの引数がpowershellの$arguments配列に入る。#二重引用符中の空白を除き、連続空白を１個のセパレータとして引数配列に分割する。#######################################################################################################$argstr =$env:args$arguments =@()$space ="<space>"while( $argstr -match $space ){ $space +="_"}$spacers =@()$regex =[regex]"`"[^`"]+`""#"エディタの文字列色別表示を満足させるための引用符。外してOK$matches =$regex.Matches( $argstr )$matches|%{ $from =$_.value $to =$from -replace " ", $space $spacers +=,@{ from =$from to =$to }}$spacers|%{ if (!$_){return} $argstr =$argstr.replace( $_.from, $_.to )}$argstr -replace " +", " " -split " "|%{ if ( !$_ ){return} $arg =$_ $spacers|%{ $arg =$arg.replace( $_.to, $_.from ) } $arguments +=,$arg}##############################################################################################################以下、powershellスクリプト領域#############################################################################################################add-type -assembly system.windows.formsadd-type -assembly system.drawingfunction new-winform( $name, $parent=$null, $attribute=$null ){ $res = iex "new-object System.Windows.Forms.$name" if ( $attribute ){ $attribute.Keys|%{ $res.$_=$attribute.$_ } } if ( $parent ){ $res.parent=$parent } return $res}$resp=(Invoke-WebRequest "https://www3.nhk.or.jp/n-data/dn/covid19-world-data.json").content$Json=ConvertFrom-Json ([System.Text.Encoding]::UTF8.GetString( [System.Text.Encoding]::GetEncoding("ISO-8859-1").GetBytes($resp) ))$WorldList=$Json.WorldList$jresp=(Invoke-WebRequest "https://www3.nhk.or.jp/news/special/coronavirus/data/summary.json").content$jjson=ConvertFrom-Json ([System.Text.Encoding]::UTF8.GetString( [System.Text.Encoding]::GetEncoding("ISO-8859-1").GetBytes($jresp) ))$Csv=@()$Json.worldList|%{ $name=$_.name $infected=[int]$_.confirmed $deaths=[int]$_.deaths try{ $recovered=[int]$_.recovered }catch{ $recovered=$null } $line=new-object PsObject foreach( $key in ("name,infected,deaths,recovered"-split",")){ $line|Add-Member -MemberType NoteProperty -Name $key -Value ( iex ("$"+$key ) ) } $Csv+=,$line}$line=new-object PsObject$line|Add-Member -MemberType NoteProperty -Name name -Value "日本"$line|Add-Member -MemberType NoteProperty -Name infected -Value ([int]($jjson.infection[0]))$line|Add-Member -MemberType NoteProperty -Name deaths -Value ([int]($jjson.death[0]))$line|Add-Member -MemberType NoteProperty -Name recovered -Value ([int]($jjson.recovered[0]))$Csv+=,$line$Csv=$Csv|Sort-Object -Property "infected" -Descending$UpdateDate=$jjson.date$dlg = new-winform form -attrib @{ text="新型コロナ　世界の感染者　${UpdateDate}現在"; width=800; height=800}$gv = new-winform datagridview -parent $dlg -attrib @{ columnCount=4; RowCount=$WorldList.length + 2 dock="fill"; AutoSizeColumnsMode="fill";}$headers="国名、確認感染者、死者、回復者（ゼロは未公表含む）"-split"、"for( $i=0; $i -lt $headers.length; $i++ ){ $gv.columns[$i].name=$headers[$i]}$gv.Rows[0].Cells[0].Value="総数"$gv.Rows[0].Cells[1].Value=[int]$Json.total.confirmed$gv.Rows[0].Cells[2].Value=[int]$Json.total.deaths$gv.Rows[0].Cells[3].Value=[int]$Json.total.recovered$gv.Rows[0].Frozen=$truefor( $i=0; $i -lt $Csv.length; $i++ ){ $country=$Csv[$i].name $infected=$Csv[$i].infected $deaths=$Csv[$i].deaths $recovered=$Csv[$i].recovered $gv.Rows[$i+1].Cells[0].Value="$country" $gv.Rows[$i+1].Cells[1].Value=[int]$infected $gv.Rows[$i+1].Cells[2].Value=[int]$deaths try{ $gv.Rows[$i+1].Cells[3].Value=[int]$recovered }catch{} if ( $country -eq "日本" ){ 0..3|%{$gv.Rows[$i+1].Cells[$_].Style.BackColor="yellow"} }}1..3|%{ $gv.Columns[$_].DefaultCellStyle.alignment="middleright" $gv.Columns[$_].DefaultCellStyle.format="#,0"}$gv.add_RowPostPaint({ #$_.Rowindex|write-host $rectangle=New-Object System.Drawing.Rectangle( $_.RowBounds.Location.X, $_.RowBounds.Location.Y, ($gv.RowHeadersWidth - 4), $_.RowBounds.Height ) [windows.forms.TextRenderer]::DrawText( $_.Graphics, ($_.RowIndex).ToString(), $gv.RowHeadersDefaultCellStyle.Font, $rectangle, $gv.RowHeadersDefaultCellStyle.ForeColor, ([Windows.Forms.TextFormatFlags]::VerticalCenter -bor [Windows.Forms.TextFormatFlags]::Right) )})$dlg.showdialog()

2020.10.16

コメント(0)

UWSCのFukidasiをpowershellで

UWSCのFukidasi(Balloon)って結構便利だったりするんで、powershellでもつかえないかな。使い方表示する　$fuki=show-balloon "文字列"文言を変更　$fuki.setText("別の文字列")フォントを変更　$fuki.setFont((new-object system.drawing.font("MS明朝",9))フォントサイズだけ変更 $fuki.resizeFont(12)UWSCだと同一スレッドに１つしかfukidasiを持てないけれど、これはいくつでもOKその代わり、終了するときは明示的に $fuki.Close() が必要中身show-balloonの戻り値はただのwindowsforms.formにいくつかメソッドを追加したもの。なので、移動するなら　$fuki.location=@{x=200;y=500} みたいにすればいい。balloon.ps1function show-balloon( $text ){ function new-winform( $name, $attribute=$null ){ $res = iex "new-object System.Windows.Forms.$name" if ( $attribute ){ $attribute.Keys|%{ $res.$_=$attribute.$_ } } return $res } function asyncshow( $winform ){ $rs =[Management.Automation.Runspaces.RunspaceFactory]::CreateRunspace() $rs.Open() $rs.SessionStateProxy.SetVariable("form",$winform) $p =$rs.CreatePipeline({[void]$form.ShowDialog()}) $p.Input.Close() $p.InvokeAsync() } $form=new-winform form -attrib @{ backcolor="yellow"; formborderstyle="none"; opacity=0.7; topmost=$true } $label=new-winform label -attrib @{ text=$text; textalign="MiddleCenter"; parent=$form; dock="fill" } $form|add-member -MemberType ScriptMethod -Name setText -Value { param($text) $label = $this.Controls[0] $label.text=$text } $form|add-member -MemberType ScriptMethod -Name setComplimentaryColor -Value { $bcol=$this.backcolor $max=$bcol.r if ( $bcol.g -gt $max ){ $max=$bcol.g } if ( $bcol.b -gt $max ){ $max=$bcol.b } $min=$bcol.r if ( $bcol.g -lt $min ){ $min=$bcol.g } if ( $bcol.b -lt $min ){ $min=$bcol.b } $fcol=[drawing.color]::FromArgb( $max + $min - $bcol.r, $max + $min - $bcol.g, $max + $min - $bcol.b ) $this.ForeColor=$fcol } $form|add-member -MemberType ScriptMethod -Name setFont -Value { param($font) $label = $this.Controls[0] if ( $font ){ $label.font=$font } else { $label.font } } $form|add-member -MemberType ScriptMethod -Name resizeFont -Value { param($size) $label = $this.Controls[0] $font=$label.font $label.font=new-object drawing.font( $font.name, $size ) } $label|add-member -MemberType NoteProperty -Name FormMinHeight -Value 40 $redraw={ $this.parent.width=$this.preferredSize.width + 10 $height=$this.preferredSize.height + 10 if ( $height -le $this.FormMinHeight ){ $height = $this.FormMinHeight } $this.parent.height=$height } $label.add_textchanged($redraw) $label.add_fontchanged($redraw) $form.width=$label.preferredSize.width + 10 $form.height=40 asyncshow $form $form}

2020.10.09

コメント(0)

別プログラムの出力を取り込む

powershellで別プログラムを動かしたいとき、単に記述するstart-processを使う方法があります。その別プログラムの出力結果をpowershellで利用したいとき、1.なら$Dir=cmd /c dirみたいに変数に入れればいいのですが、2.はちょっとやっかい。どうすればいいかググってみたので、powershellに移し替えてみました。$p=new-object system.diagnostics.process$pi=$p.startinfo$pi.FileName ="c:\windows\system32\ipconfig.exe"$pi.UseShellExecute = $false$pi.RedirectStandardOutput = $true$pi.CreateNoWindow = $true$p.start()$ipconfig=$p.StandardOutput.ReadToEnd()これで変数$ipconfigにipconfigの結果が入ります。どう考えても、$ipconfig=ipconfigのが早いんだけど、これはこれで使い道があるはず。あ、プログラムに引数を入れる場合は$pi.arguments="/?"#ヘルプ表示の場合みたいな感じ。

2020.09.26

コメント(0)

変数交換に一時変数は不要

大抵のプログラミング言語だと、二つの変数を交換するとき一時的に使用する変数が必要になります。Cなどint a=3;int b=5;int temp;temp=a;a=b;b=temp;みたいな感じ。powershellはこれが１行でできちゃう。powershell$a,$b=$b,$a簡単！　交換だけでなく、たくさん動かすなら$a=1;$b=2;$c=3;$d=4$b,$c,$d,$a=$a,$b,$c,$d"$a,$b,$c,$d" #2,3,4,1みたいにすればOK。お、配列もいける。$list = 0, 1, 2, 3, 4$list[0], $list[3] = $list[3], $list[0]$list -join "," #3,1,2,0,4これ、pythonもおなじことができるようです。あ、rubyもできた！スクリプト言語はこうじゃなきゃ。気になってもうちょっとググってみた。あれ、C#もいけるじゃん。いまどきは、こういうの常識なのかな。ええい、ひとまとめでこれでどうだ。

2020.09.23

コメント(0)

powershell関数を後ろに書く

powershellの関数（未確認だけどクラスも）は先に定義しておかなければ呼び出すことができません。これは「仕様」です。でも、プログラムするとき、最初に全体の構造を書いてあとから細かな関数なんかを書くほうが見通しが良くなります。逆に、長大な関数定義の後でメインルーチンがあると可読性もよくありません。最後まで読まないとなんのスクリプトかわからないからです。多くのプログラム言語は関数をどこに書いてもOKですが、powershellがそうでないのはなぜなのでしょう。powershellスクリプトが本格的なプログラム（C++とかC#とか）を書く前段のプロトタイプ言語プロトタイピング言語（2002/12/08修正）としても使われることを考えると、この「仕様」は更になぞです。シェル言語だからそんなもんだという話もあろうかと思うのですが、バッチやunix系シェルとの互換性が決して良いとは言えないpowershellがこんな制限を引きずっていることは甚だ不満です。例えば、コマンドインタプリタとしてbasicを利用していた８ビット時代のパソコンですら、関数を後ろに書くことができました。OS/2で第二シェルとして使われたREXXなんかはもっと本格的なプログラム言語でした。文句ばかり言っていてもきりがないので、対策。$SKIP=$true;iex ((gc $MyInvocation.InvocationName|%{ if ($SKIP -and ($_ -notmatch "^####FuncDef\s*$")){return} $SKIP=$false $_})-join "`r`n")$a=foobar|Write-Host　　#エラーになるfunction foobar{ "foobar"}$b=hogefuga|Write-Host　#正常動作####FuncDeffunction hogefuga{ "hogefuga"}####FuncDef以降の行に書いた関数を先に読み込むというものです。$aへの代入ではfoobarが定義されていないのでエラーになりますが、$bに代入されるhogefugaは####FuncDef以降に定義されているので、ちゃんと機能します。

2020.09.13

コメント(0)

-splitの落とし穴

こんな感じの文字列$filters="HTML ファイル|*.html;*.htm,テキストファイル|*.txt,全てのファイル|*.*"を配列に分解しようとしてハマりました。コンマで分けた後、「|」で説明とワイルドカードに区切ろうとして「？」な現象が。$filter=($filters -split ",")[0]これで$filter="HTML ファイル|*.html;*.htm"となるとこまでは無事だったんですが、次に$filterを「HTML ファイル」と「*.html;*.htm」に分けようとして失敗。端末で　$filter -split "|" と打ち込むとHTML ファ以下略と１文字ごとバラバラになってしまいました。どうやら、-split演算子で指定する区切り文字はただの文字として処理するのでなく正規表現を期待している模様。「-split "|"」は正規表現としてみると「-split ""」と同じなので結局全部を分化してしまったのでした。ここらへん、-replace演算子に触れた正規表現じゃない直接文字置換と同じようにやれば解決します。$filter　-split [regex]::escape("|")ほかには、文字列のsplitメソッドを使って$filter.split("|")とやってもOK。powershellの文字列演算子は正規表現を期待していること、覚えておこう。

2020.05.29

コメント(0)

powershell 一部の引数必須＆残り可変個引数

powershellの関数やスクリプトで可変個の引数を利用する場合、組み込み変数$ARGSでパラメーターにアクセスできます。大抵はそれでいいんだけど、困ったことが起きました。一部の引数のみ必須にして、残りは可変個というのがどうもうまくできないんです。function foo{　　param(　　　　[parameter(mandatory=$true)]$MustArg　　)　　"Mandatory Argument=$MustArg"　　"Other Arguments=$ARGS"}foo abc def ghiとやると、「引数 'def' を受け入れる位置指定パラメーターが見つかりません。」のエラーが。mandatoryとか関係なく、[parameter()]を付けると、その関数（スクリプト）に余計な引数を与えるとエラーになるようです。あちこちググって、参考サイトを見つけました。function hoge{ param( [parameter(mandatory=$true)][string]$FirstArg, [parameter(ValueFromRemainingArguments=$true)]$others ) $others}[parameter(ValueFromRemainingArguments=$true)]$othersというのが肝。残りの引数が、$others[]配列に入ってくれます。一方、$ARGSは空っぽのままのようです。

2020.03.12

コメント(0)

ファイルのエンコーディングを判定

powershellでテキストファイルのエンコーディングを知るには(new-object io.streamreader("テキストファイルのパス")).CurrentEncodingってやるそうなのですが、これでSJISのファイルを判別しようとすると、SJISでなくUTF8が返ってきてしまいます。参考：PowerShellで、テキストファイルの文字コードを判定したい。。。古くはnkfなんかを使ったりしたものですが、Windows用のnkfを探すのも面倒だし、そもそもメンテされているのか怪しい。そこで、探してみたところ、いいのを見つけました。リンク先フォルダにあるcs４ファイルを拝借。こんな感じで、powershellの関数化できました。get-Encoding.ps1function get-Encoding( $filepath ){ try{ [void][Hnx8.ReadJEnc.ReadJEnc] #"AlreadyAdded" }catch{ #https://github.com/hnx8/ReadJEnc/tree/master/Source/Hnx8.ReadJEncから丸パクリ cd "４ファイルの格納フォルダ" add-type .\ReadJEnc.cs,.\FileType.cs,.\FileReader.cs,CharCode.cs #[Hnx8.ReadJEnc.ReadJEnc] } $file=Get-Item $filepath $reader=new-object Hnx8.ReadJEnc.FileReader( $file ) $reader.Read($file)}<#実例get-Encoding "sjisファイル"get-Encoding "utf8ファイル"get-Encoding "utf16leファイル"以下出力Name CodePage---- --------ShiftJIS 932UTF-8N 0UTF-16 0#>

2020.02.28

コメント(0)

powershellで記述できるバッチ２

以前書いたものがなんとなく動作が怪しかったのでリファイン。$linesに空文字を２つ追加しているのは無意味ではありません。これを付けておかないとソースの末尾に改行を付加しないと動きません。PsOnBatTmplate.cmd@SET self=%0@SET args=%* &powershell -command "$lines=gc %Self%;$lines[2..($lines.length-1)],'',''" |powershell -windowstyle hidden -executionpolicy bypass -sta -command -& goto:EOF########################################################################################################引数処理#バッチの引数がpowershellの$arguments配列に入る。#二重引用符中の空白を除き、連続空白を１個のセパレータとして引数配列に分割する。#######################################################################################################$argstr =$env:args$arguments =@()$space ="<space>"while( $argstr -match $space ){ $space +="_"}$spacers =@()$regex =[regex]"`"[^`"]+`""#"エディタの文字列色別表示を満足させるための引用符。外してOK$matches =$regex.Matches( $argstr )$matches|%{ $from =$_.value $to =$from -replace " ", $space $spacers +=,@{ from =$from to =$to }}$spacers|%{ if (!$_){return} $argstr =$argstr.replace( $_.from, $_.to )}$argstr -replace " +", " " -split " "|%{ if ( !$_ ){return} $arg =$_ $spacers|%{ $arg =$arg.replace( $_.to, $_.from ) } $arguments +=,$arg}##############################################################################################################以下、powershellスクリプト領域#############################################################################################################<# 動作テスト　コメントを外してメッセージボックスが表示されたら正常動作add-type -assembly system.windows.forms[system.windows.forms.messagebox]::show("$Env:Self " + ($arguments -join ","))#>

2019.11.20

コメント(0)

powershell 動詞の一覧

powershellの関数やコマンドレットには命名規則が定められています。英語動詞-なんとかかんとかって形。例えばget-contentとか。　別に従わなくてもいいけど、ルールどおりやっておいたほうが何かとご利益があるのでは？　と思い、どんな動詞が使えるのか調べてみました。MS公式いちいちネットで確認しなくてもいいようにpowershell自身に出力させてみます。("Common,Communications,Data,Diagnostic,LifeCycle,Security" -split","|%{(iex "[system.management.automation.Verbs$_]").getMembers()|?{$_.MemberType -eq "Field"}|%{$_.name}}) -join " "このワンライナーで次のリストが得られました。Add Clear Close Copy Enter Exit Find Format Get Hide Lock Move New Open Push Pop Remove Rename Reset Set Search Show Skip Step Join Redo Split Switch Select Undo Unlock Watch Send Receive Connect Disconnect Write Read Backup Checkpoint Compare Compress Convert ConvertFrom ConvertTo Edit Expand Export Group Import Initialize Limit Merge Publish Restore Save Sync Unpublish Update Mount Dismount Out Debug Measure Ping Repair Resolve Test Trace Approve Assert Complete Confirm Deny Disable Enable Install Invoke Register Request Restart Resume Start Stop Submit Suspend Uninstall Unregister Wait Grant Revoke Protect Unprotect Block Unblockこれ以外に汎用動詞 use- があるようです。もっと調べてから書けばよかった。get-verbこれ一発。Verb Group ---- ----- Add Common Clear Common Close Common Copy Common Enter Common Exit Common Find Common Format Common Get Common Hide Common Join Common Lock Common Move Common New Common Open Common Pop Common Push Common Redo Common Remove Common Rename Common Reset Common Search Common Select Common Set Common Show Common Skip Common Split Common Step Common Switch Common Undo Common Unlock Common Watch Common Backup Data Checkpoint Data Compare Data Compress Data Convert Data ConvertFrom Data ConvertTo Data Dismount Data Edit Data Expand Data Export Data Group Data Import Data Initialize Data Limit Data Merge Data Mount Data Out Data Publish Data Restore Data Save Data Sync Data Unpublish Data Update Data Approve Lifecycle Assert Lifecycle Complete Lifecycle Confirm Lifecycle Deny Lifecycle Disable Lifecycle Enable Lifecycle Install Lifecycle Invoke Lifecycle Register Lifecycle Request Lifecycle Restart Lifecycle Resume Lifecycle Start Lifecycle Stop Lifecycle Submit Lifecycle Suspend Lifecycle Uninstall Lifecycle Unregister Lifecycle Wait Lifecycle Debug Diagnostic Measure Diagnostic Ping Diagnostic Repair Diagnostic Resolve Diagnostic Test Diagnostic Trace Diagnostic Connect Communications Disconnect Communications Read Communications Receive Communications Send Communications Write Communications Block Security Grant Security Protect Security Revoke Security Unblock Security Unprotect Security Use Other 2021年12月21日追記powershell 6.0で追加された動詞が２つありました。build と deploy です。参照

2019.11.11

コメント(0)

ISEでカットが効かない

powerhell_iseの画面で編集メニューの「切り取り」が効きません。キーボードショートカットがバッティングしてるのかと思ったので、「編集」メニューから操作してみてもダメ。何がダメかというと、コピーバッファには送られるんだけど、切り取りができないという症状。つまり、コピーと同じってわけ。「powershell _ise　edit menu cut」で検索するとありました。technetのやりとりが。ピント外れの回答に若干キレぎみなやりとりがあったりして、挙句、出てきた答えがこれ。Are you running in a VM by any chance?（もしか、仮想環境で動かしたりして？）そうです。私の場合もそうでした。アドバイスに従って、「クリップボードの共有」をオフにすると正常動作しました。でも、コピペの共有を切ると不便なんだよな。これ、Virtualboxの不具合ってことになるのかな。

2019.09.14

コメント(0)

powershellのヌルは負数？

いろいろ謎の多いpowershellの$null。＜謎１＞よくやりがち（私だけですが）なのが、$nullって型は何だっけと思い$null.gettype().nameとタイプしてシステムに怒られるやつです。$nullの型ってどうやって調べるのでしょう。＜謎2＞そうだ。数値と$nullを比べてみよう。　　$null -eq 0　　#falseゼロではないらしい。じゃ、　　$null -gt 0　　#falseなら、　　$null -lt 0　　#trueどうやらマイナスの数のよう。じゃ、　　[math]::sign($null)　　0ううん。なんだかわからん。今のところ、「0 より小さいが符号はゼロである何か」ってところ。＜謎3＞$nullを要素に含む配列を$nullと比較してはいけないらしい。だめだと言われればやってみたくなるのは、ただの天邪鬼だ。で、　　if(@(1,$null,3) -eq $null){"NULL"}else{"Not A Null"}　Not A Nullなるほど。んじゃ、　　if(@(1,$null,2,$null,4) -eq $null){"NULL"}else{"Not A Null"}　NULLううん、$nullが複数だとnull判定されるのか。　　if(@(1,$null,,$null,4) -eq $null){"NULL"}else{"Not A Null"}　Not A Nullえ？じゃ　　$a=@($null,$null);$b=@($null,,,$null)　　$a.length;b.length　2　2$aと$bはどちらも、２つの$nullを要素とする配列だな。null判定すれば同じ結果になるはず。　　$a,$b|%{if ( $_ -eq $null){"Null"}else{"Not A Null"}}　Null　Not A Nullもう、ここらへんでギブアップ。だれか教えて！

2019.09.08

コメント(0)

ファイルを作らず本格HTA

何かと便利なHTA。HTAファイルを作らなくても、GUI画面を簡単に出せます。とはいえ、実際にやってみると、１行の長さに対するOS（あるいはコマンドシェル）の制限により、それほど長いHTMLを読ませることは難しいです。日付を入力させる程度なら簡単ですけど。そこでどうしてもHTAファイルを作らなくちゃいけない、と思いきやFSO(Scripting.FileSystemObject)の力を借りて長いHTMLを読み込むことが可能なことが分かりました。こんな具合。$HugeHtml=@"長いHTML長いHTML長いHTML"@$HugeHtml|mshta "about:<script>document.write((new ActiveXObject('Scripting.FIleSystemObject')).GetStandardStream(0).ReadAll())</script>"バッチだと環境変数に格納できる文字数に制限があるので、powershellでやっています。

2019.09.03

コメント(0)

マウスカーソルを既定のボタンへ

よくあるやつ。GUIで設定するなら、例えばこれ。コマンドレベルでやろうとすると、レジストリ操作が伴います。面倒なんで、powershellの関数にしてみました。使い方は、. DefaultButton.ps1set-MouseJumpModeToDefaultButton #引数なし：現在の設定の問い合わせ　1 なら設定済みset-MouseJumpModeToDefaultButton 1 #1を与えると設定。set-MouseJumpModeToDefaultButton 0 #0を与えると解除。DefaultButton.ps1function set-MouseJumpModeToDefaultButton( $argv1="q" ){ if ( !( test-path hku:) ){ New-PSDrive -name HKU -PsProvider Registry -Root HKEY_USERS|out-null } foreach( $x in (ls 'HKLM:\software\Microsoft\windows NT\CurrentVersion\ProfileList') ){ if ( (gp ("$x" -replace "^HKEY_LOCAL_MACHINE","HKLM:")).ProfileImagePath -eq $env:USERPROFILE ){ $sid=split-path -leaf "$x" break } } $mouse="hku:$sid\Control` Panel\mouse" switch($argv1){ "q"{(gp $mouse).SnapToDefaultButton} $null{remove-itemproperty $mouse SnapToDefaultButton} "1"{set-itemproperty $mouse SnapToDefaultButton 1} "0"{set-itemproperty $mouse SnapToDefaultButton 0} default{<# nothing #>} }}

2019.08.31

コメント(0)

マウスカーソルを既定のボタンへ

よくあるやつ。GUIで設定するなら、例えばこれ。コマンドレベルでやろうとすると、レジストリ操作が伴います。面倒なんで、powershellの関数にしてみました。使い方は、. DefaultButton.ps1set-MouseJumpModeToDefaultButton #引数なし：現在の設定の問い合わせ　1 なら設定済みset-MouseJumpModeToDefaultButton 1 #1を与えると設定。set-MouseJumpModeToDefaultButton 0 #0を与えると解除。DefaultButton.ps1function set-MouseJumpModeToDefaultButton( $argv1="q" ){ if ( !( test-path hku:) ){ New-PSDrive -name HKU -PsProvider Registry -Root HKEY_USERS|out-null } foreach( $x in (ls 'HKLM:\software\Microsoft\windows NT\CurrentVersion\ProfileList') ){ if ( (gp ("$x" -replace "^HKEY_LOCAL_MACHINE","HKLM:")).ProfileImagePath -eq $env:USERPROFILE ){ $sid=split-path -leaf "$x" break } } $mouse="hku:$sid\Control` Panel\mouse" switch($argv1){ "q"{(gp $mouse).SnapToDefaultButton} $null{remove-itemproperty $mouse SnapToDefaultButton} "1"{set-itemproperty $mouse SnapToDefaultButton 1} "0"{set-itemproperty $mouse SnapToDefaultButton 0} default{<# nothing #>} }}

2019.08.31

コメント(0)

既定のアプリケーション

拡張子から既定のアプリケーションを探す。　簡単そうに見えて意外に難しいんです。　レジストリ、みれば簡単じゃん、って思ったあなた、甘い、甘い。　そもそも、拡張子とアプリケーションの関連付けはWindowsのバージョンアップに伴って、いろいろ変わってきています。　特に、最近は、セキュリティ上の理由から、ユーザーがGUIで設定しないといけないようになっていて、一筋縄ではいきません。　じゃ、どうするか。　その拡張子のダミーファイルを作って、起動しちゃえばいいじゃん。　なので、作ってみました。get-DefaultApplication.ps1function get-DefaultApplication{ param( [parameter(mandatory=$true)] [string]$extension ) if( $extension[0] -ne '.' ){ $extension=".$extension" } $Dummy=join-path $env:TEMP "dummy$extension" $BeforeStart=[datetime]::Now "">$Dummy try{ start-process $Dummy }catch{ if( $error -match "この操作に対して指定されたファイルには、アプリケーションが関連付けられていません" ){ rm $Dummy return "NotAssociated" } } $newerProcesses=gwmi win32_process|?{ $_.ConvertToDatetime($_.CreationDate) -gt $BeforeStart } if( $pr=($newerProcesses|?{ $_.name -eq "openwith.exe" }) ){ $pr|%{$_.terminate()}|out-null rm $Dummy return "NotAssociated" } if ( $newerProcesses.gettype().name -match "\[\]$" ){ $oldest=$null $newerProcesses|%{ if (!$oldest){ $oldest=$_ return } if( $_.ConvertToDatetime($_.CreationDate) -lt $oldest.ConvertToDatetime($oldest.CreationDate) ){ $oldest=$_ return } } $newerProcesses=$oldest } $newerProcesses.terminate()|out-null rm $Dummy $newerProcesses}<# 拡張子HTMを調べてみる。get-DefaultApplication htm#>

2019.07.22

コメント(0)

ダイヤログを最前面に

フォルダ選択ダイヤログを開くスクリプトを書いたんだけど、肝心のダイヤログが他のウインドウの陰に隠れて気付かれない、という問題が起きました。対策を調べてみたら、こんな感じで書けばいいのではと。$folderbrowser=new-object system.windows.forms.folderBrowserDialog$dmy=new-object system.windows.forms.form$dmy.topmost=$true$folderbrowser.showdialog($dmy)ファイル選択ダイヤログだと、$filedialog=new-object system.windows.forms.openFileDialog$filedialog.showhelp=$true$dmy=new-object system.windows.forms.form$dmy.topmost=$true$filedialog.showdialog($dmy)

2019.03.01

コメント(0)

tail （powershell 2.0用）

powershell3.0以降はget-content -tailがあるので問題ないのですが、windows7で巨大ログを見たいときなど、get-content -path ファイルパス |select -last 行数なんてやると、ファイルを全部読み込んじゃうまで待たされてキツイわけです。で、function tail( $path, [int]$num=40 ){ if ( $num -lt 0 ){ [io.file]::readAllLines($path)[$num..-1] } else { [io.file]::readAllLines($path)[(-1*$num)..-1] }}これも、全部読み込んではいるんだけど、行レベルで読んでいるので十数倍は軽減できそう。これ以上速度を上げるなら、行単位ではできないけどバイト単位でfunction tail( $logpath, $bytes=1024 ){ $fs =[System.IO.File]::OpenRead($logpath) $fs.Position =$fs.Length - $Bytes $enc =[System.Text.Encoding]::unicode $sr =New-Object System.IO.StreamReader( $fs, $enc ) $text =$sr.ReadToEnd() $sr.Close() $fs.Close() return $text}これなら、一瞬で終わるんだけど行ベースでないところがなんだかなあ。書いた後、ちょっとぐぐってみたら、PSCXを入れればget-FileTailコマンドレットが使えるそうな。ソースを見るとsjis未対応ではあるようですが。

2019.02.05

コメント(0)

powershellコンソール、見づらくありませんか？

普段、Windows 7のpowershellをよく使っているんですが、家のPCはほぼ10にアップグレード済みなんですよね。　で、10でpowershellコンソールを上げると、やけに見づらいときがあるんです。　例えば文字列。最初の行に"abc"と入れてるんだけど、ねえ。３行目の型名も薄くて読みづらい。そこで、いろいろいじってみたら、コンソールのタイトルバー右クリック→プロパティで出てくるダイアログの「画面の色」タブにあるカラーパレット左から４番目（図の赤丸）の色を変えてやると引用符＋文字列のの色を変更することができることがわかりました。同様に型名は８番目（青丸）です。このとき、パレットを選んで、色を変えたあと、左のラジオボタンで指定する色を元に戻しておく必要があります。そもそも、左のラジオボタンに「引用文字列の色」とか「型名の色」とかあれば簡単なのに。ほかの色、例えば変数（デフォルトは緑）を変更する方法はわかりませんでした。

2018.08.26

コメント(1)

test-path -isValidの判定が全然isValidじゃない件

test-pathに-isvalidオプションをつけてあれこれ試行錯誤してたら、「何これ」現象に出くわしました。ヘルプにはパスの構文が正しいかどうかを判断します。パスの要素が存在するかどうかとは無関係です。このパラメーターは、パスの構文が正しい場合は TRUE を返し、そうでない場合は FALSE を返します。なんぞと書かれていますが、これが大嘘。「パスの要素が存在するかどうかとは無関係です」、あくまで構文チェックだけですなんと言いながら、 test-path -isvalid a:\folder\filebase.extがFalseを返すんです。おかしいと思ってCドライブで試すとTrueになる。　ま、そりゃ今どきのPCにAドライブは付いとらんわな、とは思うけど、しっかりドライブチェックしてるようです。でも、test-path -isvalid \\nowheresite\folder\filebase.extみたいなのは、サイトの有無をチェックせずTrueを返してくるのはどうしてなのはなぜ？でいろいろググってみたら、だめじゃん、これ。禁止字句が入っているのにtrueになってる…。リンク先が消えるとあれなので、禁止字句が入っているのにtrueになる例をコピペしておくとTest-Path "c:\teho\::::\sdfg^#%&'!?>.txt" -IsValid# trueなんかがそう。同サイトではコロン（「:」）のせいではなかろうかと推量しています。それにしても、isValidなisValidはあるのでしょうか。

2018.07.10

コメント(0)

Executionpolicyを変えずにpowershell開発

powershellを勉強しようと入門サイトなんかを見ると、まず、set-Executionpolicyを云々という説明が出てきます。こことかこことか。でも、セキュリティ周りをいじりたくないシステムで、開発するときもあるわけで。で、考えたのがpowershell_iseでスクリプトを開くときに、こんな風にすればいいんじゃないかと。バッチを作ってもいいけど、レジストリを直接書きかえてみたらうまくいきました。\HKEY_CLASSES_ROOT\Microsoft.PowerShellScript.1\Shell\Edit\Commandの値を「powershell -executionpolicy bypass -command powershell_ise %1」にすればいいみたい。regeditを使ずpowershellでやるなら、管理者モードで立ち上げたpowershellでNew-PSDrive -Name HKCR -PSProvider Registry -Root HKEY_CLASSES_ROOTSet-ItemProperty hkcr:\Microsoft.PowerShellScript.1\Shell\Edit\command -name "(default)" -value "powershell -executionpolicy bypass powershell_ise %1"と打ち込めばOK。

2018.06.30

コメント(0)

アッセンブリーを読み込む

Sytem.Windows.FormsやらSystem.Webやらを読み込んで、powershellスクリプトを作成するとき必要なのが、これらのアッセンブリー（って言うらしい。アセンブラとは関係なさそう）を読み込むおまじないです。やり方は[System.Reflection.Assembly]::LoadWithPartialName("ほにゃらら")Add-Type -AssemblyName ほにゃらら　←引用符不要って感じ。なぜ２つあるかとかどっちを使うべきかなど検索するとこんなのとかこんなのとか出てくるんだけど、よく分からない。それはともかく、手軽に重複なく読み込みたいなと思ってこんな関数を書いてみました。##########################################################################################################アッセンブリーを読み込む。既に読み込まれている場合は何もしない。function LoadAssembly( [parameter(mandatory=$true)][string]$assemblyname ){ $AllAsms =[System.AppDomain]::CurrentDomain.GetAssemblies() | % { $_.GetName().Name } if ( ( $AllAsms -notcontains $assemblyname ) -and ( $AllAsms -notcontains "system.$assemblyname" ) ){ try{ Add-type -Assembly $assemblyname -erroraction stop } catch { Add-type -Assembly "system.$assemblyname" } }}#使用例 System.Webを読み込む#LoadAssembly Web#確認　[System.Web.HttpUtility]::UrlEncodefunction LoadAssemblies{ if ( !$args ){ throw "アッセンブリー名を指定してください" } $args|%{LoadAssembly $_}}

2018.06.24

コメント(0)

正規表現じゃない直接文字置換

ファイルやフォルダのパス文字列を置換するときなど、正規表現で機能を持つ特殊文字（「\」とか「.」とか）をいちいちエスケープするのが大変です。replace（演算子※もメソッドも）類は大文字小文字の区別をするかどうかで、「replace」（区別なし）と「creplace」（区別あり）の二種類が用意されていますが、正規表現を使用は強制で、正規表現なしのreplaceは存在しないようです。面倒だなと思っていたら、ここ（Answer2）でいいのを見つけました。簡単に言うと、replaceの第一引数（$toReplaceとしておく）を、[regex]::escape($toReplace)に変えればＯＫ。※削除訂正　2020/05/29正規表現を使うのは演算子の場合のみ。文字列のメソッドから呼べば正規表現でなく、直接文字変換。

2018.06.22

コメント(0)

ヘルプはこう出す（のがオススメ）

powershellでスクリプトを書いているとお世話になるのがget-help。ま、iseとかならそれほどでもないんだろうけど。黒画面でごりごりやってるときに、ヘルプを見ようとすると、画面を占領されちゃう。そこで、get-help ほにゃらら -full|out-gridviewなんてやるとGUIのヘルプ画面が見られます。でも、これ、黒画面とISEで動作が違ったり、長い文章の端が切れたりと、使い勝手はいまひとつ。もうちょっと、見やすくならないかなということで考えたのがこのワンライナー。うまくいったよ。(help ほにゃらら -full)-replace "[`n`r]+","`n" -split "`n"|ogv

2018.06.13

コメント(0)

いろいろ便利に（System.Drawing.Color選択入力）

GUIで色を選択するのって、めんどくさい。なので、作ってみました。こんな画面で色の付いたところクリックすると、「[System.Drawing.Color](Aquamarine)」みたいな文字列がクリップボードに送られます。#DotNet 色の一覧入力ツール#STAモードでなければSTAに設定して再起動if ( [threading.thread]::CurrentThread.GetApartmentState() -ne "STA" ){ $myself =$myInvocation.MyCommand.Path powershell -sta . "$myself" exit}#Windows.FormsとSystem.Drawingの呼び込みtry{ [void][System.Windows.Forms.DialogResult]}catch{ [void][reflection.assembly]::loadwithpartialname( "System.Windows.Forms" )}try{ [void][System.Drawing.Color]}catch{ [void][reflection.assembly]::loadwithpartialname( "System.Drawing" )}#####################　ＧＵＩ呼び出し関数# createWinForm( $name, $attribute )function createWinForm( $name, $attrib=$null ){ $res =iex "new-object System.Windows.Forms.$name" $attrib.keys|%{ if ( $_ -match "^Add_." ){ #[system.windows.forms.messagebox]::show("`$res.$_( `$attrib.`$_ )")|out-null iex "`$res.$_( `$attrib.`$_ )" } else { $res.$_=$attrib.$_ } } return $res}#################### msgbox 関数　function msgbox( $str ){ [Windows.Forms.MessageBox]::Show($str)}#-------------------------------------------------------------------function getColorList{ $colors=foreach ( $c in ([system.drawing.color]|get-member -static) ){ if ( $c.membertype -ne "Property" ){continue;} $cname =$c.definition -replace "^.*System.Drawing.Color ","" -replace "{.*","" -replace "\s$","" if ( $cname -eq "Empty" ){ continue; } [system.drawing.color]$cname } return $colors}function main{ $form =createWinForm form @{ Add_Shown ={ $this.Activate() } Add_Resize ={ $this.Controls[ 0 ].size=$this.ClientSize } } $panel =createWinForm FlowLayoutPanel @{ parent =$form; size =$form.ClientSize AutoScroll =$true; } $colors =getColorList foreach ( $c in $colors ){ $box=createWinForm label @{ parent=$panel; backColor=$c; text=$c.name size="120,40" add_click={ $colorname=$this.backColor.name -replace "\s+$","" $colorname="[System.Drawing.Color](`"$colorname`")" $colorname|clip msgbox "クリップボードに色名「${colorname}」を送りりました" } } } $form.showDialog()}main

2018.06.01

コメント(0)

Base64変換あれこれ

Base64変換を行う関数をまとめました。ところで、get-contentの-encodingに「byte」を指定できるのに、out-fileではダメなのは何で？#Base64Functions.ps1# try{ [drawing.color]|out-null} catch { [void][reflection.assembly]::loadwithpartialname( "System.Drawing" )}function base64ToImage( $b64 ){ $bytes =[convert]::FromBase64String( $b64 ) $mem =new-object system.io.memorystream( $bytes, 0, $bytes.length ) return [system.drawing.image]::fromstream( $mem )}function ImageToBase64( $bitmap, $imgFormat=[System.Drawing.Imaging.ImageFormat]::Jpeg ){ $mem =new-object system.io.memorystream( "" ) $bitmap.save( $mem, $imgFormat ) return [convert]::ToBase64String( $mem.ToArray() )}function UnicodeToBase64( $unistr ){ return [Convert]::ToBase64String([System.Text.Encoding]::Unicode.GetBytes( $unistr ) )}function Base64ToUnicode( $b64 ){ return [System.Text.Encoding]::UNICODE.GetString( [Convert]::FromBase64String( $b64 ) )}function TextToBase64( [string]$str, $encode="Unicode" ){ $encodings=[System.Text.Encoding]|get-member -static|%{if($_.MemberType -eq "Property"){$_.Name}} if ( $encodings -notcontains $encode ){ throw "Unknown Encoding $encode" } return [Convert]::ToBase64String( ([System.Text.Encoding]::$encode).getbytes( $str ) )}function Base64ToText( [string]$b64, $encode="Unicode" ){ $encodings=[System.Text.Encoding]|get-member -static|%{if($_.MemberType -eq "Property"){$_.Name}} if ( $encodings -notcontains $encode ){ throw "Unknown Encoding $encode" } return ( [System.Text.Encoding]::$encode).GetString( [Convert]::FromBase64String( $b64 ) )}function FileToBase64( $path ){ return [Convert]::ToBase64String( ( gc $path -encoding byte ) )}function Base64ToFile( $b64,$path ){ [System.IO.File]::WriteAllBytes( $path, [convert]::FromBase64String( $b64 ) ) }

2018.04.19

コメント(0)

powershellで非同期実行

この前書いたUWSCのpowershell関数をスピードアップのなかで、ランスペースが面倒くさいと書きました。　こんなやつ。$rs = [Management.Automation.Runspaces.RunspaceFactory]::CreateRunspace() $rs.Open() $rs.SessionStateProxy.SetVariable("form",$form) $p = $rs.CreatePipeline( { [void] $form.ShowDialog() } ) $p.Input.Close() $p.InvokeAsync()　powershellで非同期実行を行う方法として、start-process、start-jobによるバックグラウンド実行がよく使われます。でも、バックグラウンドプロセス（ジョブ）の進行状況を知りたいときや、GUI画面に出力したいときなどは、これではうまくいきません。　そこで、.NETのsystem.managementでランスペースを生成して使うわけですがこれがなかなか。　やたら長いつづりを打ち込まなきゃならないし、そもそも、覚えてられない。あちこちネット検索してコピペするんだけど、それも大変です。　なら、関数化しちゃえというわけで、作ってみました。bgRunSpace.ps1#バックグラウンドでスクリプトブロックを動かす。#スクリプトブロックに投げるときの変数は何でもいいが、スクリプトブロック側で操作した結果がほしい変数は、#単純変数では受け取れない。ハッシュなどのオブジェクトにしておくこと（使用例参照）。function bgRunSpace( [parameter(mandatory=$true)]$scriptBlock, $CommonVarNames=$null ){ $rs = [Management.Automation.Runspaces.RunspaceFactory]::CreateRunspace() $rs.Open() $CommonVarNames|%{ if ( !$_ ){ return } $varvalue =iex ( '$' + $_ ) $rs.SessionStateProxy.SetVariable( $_, $varvalue ) } $p =$rs.CreatePipeline( $scriptBlock ) $p.Input.Close() $p.InvokeAsync()}#使用例if ( $myInvocation.invocationName -like "*\bgRunSpace.ps1" ){ $WinFolder="c:\windows" $WinFiles=@{} bgRunSpace { $WinFiles.list=@() ls -r $WinFolder|%{$WinFiles.list+=$_} } @( "WinFiles", "WINFOLDER" ) $former=-1 $n=0 do{ sleep 1 $former =0 $n =$WinFiles.list.length $n }while ( $n -gt $former )}

2018.04.01

コメント(0)

GUIのためのおまじない(For PowerShell)

powershellでGUI（Windows.Forms）を使うためのおまじない。先頭で呼ぶと貼り付けると吉。やってること黒画面消しSTAモード強制System.Windows.Forms、System.Drawingアッセンブリー読み込みGuiTemplate.ps1#########################GUI起動のためのおまじない#########################まず、タスクスケジューラから呼んだときの黒画面を消すpowershell -WindowStyle Hidden -command "exit"#########################STAモードでなければSTAに設定して再起動if ( [threading.thread]::CurrentThread.GetApartmentState() -ne "STA" ){ $myself =$myInvocation.MyCommand.Path powershell -sta . "$myself" exit}#[threading.thread]::CurrentThread.GetApartmentState()#########################Windows.FormsとSystem.Drawingの呼び込みtry{ [void][System.Windows.Forms.DialogResult]}catch{ [void][reflection.assembly]::loadwithpartialname( "System.Windows.Forms" )}try{ [void][System.Drawing.Color]}catch{ [void][reflection.assembly]::loadwithpartialname( "System.Drawing" )}################おまじない終了##

2018.03.15

コメント(0)

Win32Apiをpowershellから使う

UWSCだとDEF_DLL命令で簡単に呼べるんだけど、powershellだと結構な手間。そこで、DLL関数を作ってくれる関数を作ってみました。呼び出し方はテストプログラムを参考に。 setApiFunc#Win32Apiを呼び出す関数を設定する関数# setApiFunc　任意の関数名　API関数のスペックを格納するハッシュ#ハッシュの構造はテストプログラムの$funcSpecを参照。型名はC#の記法による。##Win32Apiの一覧はhttps://msdn.microsoft.com/ja-jp/windows/hh240557#10#function setApiFunc( $funcName, $funcSpec ){ $csProto = @"[DllImport(`"<DllName>`")]public static extern <retType> <DllFunc>(<argSpec>);"@ if ( !$funcName ){return $false} if ( !( $DllName=$funcSpec.DllName ) ){return $false} if ( !( $DllFunc=$funcSpec.DllFunc ) ){return $false} if ( !( $retType=$funcSpec.retType ) ){return $false} #if ( !$funcSpec.argTypes ){return $false} $decl=@() $argN=0 $dmyVars=@() if ( $funcSpec.argTypes ){ $funcSpec.argTypes -split ","|%{ $dmyVar ="dmy" + $argN++ $dmyVars+=,"`$$dmyVar" $decl +=,"$_ ${dmyVar}," } } $argSpec =$decl -join "" -replace ",$","" $csc =$csProto -replace "<DllName>", $DllName -replace "<DllFunc>", $DllFunc $csc =$csc -replace "<retType>", $retType -replace "<argSpec>", $argSpec $csc ="@`"`n${csc}`n`"@"# $apiCode ="add-type -memberDefinition $csc -name 'Win32ApiFunctions' -passthru" $apiCode ="add-type -memberDefinition $csc -name (`"api_`"+(get-date).ticks) -passthru" $argstr =$dmyVars -join "," $code="new-item -force -path function:global:$funcName -value { param ( $argstr );($apiCode)::$DllFunc( $argstr )}|out-null" iex $code #(gi function:$funcName).definition}########################################################################## テストプログラム　win32のMessageBoxを呼ぶmsgbox関数を作成する例if ( $myInvocation.InvocationName -like "*setApiFunc.ps1" ){ $funcSpec=@{ DllFunc="MessageBox"; DllName="user32.dll"; retType="int"; argTypes="IntPtr,string,string,UInt32" } setApiFunc "msgbox" $funcSpec $funcSpec=@{ DllFunc="FindWindow"; DllName="user32.dll"; retType="IntPtr"; argTypes="string,string" } setApiFunc "GetWindowHandle" $funcSpec $funcSpec=@{ DllFunc="SetWindowText"; DllName="user32.dll"; retType="void"; argTypes="IntPtr,string" } setApiFunc "reWriteWindowTitle" $funcSpec msgbox 0 "Hello World!" "Test" 3 notepad sleep 3 reWriteWindowTitle ( GetWindowHandle "Notepad" "無題 - メモ帳" ) "タイトルを書き換えました" $spec=@{} $spec.DllFunc="LockWorkStation" $spec.DllName="user32.dll" $spec.retType="void" setApiFunc lock $spec sleep -m 500 lock}

2018.02.16

コメント(0)

powershellでIE操作

powershellでIE操作しようとすると、私の環境では、DOMがまともに取り扱えません。Microsoft.mshtml のアンセンブリがないためらしく、MS officeをインストールする必要があるのだとか。参考そこで対策。ie.ps1#IEオートメーションを扱う際、microsoht.mshtml.dllが適切にインストールされていないシステムでは、#ドキュメントノードやエレメントのメソッドを呼び出す際、いちいちSystem.__ComObjectを介して#間接的にメソッドを呼ばなければならない。書式は複雑で手順も煩雑なため、IE操作のための関数を用意した。# IEの動作関係# openURL WaitIE WaitForElement IeActivate # System.__ComObjectを介するメソッド呼び出し# invokeComMethod # Dom要素取得# querySelectorAll querySelector getElementById # getElementsByName getElementsByTagName getElementsByClassName# Windowオブジェクトのpowershellから$ie.Document.parentWindowが取得できないのでWindow配下の# メソッド呼び出し・プロパティ読み書きを行う関数も用意する。# windowMethod windowProperty# 参考サイト　https://qiita.com/voidProc/items/b3037ccb31676b27ceba###################################################################URLを開くfunction openURL( $url, $visible=$false ){ #IEオブジェクトの取得 try{ [Microsoft.VisualBasic.Interaction]::GetObject|out-null } catch { [reflection.assembly]::LoadWithPartialName("'Microsoft.VisualBasic")|out-null } try{ #ieが起動していればそのオブジェクトを取得 $ie =[Microsoft.VisualBasic.Interaction]::GetObject( "","InternetExplorer.Application" ) } catch { #ieオブジェクトを生成 $ie =new-object -com "InternetExplorer.Application" } $ie.Visible=$visible $ie.Navigate( $url ) return $ie}# IEのページ読み込みが完了するまで待機するfunction WaitIE( $ie, $OkSeconds=0.5　){ # ビジーでない状態が$OkSeconds秒継続したら読み込み終わったと判断する $limit =( get-date ).AddSeconds( $OkSeconds ) do{ if (($ie.Busy) -or ( $ie.ReadyState -ne 4 )){ $limit =( get-date ).AddSeconds( $OkSeconds ) } sleep -m 100 }while( ( get-date ).CompareTo( $limit ) -lt 0 )}#　要素の出現を待つ（要素はCSSセレクタで指定）function WaitForElement( $ie, [string]$selector ){ WaitIE $ie while( $true ){ try{ if ( $e=(querySelector $ie.Document $selector) ){ break } }catch{[void]"err"} [void]"Loop" }}#　このままで動くが、動作が不安定function _IeActivate{ #VB.NETのアセンブリを呼んでおく try{ [void][Microsoft.VisualBasic.Interaction] }catch{ Add-Type -AssemblyName "Microsoft.VisualBasic" } ps iexplore|%{ [Microsoft.VisualBasic.Interaction]::AppActivate($_.id) #ウエイトがないとアクティベートされないらしい。 sleep -m 200 }}#　IEウインドウをアクティブにする#　function IeActivate( $ie ){ windowMethod $ie "focus"}#####################Windowオブジェクト対策#windowオブジェクト配下のメソッド呼び出しfunction windowMethod{ $ie =$args[0] $methodName =$args[1] $others =if ( ($len=$args.length) -gt 2 ){ $args[2..($len-1)] } else { $null } $sc=new-object -com scriptcontrol $sc.language="vbscript" $sc.addobject("ie",$ie) $statement ="ie.document.parentwindow.$methodName(${others})" #"$statement" $sc.executestatement( $statement )}#ウインドウのプロパティの取得と代入　# 取得 windowProperty $ie "location.Href"# 代入 windowProperty $ie "location.Href" "https://www.infoseek.co.jp/"function windowProperty{ $ie =$args[0] $PropertyName =$args[1] $sc =new-object -com scriptcontrol $sc.language ="vbscript" $sc.addobject("ie",$ie) $statement ="ie.document.parentwindow.$PropertyName" #引数に二つ目があれば代入 if ( $val=$args[2] ){ $assignExpression ="$statement = `"$val`"" $sc.executestatement( $assignExpression ) return $val } else { return $sc.eval( $statement ) }}#####################Com上のメソッド呼び出し#function invokeComMethod( $obj, $methodName ){# return [System.__ComObject].InvokeMember( $methodName, [System.Reflection.BindingFlags]::InvokeMethod, $null, $obj, $args )#}#引数が上の呼び方だと、動かないことがある。#動かない例：invokeComMethod $親要素 "appendChild" $子ノード#動かない例：二重の関数 function elementMethod( $elem, $method ){ invokeComMethod $elem $method }function invokeComMethod{ $obj =$args[0] $methodName =$args[1] $others =if ( ($len=$args.length) -gt 2 ){ $args[2..($len-1)] } else { $null } return [System.__ComObject].InvokeMember( $methodName, [System.Reflection.BindingFlags]::InvokeMethod, $null, $obj, $others )}#########################以下Dom操作# CSSセレクタでノードを得る（複数ノード）function querySelectorAll($node, [string]$selector){ #どういうわけかinvokeComMethodで呼ぶとIEが落ちる $nodes = [System.__ComObject].InvokeMember("querySelectorAll", [System.Reflection.BindingFlags]::InvokeMethod, $null, $node, $selector) #$nodes =invokeComMethod $node "querySelectorAll" $selector #どういうわけか配列のままリターンするとIEが落ちる #return $nodes ではダメ $result = New-Object System.Collections.Generic.List[System.__ComObject] for ($i = 0; $i -lt $nodes.Length; $i++) { $result.Add([System.__ComObject].InvokeMember("item", [System.Reflection.BindingFlags]::InvokeMethod, $null, $nodes, $i)) } $result}# CSSセレクタでノードを得るfunction querySelector($node, [string]$selector){ return invokeComMethod $node "querySelector" $selector}function GetElementById( $node, [string]$ID ){ return invokeComMethod $node "getElementById" $ID}#どういうわけかこちらは配列のままでOK。むしろ、queryselectorAllと同様にすると動かない。以下同様function GetElementsByName( $node, [string]$NAME ){ return invokeComMethod $node "getElementsByName" $NAME}function GetElementsByTagName( $node, [string]$TagName ){ return invokeComMethod $node "getElementsByTagName" $TagName}function GetElementsByClassName( $node, [string]$ClassName ){ return invokeComMethod $node "getElementsByClassName" $ClassName}#########################テストプログラムif ( $myInvocation.InvocationName -like "*\ie.ps1" ){ # (1)Googleの検索結果一覧を取得してみる $ie =OpenUrl "https://www.google.co.jp/search?q=test" WaitIE $ie WaitForElement $ie "h3.r a" "LOADED" $links = querySelectorAll $ie.Document "h3.r a" $links | % { $_.innerText } "-----------------------" # (2)別のキーワードで検索してみる $text = querySelector $ie.Document "#lst-ib" $text.Value = "google" $btn = querySelector $ie.Document "#_fZl" $btn.click() WaitIE $ie "-----------------------" $keyword =getElementById $ie.Document "lst-ib" $keyword.Value "-----------------------" #dom操作を試みる $ie =OpenUrl "about:blank" WaitIE $ie $doc=$ie.document $body=getElementsByTagName $doc "body" #HTMLを直接書き込む $body.innerHTML=@"<div><input type="radio" name="rd" value="1">a<input type="radio" name="rd" value="2">b<input type="radio" name="rd" value="3">c</div>"@ #Dom操作でラジオボタンを追加 $radio_div =(getElementsByName $doc "rd")[0].parentNode $radio_d =invokeComMethod $doc "createElement" "input" invokeComMethod $radio_d "setAttribute" "type" "radio"|out-null invokeComMethod $radio_d "setAttribute" "name" "rd"|out-null invokeComMethod $radio_div "appendChild" $radio_d|out-null $radio_txt_d=invokeComMethod $doc "createTextNode" "d" invokeComMethod $radio_div "appendChild" $radio_txt_d|out-null $ie.Visible = $true IeActivate $ie sleep 2 #Dom操作でラジオボタンをチェック $radios =getElementsByName $doc "rd" $radio=$radios[1] invokeComMethod $radio "setAttribute" "checked"|out-null sleep 4 $ie.Visible = $false #Windowを消してアラート表示 windowMethod $ie "alert" "`"aaa`"" #Windowプロパティ取得 windowProperty $ie "location.Href" #Windowプロパティ代入 windowProperty $ie "location.Href" "https://www.infoseek.co.jp/" WaitIE $ie $ie.Visible = $true IeActivate $ie}

2018.02.07

コメント(0)

スクリプト自身のパス２

前回の続き$myInvocaionには前回触れなかった$MyInvocation.ScriptNameなんてのもあることに気付きました。ScriptNameって、まんまじゃん。どうして、Web情報ではあまりこれが出てこないの？？？そこで、テストスクリプトを組んでみました。<Callee.ps1>function fromFunc{'$myInvocation.ScriptName fromFunc='+ $myInvocation.ScriptName}'$myInvocation.Mycommand.Path=' + $myInvocation.Mycommand.Path'$MyInvocation.InvocationName=' + $MyInvocation.InvocationNamefromFunc'$MyInvocation.ScriptName Out of Func=' + $MyInvocation.ScriptName<Caller.ps1>"------------callee says--------------------------------------------". "drive:\folder\callee.ps1""------------caller says--------------------------------------------"'$myInvocation.Mycommand.Path=' + $myInvocation.Mycommand.Path'$MyInvocation.InvocationName=' + $MyInvocation.InvocationNamefromFunc'$MyInvocation.ScriptName Out of Func=' + $MyInvocation.ScriptName<出力>------------callee says--------------------------------------------$myInvocation.Mycommand.Path=drive:\folder\callee.ps1$MyInvocation.InvocationName=.$myInvocation.ScriptName fromFunc=drive:\folder\callee.ps1$MyInvocation.ScriptName Out of Func=drive:\folder\caller.ps1------------caller says--------------------------------------------$myInvocation.Mycommand.Path=drive:\folder\caller.ps1$MyInvocation.InvocationName=drive:\folder\caller.ps1$myInvocation.ScriptName fromFunc=drive:\folder\caller.ps1$MyInvocation.ScriptName Out of Func=で、まとめてみました。長いんで略記$myInvocation.Mycommand.Path　→　path$MyInvocation.InvocationName　　→　iname$myInvocation.ScriptName　　　　→　sname※呼んだ方呼ばれた方path自分のパス呼ばれた方のパスiname自分のパスドット（実質空）関数内sname関数を呼んだスクリプトのパス関数を呼んだスクリプトのパス関数外sname空っぽ自分を呼んだスクリプトのパス今回はここまで。多段呼び出しのときどうなるかなど、奥は深そうです。

2017.08.22

コメント(0)

スクリプト自身のパス

「powershell スクリプトを書いているとき、自分自身のパスを知りたい」というのは、よくある話。ネットで検索すると、$myInvocation.MyCommand.Pathを使えばおkみたいなことが書いてあります。でも、似たようなのに、$myInvocation.InvocationNameてのがあって、こっちも、スクリプトのパスを返すんです。じゃ、何のために二つあるかというと、実は違いが。$myInvocation.MyCommand.Pathはどこから呼んでも、そのスクリプトのパスを返すのですが、$myInvocation.InvocationNameは別スクリプトから呼ばれると、"."ドットを返すみたい。で、これを使えば、関数スクリプトを定義するとき、スクリプト内にテストプログラムも書けるって寸法。sample.ps1function foo{"..."}if ( ( split-path -leaf $myInvocation.InvocationName ) -eq "sample.ps1"){ #fooを実行してみる foo}で、よそのスクリプトで. sample.ps1で呼び出しても、fooのテスト実行は行われないというわけ。※「split-path -leaf $myInvocation.InvocationName」を囲むカッコを忘れていたので追記。2018/06/07

2017.08.21

コメント(0)

割り切れない悩み（ゼロ除算がキャッチされない）

次のスクリプトで、除算エラーが try & catch できないので悩んでいました。try{ $a=(1/0)}catch { "割れない"}0 で除算しようとしました。発生場所行:2 文字:11+ $a=(1/ <<<< 0) + CategoryInfo : NotSpecified: (:) []、ParentContainsErrorRecordException + FullyQualifiedErrorId : RuntimeExceptionいろいろGGRKSってみたところ、powershellは単純なインタプリタではなく、一度コンパイルされた後解釈実行するエラー処理が可能なのは後段の解釈実行時のみで、コンパイル時のエラーは捕捉されないという事実が分かりました。参考上の例では、変数aへの代入は定数式なので、コンパイル時に決定してしまう。なので、エラートラップは発動しない、というわけ。これを捕捉したかったら、次のように書けばいいのでした。try{ $a=iex "(1/0)"}catch { "割れない"}

2017.07.24

コメント(0)

Nas上のps1起動法

NAS上にps1スクリプトを置いているけど、どうやって起動するか、ずっと悩んでいました。　NASをIP直叩きで運用している（＝アドレスにピリオドが含まれる＝Windowsがインターネットゾーンと認識する）ため、NAS上のPS1ファイルはリモートにあるとみなされてしまいます。　powershellのExecutionPolicyをUnrestrictedまで緩めるのも何だかなあと思っていました。　最近、ようやくうまい解決法を思いつきました。①起動したいps1のショートカットを作る②ショートカットのプロパティを開き、そのリンク先を加工する　具体的には、　リンク先文字列の先頭に　"powershell -ExecutionPoliocy Bypass "を追加します。このとき、オプションとして、" -STA "とか" -WindowStyle Hidden "とか柔軟に追加できるのも好都合です。　あとは、ショートカットを起動すればOK。ただこの方法ではPS1を編集したいとき、ショートカットは使えなくなります。追記：20170724このままだと、Ｗｉｎｄｏｗｓが勝手にショートカットを消してしまうことが発覚しました。これを避けるためには、ショートカットを作成したらすぐ、圧縮フォルダに送り、「ショートカット名」.zipにしておくことです。使うときはひと手間増えますが、zipを開き、中のショートカットを起動します。

2017.06.13

コメント(0)

powershelで記述できるバッチ

バッチの引数をきちんと受け取るのは結構大変。二重引用符対応。シングルクオート未対応。注意事項：ヒアドキュメント（@"～"@）中の二重引用符は`でエスケープしないと機能しない。@SET self=%0 @SET args=%* & MORE +2 %0 | powershell.exe -sta -command - & GOTO:EOF########################################################################################################引数処理#バッチの引数がpowershellの$arguments配列に入る。#二重引用符中の空白を除き、連続空白を１個のセパレータとして引数配列に分割する。#バッチ自身のパスは$Env:selfでアクセス可能#######################################################################################################$argstr =$env:args$arguments =@()$space ="<space>"while( $argstr -match $space ){ $space +="_"}$spacers =@()$regex =[regex]"`"[^`"]+`""#"エディタの文字列色別表示を満足させるための引用符。外してOK$matches =$regex.Matches( $argstr )$matches|%{ $from =$_.value $to =$from -replace " ", $space $spacers +=,@{ from =$from to =$to }}$spacers|%{ if (!$_){return} $argstr =$argstr.replace( $_.from, $_.to )}$argstr -replace " +", " " -split " "|%{ if ( !$_ ){return} $arg =$_ $spacers|%{ $arg =$arg.replace( $_.to, $_.from ) } $arguments +=,$arg}##############################################################################################################以下、powershellスクリプト領域#############################################################################################################

2017.05.24

コメント(0)

でも画面を確認したいときもあるよね（ps1をタスクスケジューラで起動するとき黒画面を出したくない）

前回、「ps1をタスクスケジューラで起動するとき黒書いたんだけど画面を出したくない」を書いたんだけど、コンソール非表示だと、スクリプトがきちんと動いているかどうか確認できません。　とはいえ、画面を出してしまうと、スクリプトがサーバ系の常駐ものだったりすると、うっかりコンソールを閉じてしまって困るなんてことも。　できれば、コンソールは普段非表示にしておいて、必要なときだけ見たい。そういうときはUWSCの出番かな。　下のは動的にUWSCスクリプト（DispTogglePs1.uws）をpowershellで生成して実行するバッチ。実行するたびに表示、非表示が切り替わる。@SET self=%0 @SET args=%* & MORE +2 %0 | powershell.exe -WindowStyle Hidden -command - & GOTO:EOF$uws ="$Env:temp\DispTogglePs1.uws"$UWSCexe="UWSC.exe"$src =@"for id in getallwin()　 if pos( `"powershell.exe`", status( id, st_path ) )　　//msgbox(status( id, st_title ))　　if status( id, st_visible )　　　ctrlwin( id, hide )　　else　　　ctrlwin( id, show )　　endif　 endifnext"@$src > $uwsStart-Process -FilePath $UWSCexe -ArgumentList $uws -NoNewWindow -Waitsleep 1rm $uws

2017.05.16

コメント(0)