ГлавнаяЗагрузитьКупитьМодулиШаблоныСтатьиПоддержкаНовости/ПрессаБлог

Количество компьютеров в домене - скрипт на JScript, VBScript

написано в рубрике: Справочник — Outlook Blogger @ Вт 8.08.2006 13:09

Количество компьютеров в домене - скрипт на JScript, VBScript
С помощью этого небольшого скрипта можно узнать количество компьютеров в Вашем домене.

 

VBScript:

 On Error Resume NextConst 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=fabrikam,dc=com' WHERE objectCategory='computer'"
 Set objRecordSet = objCommand.Execute

Wscript.Echo objRecordSet.RecordCount

JScript:

 var ADS_SCOPE_SUBTREE = 2var objConnection = new ActiveXObject("ADODB.Connection")
 var objCommand    = new ActiveXObject("ADODB.Command")
 objConnection.Provider = "ADsDSOObject"
 objConnection.Open("Active Directory Provider")
 objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText =
    "SELECT Name FROM 'LDAP://dc=fabrikam,dc=com' WHERE objectCategory='computer'"
 objRecordSet = objCommand.Execute

WScript.Echo(objRecordSet.RecordCount)

Где, dc=fabrikam,dc=com - имя домена. Например для домена “positic.ru” следует указать “dc=positic,dc=ru”.

1 комментарий »

  1. Хелен @ 28 февраля 2009 20:28

    Ухты! Бомба! А где его запускать? Напиши.

TrackBack URL

Оставить комментарий

*

Нажмите для прослушивания


Инфо


RSS лента блога
RSS лента комментариев блога
Рейтинг блогов



Плагин Potolook для Microsoft Outlook
© 2004-2011 Позитик. Все права защищены.

Microsoft®, Outlook® и эмблема Office являются охраняемыми товарными знаками корпорации Майкрософт (Microsoft Corporation) в США и/или других странах.
Копирование и использование материалов разрешается только в случае указания явной гиперссылки на сайт http://www.potolook.ru, как на источник получения информации.

Разработка сайта — "Позитик"

Рейтинг@Mail.ru