Click here to Skip to main content
65,938 articles
CodeProject is changing. Read more.
Articles / Languages / VBScript

List All Computers in a Domain the Quick Way!

4.00/5 (2 votes)
22 Mar 2010CPOL 1  
How to list all computers in a domain the quick way

This is in conjunction with my work here where I need to list all websites in a server, now I need to list all servers and what's the quick way of doing it? Again scripting in VBS.

Here is how I’ve done it:

VBScript
const oFileName ="AllComputers.csv"
set oCmd = createobject("ADODB.Command")
set oConn = createobject("ADODB.Connection")
set oRS = createobject("ADODB.Recordset")

oConn.open "Provider=ADsDSOObject;"
oCmd.ActiveConnection = oConn

set oRoot = GetObject("LDAP://RootDSE")

oCmd.CommandText = "<LDAP://" & oRoot.Get("defaultNamingContext")  
		& ">;(objectCategory=Computer);" & _
          	"name, distinguishedName, operatingsystem, 
		operatingsystemservicepack, operatingsystemversion;subtree"
oCmd.Properties("page size")=1000

set oRS = oCmd.Execute
set oFSO = CreateObject("Scripting.FileSystemObject")
set oCSV = oFSO.CreateTextFile(oFileName)

sQuotations = """"

while oRS.EOF <> true and oRS.BOF <> true
    oCSV.writeline(sQuotations & oRS("name") & sQuotations & "," & _
    sQuotations & oRS("distinguishedName") & sQuotations & "," &  _
    sQuotations & oRS("operatingsystem") & sQuotations & "," & _
    sQuotations & oRS("operatingsystemservicepack") & sQuotations & "," & _
    sQuotations & oRS("operatingsystemversion") & sQuotations)
    oRS.MoveNext
wend

oCSV.Close
oConn.close

wscript.echo "Done!"

http://anyrest.wordpress.com/2010/02/10/how-to-list-all-websites-in-iis/

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)