HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

Arasaka — Fri, 09 Jun 2006 22:48:52 GMT

David,

This is outstanding!

I would love to a use a few parts of your code, but I am not sure where to cut it out so it will still work.

What I am looking to do is pull the strServer from AD OUs, the parts that of your code that would be a real help are the "Site ID = " and the "LogDir = " I wish to use these field as variables in a copy to move the logs out the dir on the server to some other place and use the Site ID as a variable to append to sub folders, which are made off the system name. I am set one everything but how to put the parts of your code into middle of the script as to pull those bits of info.

I would also like try to run FTP and Web together as one script but two would work.

Any help you could throw my way would be great.

Thank you,
David Brown

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

David.Wang — Sat, 10 Jun 2006 13:52:27 GMT

David - I suggest the following steps, which basically copies all script code and making three modifications - one addition and two bulk deletion of unneeded code.

1. copy all of the code in the script as-is. You can remove the IF-blocks containing "WScript.Arguments.Length" if you want.

2. Wrap two new FOR-loops around the following part of the script, one walking through the list of strServer from AD OUs, and the other for appropriate strServerMetaType values for FTP or Web:

SET objService = GetObject( "IIS://" & strServer & "/" & strServerMetaType )
EnumServersites objService

3. Substitute all code inside the following IF-block in the code to use objServer.Name as ID and objServer.LogFileDirectory to append to sub folders and copy/move log files.

IF objServer.Class = "IIs" & strServerType & "Server" THEN
'Substitute all code inside this nested IF-block...
END IF

//David

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

Dave — Mon, 12 Jun 2006 20:15:25 GMT

David,

Thank you for the reply.

I will try to follow your steps, I am not very skilled at scripting so I hope this work out and fill needs I am trying to fill.

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

Dave Brown — Mon, 19 Jun 2006 16:39:58 GMT

What would need to be changed to find the SMTP log locations?

* Metabase configuration node from /W3SVC (Web) to /MSFTPSVC
* ADSI Class name from IIsWebServer (Web) to IIsFtpServer (FTP)

Thanks for any help, I am almost done with What I am trying to do. You site has been a great help.

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

Dave Brown — Mon, 19 Jun 2006 16:51:10 GMT

Does anyone see anything out of place in this chunk of code?

Thanks

'***

dim IISObj, IISSite

' WScript.echo ("Log file directories..." & strComputer )
' WScript.echo
set IISObj = GetObject("IIS://"& strComputer &"/W3Svc")
for each IISSite in IISObj
if (IISSite.Class = "IIsWebServer") then
WScript.echo IISSite.LogFileDirectory & "\W3SVC" & IISSite.Name

Set IISObj = GetObject("IIS://"& strComputer &"/MSFTPSVC")
for each IISSite in IISObj
if (IISSite.Class = "IIsFtpServer") Then
WScript.echo IISSite.LogFileDirectory & "\MSFTPSVC" & IISSite.Name

strLocation = IISSite.LogFileDirectory
DelLocation = IISSite.LogFileDirectory & "\W3SVC" & IISSite.Name
' Wscript.echo strlocation
' Wscript.echo DelLocation

End If

'***

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

Stevie — Tue, 04 Dec 2007 15:04:34 GMT

Hi David,

Your page came up when I did a search on how to use script to migrate an IIS site.

Basically, what I need is to:

gather all settings for a particular site, including things like host headers used

write these settings to a newly-created site on the same server

I don't want to ask someone else to do this for me - unless you've already written something which does it! - but would appreciate any pointers you can give on references for the methods that might be of interest.

Many thanks

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

Stevie — Tue, 04 Dec 2007 15:13:59 GMT

Re the above, please disregard - I've noticed that my Windows Administrator's Automation Toolkit has a chapter devoted to this... I simply haven't had time to look at it since I acquired it - until today!

Thanks again,

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

Alan Kaplan — Wed, 19 Dec 2007 22:58:10 GMT

I need to audit web servers in my domain, and would like to be able to connect to each server, and enumerate the virtual directories -- ultimately leading to a link to each web site hosted by the server. Can this code be modified to get that information?

Thanks.

HOWTO: List all Virtual Directories and Paths of a List of Servers

David Wang — Thu, 20 Dec 2007 09:01:42 GMT

Question: I need to audit web servers in my domain, and would like to be able to connect to each server,

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

David.Wang — Thu, 20 Dec 2007 09:03:24 GMT

Alan - If you just want to enumerate virtual directories, you can script the built-in ADSUTIL.VBS script to do this. I wrote the following quick batch script as illustration.

http://blogs.msdn.com/david.wang/archive/2007/12/19/howto-list-all-virtual-directories-and-paths-of-a-list-of-servers.aspx

//David

HOWTO: List all Virtual Directories and Paths of a List of Servers

Noticias externas — Thu, 20 Dec 2007 09:07:23 GMT

Question: I need to audit web servers in my domain, and would like to be able to connect to each server

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

Brody — Sat, 19 Jan 2008 20:53:26 GMT

Has anybody modified this script, or could any one modify this script to write to a database or text file rather than a pop-up window. I am query 100s of servers, and I am not quite sure how to modify it accordingly. Actually I just need secure bindings and nothing else.

Could anyone help me out? You can email me at bkilpatr@stewart.com if you like, or just post here.

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

David.Wang — Sun, 27 Jan 2008 07:07:38 GMT

Noticias externas - As documented in the blog entry, the first commandline parameter to the tool is the name of the remote server

//David

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

David.Wang — Sun, 27 Jan 2008 07:15:14 GMT

Brody - No modifications needed. Launch this script with CSCRIPT.EXE

Default scripting host in Windows is WSCRIPT.EXE, which uses a popup window for output.

One can easily redirect output to a text file, and entering data into a database is likewise easy from the commandline. Those are tasks best done by the reader.

//David

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

Frits — Thu, 21 Feb 2008 12:32:16 GMT

Does it work both on IIS 5.0 and 6.0 ??

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

David.Wang — Fri, 22 Feb 2008 16:26:12 GMT

Frits - why don't you try it and be positively surprised? :-)

//David

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

Chet Bliss — Sat, 21 Jun 2008 04:00:57 GMT

David,

I love your script. I really to output this info to text file instead of the screen. I saw that you said cscript would do the job but I can't get it working. Would it be possible for you to create a small script outputing one of the variables to a file. I could then figure out the rest.

Thank you in advance.

Chet

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

David.Wang — Sun, 22 Jun 2008 10:24:19 GMT

Chet Bliss - CSCRIPT Script.VBS > Filename.txt

//David

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

Chet Bliss — Tue, 02 Sep 2008 22:26:46 GMT

David,

Thank you for the response. My team is enumerating web site on thousands of servers and I can not guarantee that IIS would be installed on every team members computer. I am trying to use SWbemServices with your script and can not get it to work.

Thanks

Chet

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

Felix — Wed, 29 Oct 2008 18:51:21 GMT

Been looking all day for something like this. Just what I needed, thanks.

-Felix

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

Harshini — Sat, 22 Nov 2008 05:55:04 GMT

Davind, great piece of code! Thank you; very useful.

Now...

I need to find the physical path to any given Web site on a given machine that has IIS 5, 6 or 7 on it.

So, using the site ID seems to be the way to go... But what property do I check for? Sorry, am not very well versed in finding IIS metadata and am unsure where to look... I can see that Server.MapPath is used in some cases in ASP... but I need to use vbscript.

Thanks in advance!

Harshini

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

David.Wang — Mon, 24 Nov 2008 17:26:49 GMT

Harshini - I suggest looking at how this script works.

http://blogs.msdn.com/david.wang/archive/2007/12/19/howto-list-all-virtual-directories-and-paths-of-a-list-of-servers.aspx

By default, legacy ADSI/WMI providers compatible with IIS5/6 are NOT installed with IIS7, so there is no way to do what you want with default IIS installations.

ASP actually uses VBScript as a language by default, so your requirement is actually inconclusive. Choice of language is actually tangential to solving the issue.

ASP/ASP.Net Server.MapPath calls HSE_REQ_MAP_URL_TO_PATH underneath the covers, which does a lookup sorta like what the script I want you to look at.

//David

re: HOWTO: Enumerate IIS website and ftpsite configuration (VBScript using ADSI)

Jeff — Wed, 08 Apr 2009 15:45:47 GMT

Would be great to find a type library for these objects somewhere.

I'm not a very variant kind of guy. =)

The Active DS IIS Extension Dll appears to be incomplete.