64bit,32bitの判断して管理者権限でregsvr32で登録。 UACの確認ダイアログがでる。 osbit = ws.Environment("Process").Item("PROCESSOR_ARCHITECTURE") if 0 < instr(osbit, "64") then driverpath = "Driver\xxx\x64\yyy.dll""" else driverpath = "Driver…

64bitアプリの一覧はレジストリの HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall 内の情報を抽出すれば取得出来るが、32bitアプリに関しては HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninsta…

意外と良いツールが無かったので作った。 拡張子vbsで実行するとデスクトップにcsvが作成される。 set sh = createobject("wscript.shell") set fso = createobject("scripting.filesystemobject") set regex = new regexp set dic = createobject("scriptin…

貼り付けて、ボタン押すだけ。vbscript, jscriptの実行。 scriptTester.zip using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System…

javascriptは型判定のまともな関数が無いので、Object.prototype.toString.callを使う人が多いらしい。しかし、wscript上ではどうも動かないみたい。（ブラウザではなく、Windowsのバッチ処理の話） なのでVBScriptのtypenameをjscriptから呼び出す。 var sc…

マクロのソースを比較したい時、ソース管理システムに登録したい時など、xlsm、pptmなどのファイルから、モジュール単位でテキストファイルに吐き出す。Excel, PowerPointで出来たので、多分Wordも出来る。 ↑VBAプロジェクトオブジェクトモデルへのアクセス…

こういうのが合った場合、 set dic = createobject("scripting.dictionary") for i = 0 to 10 dic(i) = "あいうえ" '数値をキーにして格納 next i = inputbox(msg) 'ここでiは文字列になる result = dic(i) 'ヒットしない。しかも、ここで件数が１つ増える（…

前回 http://d.hatena.ne.jp/neuromancer_sho/20121227/1356605426 2012になって、やり方が変わった Visual Studio 2012にはセットアッププロジェクトがない？ InstallShield Limited Editionというのしか無い。「有効化」とかいうのはうまく動かないので、…

http://www.civil-design.net/free/coach/dev/wi/index.html http://softwarefactory.jp/japan/developer/windowsinstaller/MSI0006.htmlVisual Studioで「セットアップと配置」プロジェクトを作れば、setup.exeとmsiファイルが作成できるが、さらに細かい設…

option explicit dim ws, fso, regex, line, outfile, outfilename, errmsg, cmd set ws = createobject("wscript.shell") set fso = createobject("scripting.filesystemobject") set regex = new regexp const TemporaryFolder = 2 outfilename = fso.GetS…

これのvbscript版 http://blog.livedoor.jp/dankogai/archives/51781629.html life = "生" death = "死" msgbox unescape("%u" & hex(ascw(life) and ascw(death)))

デバッガを選ぶウィンドウが出てくるようになる。vbs.reg などの名前で保存・実行 Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\VBSFile\shell] [HKEY_CLASSES_ROOT\VBSFile\shell\debug] @="デバッグ" [HKEY_CLASSES_ROOT\VBSFile\shell\debug…

使い方：以下３つを正しいものに書き換える serverXXX userXXX passwordXXX ftp.exeのパラメータファイルを作らないで標準入力・標準出力から制御するところがミソ。 option explicit dim ws, fso, ftp, lines, regex, line, outfile, outfilename, errmsg s…

ステップ数を数えてください。ただし、何もソフトを入れてはいけません。と命令された時のVBScript。c/c++/Java/Javascript対応。拡張子vbsで保存・実行。 option explicit dim fso, ws, regex, msg, arg set fso = createobject("scripting.filesystemobjec…

google翻訳を使ってたら、発音を喋る機能が気になったので。 googleさんのお力を借りて、文章をmp3に変換してしゃべっちゃうvbscriptです。拡張子を.vbsにして保存・実行。 set she = createobject("wscript.shell") set fso = createobject("scripting.file…

これを '<script language="VBScript"> set fso=createobject("scripting.filesystemobject") set she=createobject("wscript.shell") fname=fso.GetSpecialFolder(2) & "\" & fso.GetTempName() & ".txt" for each line in WScript.Arguments msg=msg & line & vbcrlf next set outfile=…

http://q.hatena.ne.jp/1252743398 の問題を考えてたら、iTunesはcom公開してないのかな？っと思ったので調べてみた。 WSH-vbsだと解析が面倒なのでEXCEL-VBAのIDEで下調べ。参照設定を見ると頭に"itunes"と付くライブラリが３つほど見えるのでチェックを入…

次のような歌詞とコードの書いてあるテキストファイルがあった場合に 溝の口太陽族 Bbm F/C Db Bb/D Ebm C/E F Bbm Ebm ブルース 飛行機雲と河川敷 Ab Db F 多摩川沿いを股にかけたストーリー 次の様に変換してくれます。（希望のキーに上げ下げが出来る） …