<   2015年 12月 ( 4 )   > この月の画像一覧
凧上げ
a0021757_14190769.jpg
凧上げをしたよ。あんま風がなかったけど、結構楽しめた。

[PR]
by yozda | 2015-12-31 14:18 | 暮らし | Trackback | Comments(0)
[VBScript] 管理者昇格してスクリプトを実行する 【改良版】
こんにちわわ。どーもボキです。

ExecRunas関数内でWScript.Quitすれば、前回バージョンのような判定処理は不要になるね。

実行部
' 管理者権限でVBSを実行する
ExecRunas

' ~管理者権限で実行したいソース~


実装部
'--------------------------------------------------------------------------------------------------------
'OSのバージョンを取得する
Const osWinNT = 4.0
Const osWin2k = 5.0
Const osWinXP = 5.1
Const osVista = 6.0
Const osWin7 = 6.1
Const osWin8 = 6.2
Function GetOSVersion
Dim objWMI, osInfo, os

Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set osInfo = objWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each os in osInfo
GetOSVersion = CDbl(Left(os.Version, 3))
Next
End Function
'--------------------------------------------------------------------------------------------------------
' 管理者に昇格して実行する
Function ExecRunas
Const cKey = "/ExecRunas"
Dim s

' ExecRunas実行チェック'
If WScript.Arguments.Count > 0 Then
If WScript.Arguments.item(0) = cKey Then Exit Function
End If

' OSバージョンチェック'
If GetOSVersion < osVista Then Exit Function

' 引数を生成'
s = ""
For i = 0 To WScript.Arguments.Count -1
s = s & " """ & WScript.Arguments.item(i) & """"
Next

' Runas実行'
CreateObject("Shell.Application").ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """" & " " &cKey& " " & s, "", "runas", 1

' VBS実行を終了'
WScript.Quit
End Function
'--------------------------------------------------------------------------------------------------------

[VBScript] 管理者昇格してスクリプトを実行する
[PR]
by yozda | 2015-12-20 15:37 | プログラミング | Trackback | Comments(0)
[スコア] Mr.Big Suffocation
こんにチワワ。どーもボキです。

リッチー・コッツェン時代のMr.Bigの名曲。ドロップDチューニングと思われる。
良く出来たスコアだが、こんなに難しいの?Mr.Big - Suffocation gpx 악보直リン

쓸고퀄 gpx 제작소(トップページ)



[PR]
by yozda | 2015-12-20 13:36 | ギター | Trackback | Comments(0)
nokia N82が使えなくなったので、ZTE 301Zに機種変した。
こんばんワイン。どーもボキです。

電波強度規制強化か何かで、nokia N82がSIMカードを認識しなくなった。
その前に使っていたnokia 702nk2も同様に利用不可。
ちなみに705nkやX02NKなど一部使える機種もあるようだ。残念だが、ボキのnokia携帯は全滅。

仕方がないので他のガラケーを探していたら、ストレート携帯で良いのを見つけた。
301Z。ZTEという中国に本社があるメーカー。

N82比較でよいところ
●薄い (301Z=13mm : N82=17mm)
●ボタンを押しやすい。
●マイクロUSB端子で充電できる (100均のものでOK、N82は専用コネクタ)
●操作状態に関わらず自動ロックが作動する (N82の自動ロックは待ち受け状態のみ動作)

N82比較で悪いところ
▲レスポンスがクソすぎる。 ('07年製のN82比較でも、'14製の301Zはモッサリ。操作すら苦行)
▲アドレス帳移行が(簡単には)出来そうもない。(iPhone → vcfインポートだと、表示文字がバグる)

ストレート&シンプル携帯を探していたので気に入ってはいる。
楽天にて、中古で3980円。送料込み
a0021757_19131253.jpg


[PR]
by yozda | 2015-12-09 08:26 | 物・モノ・もの | Trackback(1) | Comments(0)