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

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です