IMHO.WS - WSH (Windows Scripting Host) задача

IMHO.WS (https://www.imho.ws/index.php)

- Программирование (https://www.imho.ws/forumdisplay.php?f=40)

- - WSH (Windows Scripting Host) задача (https://www.imho.ws/showthread.php?t=53530)

WSH (Windows Scripting Host) задача

Поставили мне тут задачку....
написать скрипт под сабж, чтоб выдавал список юзверей домена с их мыльницами.
Пробовал кое-какие примеры - нифига не запахало
например этот вообще нифига не выводит

Цитата:

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

а как приписать чтоб оно еще и мыло выводило? и без компов было.

Попробуй вот это

Цитата:

Set oRoot = GetObject("LDAP://rootDSE")
Set oDomain = GetObject("LDAP://" & oRoot.Get("defaultNamingContext"))
DomainDistName = oDomain.distinguishedName
Set Conn = CreateObject("ADODB.Connection")
Set Comm = CreateObject("ADODB.Command")
Set rs = CreateObject("ADODB.Recordset")
Conn.Provider = "ADsDSOObject"
Conn.Open "Active Directory Provider"
Set Comm.ActiveConnection = Conn
Comm.CommandText = "SELECT CN,mail from 'LDAP://" & DomainDistName & "' " _
& "WHERE objectClass = 'user'"
Set rs = Comm.execute
rs.MoveFirst
Do Until rs.EOF
Mail = rs.Fields("mail").Value
CN = rs.Fields("CN").Value
Wscript.echo CN & "(" & Mail & ")"
rs.MoveNext
Loop
rs.Close
Set oRoot = Nothing
Set oDomain = Nothing
Set Conn = Nothing
Set Comm = Nothing
Set rs = Nothing
Set oCont = Nothing
Set NewUser = Nothing
Set oUser = Nothing

неизвестный метод Debug.Print :confused:

я поправил..)) посто это из VB