一時的にシステム時刻変更してちょっとしたら戻す

一時的にシステム時刻を変更することってありますよね
例えば今だと

  1. 0時直前くらいに変更して日付またぐのを待って
  2. 用が済んだら元の時刻に戻す

というのを頻繁にやってます
ただ、元の時刻に戻すときなるべくちゃんと時刻を合わせたいよねってなる

ので

# 元の時刻を$org、変更したときの時刻を$tmpとする
$org.Add((Get-Date) - $tmp) | Set-Date

みたいなことをすればまぁわりといい感じに元に戻せるんだけども
じゃあその $org$tmp の変数に時間突っ込むときどうするよってお話です

2行書く

PS> $org = Get-Date
>>> $tmp = Set-Date 23:58

イヤじゃね?1行がよくね?

配列で受ける

PS> $org, $tmp = (Get-Date), (Set-Date 23:59)

() 書くのだるくね?

$tmpにプロパティ生やす

PS> $tmp = Set-Date 23:58 | Add-Member -MemberType NoteProperty -Name org -Value (Get-Date) -PassThru

長くね?
この場合戻すときはこうなる

PS> $tmp.org.Add((Get-Date) - $tmp) | Set-Date

$tmp.org がもうなんか壊滅的にダメだなという気持ちにさせる

まとめ

なんかもっとシュッとしないかなーって
オチはないよ

広告

おのれwow64て久しぶりになった話

UWSCの話です

win7でSP1当たってるかどうか確かめるのにレジストリ見てたんですけどね

with createoleobj("WScript.Shell")
    CSDVersion = .RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CSDVersion")
endwith
msgbox(CSDVersion)

としてたら x64 環境でエラーになってだめだったんですね
Wow6432Node のほう見てたっぽい
そっちには CSDVersion がない

WMIで解決する
なんか WbemScripting.SWbemNamedValueSet というやつです
それで __ProviderArchitecture が64だよって教えてやるとリダイレクトしない

key    = $80000002
subkey = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
name   = "CSDVersion"
if kindofos(TRUE) then
    type = 64
else
    type = 32
endif
CSDVersion = EMPTY

valueSet = CreateOleObj("WbemScripting.SWbemNamedValueSet")
valueSet.Add("__ProviderArchitecture", type)
locator = CreateOleObj("Wbemscripting.SWbemLocator")
service = locator.ConnectServer("", "root\default",,,,,,valueSet)
stdRegProv = service.Get("StdRegProv")
if stdRegProv.GetStringValue(key, subkey, name, var CSDVersion) = 0 then
    msgbox(CSDVersion)
endif

SWbemNamedValueSet 渡すのにもっとこう気持ち悪くない方法ないんじゃろか…

最近はUWSCの終息ムードがありつらいですね
そんでUWSCの代替としてのAutoIt的な記事を書こうかと思ってたんだけど
どうやらAutoItをぜんぜん触ってないから書けなさそうというフィールがあります
だってそれUWSCで書けばよくねってなるからね
なるんだよ

カテゴリー: UWSC

UWSCでタスクトレイアイコンを表示する (COM版)

お仕事で使ってるツールで常駐型のがあるんですけどね
タスクトレイアイコンが出せるといろいろ便利だろうなーてことで

UWSCでタスクトレイ常駐する – じゅんじゅんのきまぐれ

を使ってアイコン出してたんですね
不自由なく使えててゴキゲンだったんですけどある日事件が起こる
F-SecureのアンチウイルスソフトにUWSCから呼んだPowerShellが…

ブロックされてしまった!

例外登録とかもできずどうしようもなかったのだ…
ぼくは悲しみに暮れた

のでCOMで使えるやつをつくった
createoleobj() できるやつだ!
C#で書きました

サンプルコードは一番下にあるよ

どういうのか

任意のアイコンを表示させられます
oleevent() でアイコンをクリックしたときのイベントを処理できます
アイコンは途中で変更できます

大変だったこと

C#ほとんど書かないのでまず書き方を忘れていたよね
COM用のDLLはむかーしちょっとしたの書いたことがあったので
それを掘り起こしつつ地味に書き進めました…が

動かない!想定どおりに動かない!
とくにイベント周り!

公開するインタフェースの各メンバに DispId 書いてなかったんですよね最初
その状態でもプロパティにアクセスしたりメソッド叩いたりはできたので油断したよね
イベント発火するとイベントハンドラが未定義だ!って怒られるわけよ
oleevent() は成功してるのに!
(ちなみにこの状態でもPowerShellから呼ぶと成功するので混乱した)

んで、そこを乗り越えたら簡単なイベントはちゃんと扱えるようになりました
ヨカッタネ☆ …て思うじゃん?
今度はもっと深みにはまった…
アイコンをクリックした時のイベントハンドラからデリゲートを呼ぶようにしてたのさ
(そのデリゲートが公開してるイベントなわけね)
するとどうだ、イベント発火時にUWSCがクラッシュするではないか
つらい

これが全然原因わからなくって…
いやなんかうすうすSTAとかそういうのじゃないかなとか考えてはいたんですけど
そうだとしても実装方法がさっぱりわかんなかったのだ…
ぐぐっても出てこないというかどうやってぐぐればいいかもわかんなかった系でね
RegAsmすると ThreadingModelBoth になってるし…
なにこれ Apartment に書き換えればいいの…?
関係ねぇよ!! (関係なかった

つらい

まぁでも解決しました
結論を言うとイベントハンドラを追加してたメソッドに
[STAThread]
付けただけなんですけどね

いやだってさーこれさーexe書くときにエントリポイントにつけるもんです!
って解説されてるわけでさー…じゃあDLLのときはどうすんのとかわかんないわけよ!
ダメ元で書いたけど当初他の理由でうまくいかなかったりしててね…
しばらくこれが正解だって気付かなかったんだよね

まぁなんかそういうことしながらなんとかやりました
ほめて

使う時の心得

RegAsmしなきゃなので管理者特権が必要です
スクリプトから登録もしたいという場合は注意してね

RegAsmしなくて使う方法もあるんだけどそれはそれでいろいろめんどくさい
reg free com とかでぐぐると出てくるよ

サンプルコード

エラーハンドリング全くしてないのでなんかしくじると落ちます

カテゴリー: UWSC

PowerShellのPackageManagementでChocolateyGetを使う

Linuxユーザの方には馴染み深いであろうパッケージ管理ですが、Windowsにも結構前からChocolateyというのがあってまぁこれが便利なわけですよ
ただしPowerShellユーザにとっては choco コマンドを叩くとかわりと苦痛でしかないわけで
でも大丈夫、PackageManagementがChocolateyを内包してくれるんだ

続きを読む

UWSC5.3.0出てましたね

変更点
http://www3.rocketbbs.com/13/bbs.cgi?id=umiumi&mode=pickup&no=3740

今回はSublime Text用のUWSCパッケージに手を入れる必要がなくてヨカッタネ

いやー、正直やりたくねーめんどくせーとか思ったのでありがたい
…やりたくねーめんどくせーと思ってしまった

Visual Studio Code向けUWSC拡張も結局完成させずに放置してたら完全にやる気を失ってしまった
(ちなみにそれはVSCode正式版が出る前に着手したものなんで当時と仕様変わっててちゃんとうごかねーんじゃねーかなってことでなかったことにしました、今)

あんなに好きだったUWSCに対してでもモチベートできない
UWSCに限らないんだが、まぁ

カテゴリー: UWSC

#一ヶ月COMPだけ生活 を終えて

こういうのをやりました

一ヶ月間COMPだけ食べるというのをやります(やりました) | たっぷす庵

なんだかんだでやりきってしまいました

そもそもなんでこんなこと始めたか

これ がね、ずっと気になってたわけですよ
COMPを知る前はずっとソイレントが気になってたのでいろんな記事見てて、その中の一つだったわけですがまぁインパクトあるよね
このおっさんの様子がどんどんおかしくなっていくんですもの

で、ソイレントは入手が難しかったけどCOMPが出てきた
常用するようになって、ふと思いたったわけです

僕もあれやろう、一ヶ月のやつ!


あのオッサンみたいになるのかなー、ワクワクだなーとそれを思いついた10月半ばくらいにぽわぽわしてました

実際どうだったか

精神に異常どころかとくになにもありませんでした
件のおっさんと違って僕の場合はすでにCOMPを半年近く常食しており、COMPの摂取に抵抗がなかった、というかCOMPのない生活が考えられないという程度にはCOMPを受け入れていたのが大きいんじゃないかという気がします
初めてCOMP買っていきなり今後はCOMPしか食わないぜふっふー!とかやると危険なのかもしれんね

身体への影響は?

あんまないと言えば、ない

体調面

もともと悪いんですが悪いのがそのまま維持されてました
COMPの影響は特になかった

便

💩ね
これは変化ありましたよ、ええ
一週間経過したくらいで便がなんだかだいぶ硬くなってまいりましてね
おかげで腸が耐えきれなかったのか出血しました
出血は10日くらい続いた、最長記録だ

その後は寒い日が続いたりしておなかの調子がわるくなったので緩めだったけど
うん、おなかの丈夫な人ならずっとカッチカチなんじゃなかろうか

それと、その硬かった期間は排便もスムーズでした
COMPだけ食べてれば便秘しないんじゃないかな
そんであれです、量はとても減ります、あんまり出ない

あとあれだ、色はCOMP色になる

あご

弱ってた!
めっちゃ弱ってた!
久しぶりに噛んで食べたら痛いし疲れるんですよ!
びっくりしたね
痛いのは2日くらい続きました

COMPだけで生活するならいざという時のために日々エアガム噛むなどなにか対策が必要

ふつーの食事の代替となりえるのかしら?

うん、なってたんじゃないかな

普段から活動というほど活動してないからというのはあるんですけど、生活するのに必要なものはちゃんと補充されてた感じ

その後のあれ

#一ヶ月COMPだけ生活 に #その後 というのを加えてつぶやいたのを拾っておく

あごがつれぇ

ある意味主食だったもの

ちょっとこの日味覚変だったんだよね
今はあれです、味のする食べ物おいしいです!

なにか食べる度にダメージ

油いいよね…

意外と平気で、その後も平気なままでした

二日目はまだダメージがある

肉食いに行こうぜ!と誘われたので奢らせってもらった
ちょっとお高いステーキおいちい!

このあたりであまり痛みが気にならなくなる

緊急来日しためんたろ社長によりCOMP祭り?が開かれると見せかけてHoloLens体験会が始まったのであった
COMPも試飲させたので一応祭りの体裁は守られたかに見えた
しかし