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 #:
windowsadminscripts.com
www
Script:
Create IIS Application Pool ASP
This asp page will allow you to create an application pool on a IIS 6 web server. You have the ability to customize the Maximum Virtual Memory and Maximum Used Memory options. You can also list the existing applications pools.
Email Address To Send Sample Code To:
@
<% '**************************************************** ' Script Witten by Larry Heintz ' April 2006 www.windowsadminscripts.com ' This asp page will allow you to create an application ' pool on a IIS 6 web server. You have the ability to ' customize the Maximum Virtual Memory and Maximum ' Used Memory options. You can also list the existing ' applications pools. '**************************************************** Dim cmd,list cmd = Request.Form ("cmd") list = Request.QueryString ("list") Select Case cmd Case "addapform" addAPForm Case "addapppool" addAppPool Case Else showForm End Select Select Case list Case "showapppools" showAppPools End Select %> <%Function showForm%> <html> <head> <title>Add Application Pools</title> </head> <body> <table align="center"> <form action="<%=request.ServerVariables ("Script_Name")%>" method="post"> <input type="hidden" name="cmd" value="addapform"> <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 addAPForm Dim computername computername = Request.Form ("computer")%> <html> <head> <title>Add Application Pool</title> </head> <body> <table align="center" width="45%" border=0> <form action="<%=request.ServerVariables ("Script_Name")%>" method="post"> <input type="hidden" name="cmd" value="addapppool"> <input type="hidden" name="computer" value="<%=computername%>"> <tr> <td colspan="2" align="center"><b><u>Add Application Pool on <%=ucase(computername)%></u></b></td> </tr> <tr> <td colspan="2"><br></td> </tr> <tr> <td><b>App Pool Name:</b></td> <td><input type="text" name="apppoolname"></td> </tr> <tr> <td>Maximum Virtual Memory Option:**</td> <td><input type="text" name="mvm" value="0"></td> </tr> <tr> <td>Maximum Used Memory Option:**</td> <td><input type="text" name="mum" value="0"></td> </tr> <tr> <td align="left"><font size="-1"><a onclick="window.open('<%=request.ServerVariables ("Script_Name")%>?list=showapppools&computername=<%=computername%>','aplist','width=450,height=450 resizable=yes,scrollbars=yes,toolbar=no,status=no')" href="#">List Existing App Pools</a></font></td> <td align="center"><input type="submit" value="Submit"></td> </tr> <tr> <td colspan="2"><font size="-1" color="red">** If the amounts are left at 0 the options will not be added and the default values will be used</font></td> </tr> </form> </table> </body> </html> <%End Function%> <%Function addAppPool 'On Error Resume Next dim obj,objpool dim apppoolname,mvm,mum,computername apppoolname = Request.Form ("apppoolname") mvm = Request.Form ("mvm") mum = Request.Form ("mum") computername = Request.Form ("computer") set obj = GetObject("IIS://" & computername & "/W3SVC/apppools") set objpool = obj.create("IIsApplicationPool",apppoolname) if mvm <> 0 and mum <> 0 then objpool.PeriodicRestartMemory = (mvm * 1024) objpool.PeriodicRestartPrivateMemory = (mum * 1024) end if objpool.setinfo set objpool = nothing set obj = nothing%> <html> <head> <title>Add Application Pools</title> </head> <body> <table align="center"> <tr> <td align="center">Application Pool <%=ucase(apppoolname)%> has been created.</td> </tr> <tr> <td align="center"><br></td> </tr> <tr> <td align="center"><%Call showForm%></td> </tr> </form> </table> </body> </html> <%End Function%> <%Function showAppPools On Error Resume Next Dim apool,obj,computername computername = Request.QueryString ("computername") 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 align="center"><b><u>Application Pool Names on <%=ucase(computername)%></u></b></td> </tr> <%for each apool in obj%> <tr> <td><%=apool.name%></td> </tr> <%next%> <tr> <td colspan="2"><br></td> </tr> </table> </body> </html> <%end if 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>Unable to connect to <%=ucase(ComputerName)%></center> </body> </html> <%err.Clear () errorChecking = True end if end Function%>
Click HERE to download this script.
Copyright 2006 WindowsAdminScripts.com all rights reserved.
