'ローカル管理者の一覧をActive Directoryの一覧から取得 On Error Resume Next Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = _ "SELECT name FROM 'LDAP://dc=pnpk,dc=local' WHERE objectCategory='computer' " & _ "AND operatingSystem <> 'Windows Server 2003'" Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF strComputer = objRecordSet.Fields("Name").Value Wscript.Echo strComputer Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators") For Each objMember In objGroup.Members Wscript.Echo objMember.AdsPath Next Set objGroup = Nothing objRecordSet.MoveNext Loop