VBScript

GUIDを作成するVBScript

Office アドインを作成するのに必要(マニフェストのId要素)なGUIDですが、いちいちguidgen.exeを立ち上げたり、Generate GUIDs onlineにアクセスするのも面倒くさいので、手軽に取得できるようスクリプトを作成しました(元々は「[Office用アプリ]野良アプリのススメ」で書いたコードです)。

Option Explicit

Dim ret

Do
  ret = InputBox("終了する場合は「キャンセル」ボタンをクリックしてください。", _
                 "GUID作成", _
                 LCase(Mid(CreateObject("Scriptlet.TypeLib").GUID, 2, 36)))
Loop Until Len(Trim(ret)) < 1

実行すると下図のようにInputBoxが表示され、Enterキー、もしくはOKボタンをクリックすると、GUIDを再生成します。

CreateGUID

Enterキーを押して気に入った(?)GUIDが作成されたらCtrl + Xキーを押して切り取り、ESCキーを押してスクリプト終了、なかなか手軽で便利です。

関連記事

  1. VBScript

    Acrobatを使ってPDFファイルを結合するVBScript

    「Acrobat PDF 結合 コマンドライン」といったキーワード検索…

  2. VBScript

    Internet Explorerのお気に入りを列挙するVBScript

    Internet Explorerのお気に入りにどの位のインターネット…

  3. Office関連

    [Mayhem]PowerPointマクロにショートカットキーを割り当てる。

    2012/4/20 追記:クイックアクセスツールバーのメニューを利用す…

  4. Office関連

    「2014年12月のWindows Update以降コマンドボタンが使えなくなった」トラブルへのFi…

    当ブログでも「KB2553154の更新プログラムをアンインストールする…

  5. VBScript

    WordPressのバックアップを取ってローカル環境で動かす方法(3)

    「WordPressのバックアップを取ってローカル環境で動かす方法(1…

  6. VBScript

    ドラッグ&ドロップされたファイルの内容をクリップボードにコピーするVBScript

    「clipコマンドを利用してクリップボードに文字列をコピーするVBSc…

コメント

  • コメント (0)

  • トラックバックは利用できません。

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP