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

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”.