VBS(VBScript)によるDCOMアプリケーションへアクセス可能なSIDの関連付けを取得する方法を紹介
WMIを使って、DCOMアプリケーションへアクセス可能なSIDの関連付けを取得(GUID、SID)
サンプルソース
※取得可能なプロパティ(情報)は、以下手順で取得可能⇒WMIのクラス・プロパティ一覧の確認
※「型が一致しません」のエラーが出る場合⇒VBSのWMIの出力で、型が一致しませんのエラーが出る場合
(入力:cscript)
Dim qu,cl,swbe,service,sms1,sms2
Set swbe = WScript.CreateObject("WbemScripting.SWbemLocator")
Set service = swbe.ConnectServer
Set qu = service.ExecQuery("Select * From Win32_DCOMApplicationAccessAllowedSetting")
For Each cl In qu
sms1 = cl.Element
sms2 = cl.Setting
Wscript.Echo "Element:" & sms1
Wscript.Echo "Setting:"& sms2
Wscript.Echo
Next
(出力)
Element : \\HOSTNAME\root\cimv2:Win32_DCOMApplication.AppID="{00021401-0000-0000-C000-000000000046}"
Setting : \\HOSTNAME\root\cimv2:Win32_SID.SID="S-1-5-4"
Element : \\HOSTNAME\root\cimv2:Win32_DCOMApplication.AppID="{00021401-0000-0000-C000-000000000046}"
Setting : \\HOSTNAME\root\cimv2:Win32_SID.SID="S-1-5-10"
Element : \\HOSTNAME\root\cimv2:Win32_DCOMApplication.AppID="{00021401-0000-0000-C000-000000000046}"
Setting : \\HOSTNAME\root\cimv2:Win32_SID.SID="S-1-5-18"
Element : \\HOSTNAME\root\cimv2:Win32_DCOMApplication.AppID="{020FB939-2C8B-4DB7-9E90-9527966E38E5}"
Setting : \\HOSTNAME\root\cimv2:Win32_SID.SID="S-1-5-18"
・・・・・・・(以下続く:省略)・・・・・
※レジストリ HKEY_CLASSES_ROOT\APPID でも確認可能。