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:
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/