' This code makes a list of server to inport in intellipool
' ------ SCRIPT CONFIGURATION ------
strActiveDirectoryDomainDNSName = ""domain.com"
strObjectNamePrefix = "CUSTOMER-"
' ------ END CONFIGURATION ---------
strBase = "<LDAP://" & strActiveDirectoryDomainDNSName & ">;"
Set objFS = CreateObject ("Scripting.FileSystemObject")
Set objFileOut = objFS.OpenTextFile ("inm_listofservers.txt", 2, True)

strFilter = "(&(objectclass=computer)(objectcategory=computer)" & _
"(operatingSystem=*Server*));"
strAttrs = "cn;"
strScope = "subtree"
set objConn = CreateObject("ADODB.Connection")
objConn.Provider = "ADsDSOObject"
objConn.Open "Active Directory Provider"
Wscript.Echo strBase & strFilter & strAttrs & strScope
Set objRS = objConn.Execute(strBase & strFilter & strAttrs & strScope)
objRS.MoveFirst
while Not objRS.EOF
Wscript.Echo objRS.Fields(0).Value
objFileOut.WriteLine( strObjectNamePrefix & lcase(objRS.Fields(0).Value) & ";" & lcase(objRS.Fields(0).Value) & "." & strActiveDirectoryDomainDNSName & ";" & "automatically imported")
objRS.MoveNext
wend

objFileOut.Close
Set objFileOut = Nothing
Set objFS = Nothing