This in in conjunction with my work here where I need to list all websites in a server, now I need to list all servers and whats the quick way of doing it? Again scripting in VBS.
Here is how I’ve done
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://www.macaalay.com/2010/02/10/how-to-list-all-websites-in-iis/
Pingback: Quick Tip : List the IIS Versions of your Webserver « Raymund Macaalay's Dev Blog
Pingback: Quick Tip : List the IIS Versions of your Webserver « Raymund Macaalay's Dev Blog