Windows 10

AppUserModelId(AUMID)を列挙するVBScript

「ファイル名を指定して実行」からMicrosoft Edgeを起動する」でも書いていますが、UWP(Windows ストア)アプリのAppUserModelId(Application User Model ID)さえ分かれば「shell:AppsFolder」からアプリを実行することができます。

PowerShellやレジストリから調べることもできますが、アプリケーションフォルダから取得することもできます。

今回はアプリケーションフォルダからアプリのAppUserModelIdを取得するVBScriptを紹介します。

Option Explicit

Dim itm

'[.Namespace("shell:::{4234d49b-0245-4df3-b780-3893943456e1}")]でも可
With CreateObject("Shell.Application").Namespace("shell:AppsFolder")
  For Each itm In .Items
    WScript.Echo itm.Name & ", " & itm.Path
  Next
End With

List_AppUserModelId_01

上記の通り非常にシンプルです。
上記コードを少し変えれば、アプリ名を指定してアプリを実行するスクリプトになります。

Option Explicit

Dim id

id = GetAUMID("電卓")
If id <> "" Then
  CreateObject("WScript.Shell").Run _
    "explorer.exe shell:AppsFolder\" & id
End If

Private Function GetAUMID(ByVal AppName)
  Dim itm
  Dim ret
  
  ret = ""
  With CreateObject("Shell.Application").Namespace("shell:AppsFolder")
    For Each itm In .Items
      If InStr(itm.Name, AppName) Then
        ret = itm.Path
        Exit For
      End If
    Next
  End With
  GetAUMID = ret
End Function

List_AppUserModelId_02

もちろん、VBAからでも同様のコードでアプリを実行できるので、UWP(Windows ストア)アプリの起動でお困りの方は是非お試しください。

関連記事

  1. Windows関連

    [Windows 8]エクスプローラーのリボンを無効にする。

    ※ 下記はWindows 8 Release Preview(日本語版…

  2. Windows関連

    Windows 8.1をインストールしてみました。

    下記の記事にもあるように、開発者向けにWindows 8.1の製品版(…

  3. Windows関連

    Windows 8 Release PreviewにClassic Shellをインストールしてみま…

    2012/8/22 追記:Windows 8 RTMにインストール…

  4. Windows 10

    [Windows 10]ペイント 3Dを起動するコマンド

    今回はWindows 10 Creators Updateで追加された…

  5. Windows 10

    Windows 10に昔のソフトを入れてみました。

    「Windows 10 Technical PreviewにOffic…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP