Поставили мне тут задачку....
написать скрипт под сабж, чтоб выдавал список юзверей домена с их мыльницами.
Пробовал кое-какие примеры - нифига не запахало
например этот вообще нифига не выводит
Цитата:
Set objGroup = GetObject _
("LDAP://cn=Users,ou=management,dc=sprs")
For each objMember in objGroup.Members
Wscript.Echo objMember.Name
Next
|
получилось вывести хрен знает что (и компы, и юзеров) через ADO
вот так
Цитата:
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
"Select Name, Location from 'LDAP://DC=sprs' " _
& "where objectClass='User'"
objCommand.Properties("Page Size") = 5000
objCommand.Properties("Timeout") = 10
objCommand.Properties("Searchscope") = 5
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strUser = objRecordSet.Fields("Name").Value
' strUserMail = objRecordSet.Fields("mail").Value
Wscript.echo strUser
' Wscript.echo strUserMail
objRecordSet.MoveNext
Loop
|
а как приписать чтоб оно еще и мыло выводило? и без компов было.