ローカルコンピュータのAdministrators グループのユーザ名を得るサンプル ---------------------------------------------------------------- strComputer = "." 'コンピュータ名:ピリオドは現在のコンピュータ Set objWMIService = GetObject( _ "winmgmts:\\" & strComputer & "\root\cimv2") Set MemberRefs = objWMIService.ExecQuery _ ("SELECT * FROM Win32_GroupUser WHERE GroupComponent = ""Win32_Group.Domain='BUILTIN',Name='Administrators'""") 'ドメインとメンバーを調べたいグル