Enumerate IIS Application Pools Name and Status ASP



Users/Groups
	Delete Disabled Users
	Delete Disabled Users
	Enum. Users
	Enum. Users
	Delete Users
	Add Users
	Enum. Groups
	Enum. Groups
	Change Groups
	Add Group
Active Directory
	Enum. AD Groups
	Enum. AD Users
	List AD Users w/Prop
	Join AD Users
NIC/IP Addresses
	Get IP Addresses
	Get IP Addresses
	Backup and Restore IP's
	Add IP's
	NIC Settings
OS/Hardware
	OS Info Script
	OS Info Script All
	OS Info Script All
	OS System Count
	Hardware Info Script
	Hardware Info Script #1
	Hardware Info Script #2
	CPU Settings
	Enum. Printers
Disk Quotas
	Disable Disk Quota
	Enable Disk Quota
	Disk Quota Query
	Disk Quota Update
Shares/Files/Sessions
	Enum. Shares
	Enum. Shares
	Enum. All Shares
	Enum. Open Files
	Enum. Open Files
	Enum. Open Sessions
Others
	Servers Uptime
	DNS Stuff
	Services Enum
	Services Enum
	Enum Processes
	Enum Hot Fixes

MS FTP Server
	FTP VD Query
	FTP VD Delete
	FTP Site Enum.
MS WWW Server
	WWW Site Enum.
	Enum Mime Types
	Enum Mime Types
Application Pools
	Application Pool Enum
	Application Pool Enum
	Create Application Pool
	Create Application Pool
	Delete Application Pool
	Enum Apps in App Pool
	Enum App Pool Settings
	Move Apps Between App Pools
Others
	IIS Component Probe
	IIS Status

	Enum SQL Dbases
	Backup SQL Dbases
	Orphan SQL Users
	List AD/WG
	My AD/WG Name
	My PC Name
	Enum AD Computers
	Contact Us Form
	SM Login Form Code
	Imail Login Form Code
	Enum. Domains in Imail
	Enum. Users in Imail
	CDONTS Component
	CDOSYS Component
	SA SMTP Component


	App Pool Monitor
	Ping and Tracert
	Hard Drive Monitoring
	Uptime Monitoring
	Desktop Lock
	CD Key Revealer
	MIK Restarter


	Site Map
	About the Site
	RSS Feeds I Read
	Custom Scripts

Visitor #:

Script: Enumerate IIS Application Pools Name and Status ASP
This asp page will enumerate the application pools on a Windows 2003 server. It will also show the status of the application pool.

Email Address To Send Sample Code To: @
<% '************************************************** ' Script Witten by Larry Heintz ' March 2006 www.windowsadminscripts.com ' This script will enumerate the application pools on ' a Windows 2003 server. It will also show the status ' of the application pool. '************************************************** Dim cmd cmd = Request.Form ("cmd") Select Case cmd Case "showapppools" showAppPools Case Else showForm End Select %> <%Function showForm%> <html> <head> <title>Enumate Application Pools</title> </head> <body> <table align="center"> <form action="<%=request.ServerVariables ("Script_Name")%>" method="post"> <input type="hidden" name="cmd" value="showapppools"> <tr> <td><b>Server:</b></td> <td><input type="text" name="computer"></td> <td><input type="submit" value="Submit"></td> </tr> </form> </table> </body> </html> <%End Function%> <%Function showAppPools On Error Resume Next Dim apool,obj,computername computername = request.Form ("computer") set obj = GetObject("IIS://" & computername & "/W3SVC/apppools") if not (errorChecking (computername)) then%> <html> <head> <title>Enumate Application Pools</title> </head> <body> <table align="center"> <tr> <td colspan="2" align="center"><b><u>Application Pool Names/Status on <%=ucase(computername)%></u></b></td> </tr> <%for each apool in obj Call apppoolStatus(computername,apool.name) next%> <tr> <td colspan="2"><br></td> </tr> </table> </body> </html> <%end if set obj = nothing Call showForm End Function%> <%Function apppoolStatus(computername,apppool) Dim obj set obj = GetObject("IIS://" & computername & "/W3SVC/apppools/" & apppool) Select Case obj.apppoolstate Case 0%> <tr> <td><%=apppool%></td><td>0</td> </tr> <%Case 1%> <tr> <td><%=apppool%></td><td>1</td> </tr> <%Case 2%> <tr> <td><%=apppool%></td><td>UP</td> </tr> <%Case 3%> <tr> <td><%=apppool%></td><td>3</td> </tr> <%Case 4%> <tr> <td><%=apppool%></td><td><b><i>DOWN</i></b></td> </tr> <%End Select set obj = nothing End Function%> <%Function errorChecking(ComputerName) errorChecking = False if err.number <> 0 then%> <html> <head> <title>Enumate Application Pools</title> </head> <body> <center><i>Unable to connect to <%=ucase(ComputerName)%></i></center> </body> </html> <%err.Clear () errorChecking = True end if end Function%>