VPF::VBscript выбор компьютера по ДНС суффиксу

Georg4

Дата 28.11.2008, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 961
Регистрация: 2.11.2002

Репутация: нет
Всего: 10

Граждане, вопрос такой.
Сам я на ВБскрипте не программлю, но понадобилось,..

Вот в этом куске кода:

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Пробегись ForEach-ем по всем пропертям одного из objRecordSet, и для каждого запроси имя и значение. Глядишь, нужное-то и найдётся...

Цитата(Georg4 @ 28.11.2008, 18:55

)

Сам я на ВБскрипте не программлю, но понадобилось

Хороший повод начать.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »