ローカル管理者の一覧をActive Directoryの一覧から取得する

'ローカル管理者の一覧を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

関連する記事

• Active Directory上からコンピュータオブジェクトを取得し、オンラインだった場合に起動時間を取得するスクリプト (0)
• Active Directoryに所属したコンピュータからActive Directoryの情報を取得するスクリプト (0)
• 稼動している全てのゲストOSのスナップショットを古い方から削除する@Hyper-V (0)
• 全てのマウントされているネットワークドライブを表示する (0)
• 仮想マシンをドメインコントローラにした場合の起動方法@Microsoft Virtual Server 2005 R2 SP1 (0)