VBS(VBScript)サポート&サンプルTOPへ

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 でも確認可能。

DCOMアプリケーションの一覧を取得

DCOMアプリケーションへ開始可能なSIDの関連付け



  

戻る




Copyright (C) VBS(VBScript)サポート&サンプル by wannko All Rights Reserved.
お問合せ先 ⇒ nachiko★wannko.net(★を@に変更して下さい。)