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: Enumerate IIS Application Pools Settings This script will enumerate the application pools settings for a single app pool. You can also list the application pools on the server. Script Usage: App Pool Settings:appquery.vbs /computer:[computername] /apppool:"[appoolname]" List App Pools:appquery.vbs /computer:[computername] /list Email Address To Send Sample Code To: @    '**************************************************** ' Script Witten by Larry Heintz ' April 2006 www.windowsadminscripts.com ' This script will enumerate the application pools ' settings for a single app pool. You can also list ' the application pools on the server. ' ' Script Usage: ' App Pool Settings:appquery.vbs /computer:[computername] /apppool:"[appoolname]" ' List App Pools:appquery.vbs /computer:[computername] /list '**************************************************** Dim args Dim computername,apppool,list Set args = Wscript.Arguments.Named computername = args.Item("computer") apppool = args.Item("apppool") list = args.Item("list") if computername = "" then computername = getComputer() else computername = computername end if if wscript.arguments.count = 0 then wscript.echo "Script Usage:" wscript.echo "App Pool Settings:appquery.vbs /computer:[computername] /apppool:""[appoolname]""" wscript.echo "List App Pools:appquery.vbs /computer:[computername] /list" elseif args.exists("computer") and args.exists("apppool") then Call apSettings(apppool) elseif args.exists("computer") and args.exists("list") then Call enumAppPools() else wscript.echo "Script Usage:" wscript.echo "App Pool Settings:appquery.vbs /computer:[computername] /apppool:""[appoolname]""" wscript.echo "List App Pools:appquery.vbs /computer:[computername] /list" end if Sub apSettings(apppool) On Error Resume Next dim obj set obj = GetObject("IIS://" & computername & "/W3SVC/apppools/" & apppool) if not (errorCheckingAP (apppool)) then wscript.echo "Application Pool Settings for " & ucase(apppool) & VbCrLF Select Case obj.apppoolstate Case 0 wscript.echo "App Pool State: 0" 'Do not know what this status is Case 1 wscript.echo "App Pool State: 1" 'Do not know what this status is Case 2 wscript.echo "App Pool State: UP" Case 3 wscript.echo "App Pool State: 3" 'Do not know what this status is Case 4 wscript.echo "App Pool State: DOWN" End Select wscript.echo "App Pool Auto Start: " & obj.AppPoolAutoStart wscript.echo "====================================================" wscript.echo "Recycle Worker Process (mins): " & obj.PeriodicRestartTime wscript.echo "Recycle Worker Process (number of requests): " & obj.PeriodicRestartRequests wscript.echo "====================================================" wscript.echo "Maximum Virtual Memory: " & (obj.PeriodicRestartMemory/1024) & " MB" wscript.echo "Maximum Used Memory: " & (obj.PeriodicRestartPrivateMemory/1024) & " MB" wscript.echo "====================================================" wscript.echo "Shut down worker process after being idle for " & obj.IdleTimeout & " mins." wscript.echo "Limit the Kernel request queue (number of requests): " & obj.AppPoolQueueLength wscript.echo "====================================================" if obj.CPULimit <> 0 then wscript.echo "CPU Monitoring Enabled" wscript.echo "Maximum CPU Use: " & obj.CPULimit/1000 & " %" wscript.echo "Refresh CPU Usage numbers: " & obj.CPUResetInterval & " mins." Select Case obj.CPUAction Case 0 wscript.echo "Action performed when CPU Usage exceeds Max. CPU Usage: " & _ "No Action" Case 1 wscript.echo "Action performed when CPU Usage exceeds Max. CPU Usage: " & _ "ShutDown" End Select else wscript.echo "CPU Monitoring NOT Enabled" end if wscript.echo "====================================================" wscript.echo "Maximum Number of worker processes: " & obj.MaxProcesses wscript.echo "====================================================" if obj.PingingEnabled = True then wscript.echo "Ping worker process every " & obj.PingInterval & " seconds." else wscript.echo "Process Pinging NOT Enabled" end if wscript.echo "====================================================" if obj.RapidFailProtection = True then wscript.echo "Rapid Fail Protection Enabled" & VbCrLF wscript.echo "Disable the application pool if there is a certain number of" wscript.echo "worker process failures within a specified time period." & VbCrLF wscript.echo "Failures: " & obj.RapidFailProtectionMaxCrashes wscript.echo "Time Period (in mins): " & obj.RapidFailProtectionInterval else wscript.echo "Rapid-Fail Protection NOT Enabled" end if wscript.echo "====================================================" wscript.echo "Worker process must startup within " & obj.StartupTimeLimit & " seconds" wscript.echo "Worker process must shutdown within " & obj.ShutdownTimeLimit & " seconds" wscript.echo "====================================================" Select Case obj.AppPoolIdentityType Case 0 wscript.echo "Application Pool identity running under: SYSTEM" Case 1 wscript.echo "Application Pool identity running under: LOCAL SERVICE" Case 2 wscript.echo "Application Pool identity running under: NETWORK SERVICE" Case 3 wscript.echo "Application Pool identity running under: " & obj.WAMUserName End Select end if set obj = nothing End Sub Sub enumAppPools() On Error Resume Next Dim apool,obj set obj = GetObject("IIS://" & computername & "/W3SVC/apppools") if not (errorChecking (computername)) then wscript.echo "Application Pool Names on " & ucase(computername) wscript.echo "========================================" for each apool in obj wscript.echo apool.name next end if set obj = nothing End Sub Function getComputer() Dim objNet Set objNet = WScript.CreateObject("WScript.Network") getComputer = objNet.ComputerName Set objNet = Nothing End Function Function errorChecking(ComputerName) errorChecking = False if err.number <> 0 then wscript.echo "Unable to connect to " & ucase(ComputerName) err.Clear () errorChecking = True end if end Function Function errorCheckingAP(apppool) errorCheckingAP = False if err.number <> 0 then wscript.echo ucase(apppool) & " Application Pool Does Not Exist" err.Clear () errorCheckingAP = True end if end Function Copyright 2006 WindowsAdminScripts.com all rights reserved.