Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > VBscript выбор компьютера по ДНС суффиксу

Автор: Georg4 28.11.2008, 17:55

Граждане, вопрос такой. Сам я на ВБскрипте не программлю,  но понадобилось,.. Вот в этом куске кода: Код Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.OpenTextFile("soft_list.txt", 2, True) 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=mydomain, DC=local' " _ & "Where objectClass ='computer'" objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF    strComputerName = objRecordSet.Fields("Name").Value    ViewSoft(objRecordSet.Fields("Name").Value)    file.WriteLine (objRecordSet.Fields("Name").Value)    objRecordSet.MoveNext Loop file.Close как я понял, выбираются компьютеры из домена, при чем все... А мне вот нужно чтобы выбирались машины с определённым DNS- суффиксом. В связи с тем вопрос, где эта штука там задается?

Автор: Akina 28.11.2008, 22:37

Пробегись ForEach-ем по всем пропертям одного из objRecordSet, и для каждого запроси имя и значение. Глядишь, нужное-то и найдётся... Цитата(Georg4 @  28.11.2008,  18:55 ) Сам я на ВБскрипте не программлю,  но понадобилось Хороший повод начать.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)