ActiveXperts Network Monitor
Monitor servers, workstations, devices and applications in your network

Quicklinks

Internet Information Server 6.x Applications and Application Protocols - Scripts

Create an Application in an Application Pool Using ADSI
Create an Application as Part of an Application Pool
Create an Application in a Virtual Directory
Create an Application in a Virtual Directory as Part of an Application Pool
Create an Application in a Web Directory
Create an Out-of-Process Application in a Virtual Directory
Create an Out-of-Process Application in a Web Directory
Delete an Application in a Virtual Directory
Disable an Application in a Virtual Directory
Delete a Web Directory Application
Disable a Web Directory Application
Delete a Web Service Application
Enable an Application in a Virtual Directory
Enable a Web Directory Application
Enable a Web Service Application
List Applications in an Application Pool
List Application Configuration Cache Options
List Application Configuration Debugging Options
List Application Configuration Mappings
List Application Configuration Options
List Application Extension Mappings
List Application Pools Health Properties
List Application Pools Identity Properties
List Application Pools Performance Properties
List Application Pools Recycling Properties
List Application Pools Setting Information
List Applications That Depend on a Given Group ID
List Web Service Applications
Modify Application Configuration Cache Options
Modify Application Configuration Debugging Options
Modify Application Pools Health Properties
Modify Application Pools Identity Properties
Modify an Application Pools Metabase Setting
Modify Application Pools Performance Properties
Modify Application Pools Recycling Properties
Recycle an Application Pool
Restart an Application in a Virtual Directory
Restart an Application in a Web Directory
Start an Application Pool
Stop an Application Pool
Unload an Application in a Virtual Directory
Unload an Application from a Web Directory
Verify the Status of an Application in a Virtual Directory
Verify the Status of a Web Directory Application

You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.


Create an Application in an Application Pool Using ADSI


Creates an out-of-process Web application in the W3SVC/2142295254/root/aspnet_client_folder directory and adds it to the MSSharePointAppPool application pool. 
Const OUT_OF_PROCESS = 1
 
strComputer = "LocalHost"
 
Set objIIS = GetObject _
    ("IIS://" & strComputer & "/W3SVC/2142295254/root/aspnet_client_folder")
objIIS.AppCreate3 OUT_OF_PROCESS, "MSSharePointAppPool", False

Create an Application as Part of an Application Pool


Creates a new out-of-process application as part of the MSSharePointAppPool application pool. 
Const OUT_OF_PROCESS = 1

Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebDirectory Where Name = " & _
        "'W3SVC/2142295254/root/aspnet_client_folder'")

For Each objItem in colItems
   objItem.AppCreate3 OUT_OF_PROCESS,"MSSharePointAppPool", False
Next

Create an Application in a Virtual Directory


Creates a new application in the virtual Web directoryW3SVC/1/ROOT/tsweb. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebVirtualDir Where Name = " & _
        "'W3SVC/1/ROOT/tsweb'")

For Each objItem in colItems
   objItem.AppCreate(False)
Next

Create an Application in a Virtual Directory as Part of an Application Pool


Creates a new virtual directory application ad part of the MSSharePointAppPool application pool. 
Const OUT_OF_PROCESS = 1

strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebVirtualDir Where Name = " & _
        "'W3SVC/1/ROOT/tsweb'")

For Each objItem in colItems
   objItem.AppCreate3 OUT_OF_PROCESS, "MSSharePointAppPool", _
       False
Next

Create an Application in a Web Directory


Creates a new application in the Web directory W3SVC/2142295254/root/aspnet_client_folder. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebDirectory Where Name = " & _
        "'W3SVC/2142295254/root/aspnet_client_folder'")

For Each objItem in colItems
   objItem.AppCreate(False)
Next

Create an Out-of-Process Application in a Virtual Directory


Creates an out-of-process application in virtual Web directory W3SVC/1/ROOT/tsweb.
Const OUT_OF_PROCESS = 1

Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebVirtualDir Where Name = " & _
        "'W3SVC/1/ROOT/tsweb'")

For Each objItem in colItems
   objItem.AppCreate2(OUT_OF_PROCESS)
Next

Create an Out-of-Process Application in a Web Directory


Creates an out-of-process application in the Web directory W3SVC/2142295254/root/aspnet_client_folder.
Const OUT_OF_PROCESS = 1

Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebDirectory Where Name = " & _
        "'W3SVC/2142295254/root/aspnet_client_folder'")

For Each objItem in colItems
   objItem.AppCreate2(OUT_OF_PROCESS)
Next

Delete an Application in a Virtual Directory


Deletes the application found in the virtual Web directoryW3SVC/1/ROOT/tsweb.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebVirtualDir Where Name = " & _
        "'W3SVC/1/ROOT/tsweb'")

For Each objItem in colItems
   objItem.AppDelete(True)
Next

Disable an Application in a Virtual Directory


Disables the application found in the virtual Web directory W3SVC/1/ROOT/tsweb. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebVirtualDir Where Name = " & _
        "'W3SVC/1/ROOT/tsweb'")

For Each objItem in colItems
   objItem.AppDisable(True)
Next

Delete a Web Directory Application


Deletes the application found in the Web directory W3SVC/2142295254/root/aspnet_client_folder. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebDirectory Where Name = " & _
        "'W3SVC/2142295254/root/aspnet_client_folder'")

For Each objItem in colItems
   objItem.AppDelete(True)
Next

Disable a Web Directory Application


Disables the application found in the Web directoryW3SVC/2142295254/root/aspnet_client_folder. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebDirectory Where Name = " & _
        "'W3SVC/2142295254/root/aspnet_client_folder'")

For Each objItem in colItems
   objItem.AppDisable(True)
Next

Delete a Web Service Application


Deletes the Web service application named Remote Administration Tools. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebService")

For Each objItem in colItems
    objItem.RemoveApplication("Remote Administration Tools")
Next

Enable an Application in a Virtual Directory


Enables the application found in the virtual Web directory W3SVC/1/ROOT/tsweb.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebVirtualDir Where Name = " & _
        "'W3SVC/1/ROOT/tsweb'")

For Each objItem in colItems
   objItem.AppEnable(True)
Next

Enable a Web Directory Application


Enables the application found in the Web directoryW3SVC/2142295254/root/aspnet_client_folder.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebDirectory Where Name = " & _
        "'W3SVC/2142295254/root/aspnet_client_folder'")

For Each objItem in colItems
   objItem.AppEnable(True)
Next

Enable a Web Service Application


Enables the Web service application named Remote Administration Tools.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebService")

For Each objItem in colItems
    objItem.EnableApplication _
        ("Remote Administration Tools")
Next

List Applications in an Application Pool


Lists all the applications in the MSSharePointAppPool application pool.
strComputer = "."

Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsApplicationPool Where Name = " & _
        "'W3SVC/AppPools/MSSharePointAppPool'")

For Each objItem in colItems
    objItem.EnumAppsInPool arrApplications
    For i = 0 to Ubound(arrApplications)
        Wscript.Echo arrApplications(i)
    Next
Next

List Application Configuration Cache Options


Lists IIS application configuration cache options. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsWebServiceSetting")

For Each objItem in colItems
    Wscript.Echo "ASP Disk Template Cache Directory: " & _
        objItem.AspDiskTemplateCacheDirectory
    Wscript.Echo "ASP Maximum Disk Template Cache Files: " & _
        objItem.AspMaxDiskTemplateCacheFiles
    Wscript.Echo "ASP Script Engine Cache Maximum: " & _
        objItem.AspScriptEngineCacheMax
    Wscript.Echo "ASP Script File Cache Size: " & _
        objItem.AspScriptFileCacheSize
Next

List Application Configuration Debugging Options


Lists IIS application configuration debugging options. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsWebServiceSetting")

For Each objItem in colItems
    Wscript.Echo "Application Allow Client Debug: " & _
        objItem.AppAllowClientDebug
    Wscript.Echo "Application Allow Debugging: " & _
        objItem.AppAllowDebugging
   Wscript.Echo "ASP Script Error Message: " & _
        objItem.AspScriptErrorMessage
    Wscript.Echo "ASP Script Error Sent To Browser: " & _
        objItem.AspScriptErrorSentToBrowser
Next

List Application Configuration Mappings


Lists IIS application configuration mappings.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsWebServiceSetting")

For Each objItem in colItems
    Wscript.Echo "Cache ISAPI: " & objItem.CacheISAPI
    For i = 0 to Ubound(objItem.ScriptMaps)
        Wscript.Echo "Extension: " & objItem.ScriptMaps(i).Extensions
        Wscript.Echo "Included Verbs: " & _
            objItem.ScriptMaps(i).IncludedVerbs
        Wscript.Echo "Script Processor: " & _
            objItem.ScriptMaps(i).ScriptProcessor
        Wscript.Echo
    Next
Next

List Application Configuration Options


Lists IIS application configuration options.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsWebServiceSetting")

For Each objItem in colItems
    Wscript.Echo "ASP Allow Session State: " & _
        objItem.AspAllowSessionState
    Wscript.Echo "ASP Buffering On: " & objItem.AspBufferingOn
    Wscript.Echo "ASP Enable Parent Paths: " & _
        objItem.AspEnableParentPaths
    Wscript.Echo "ASP Enable Sxs: " & objItem.AspEnableSxs
    Wscript.Echo "ASP Script Language: " & objItem.AspScriptLanguage
    Wscript.Echo "ASP Script Timeout: " & objItem.AspScriptTimeout
    Wscript.Echo "ASP Session Timeout: " & objItem.AspSessionTimeout
    Wscript.Echo "ASP Sxs Name: " & objItem.AspSxsName
Next

List Application Extension Mappings


Lists IIS application extension mappings.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsWebServerSetting")

For Each objItem in colItems
    For i = 0 to Ubound(objItem.ScriptMaps)
        Wscript.Echo "Extension: " & objItem.ScriptMaps(i).Extensions
        Wscript.Echo "Included Verbs: " & _
            objItem.ScriptMaps(i).IncludedVerbs
        Wscript.Echo "Script Processor: " & _
            objItem.ScriptMaps(i).ScriptProcessor
        Wscript.Echo
    Next
Next

List Application Pools Health Properties


Lists IIS application pools health information. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsApplicationPoolsSetting")

For Each objItem in colItems
    Wscript.Echo "Pinging Enabled: " & objItem.PingingEnabled
    Wscript.Echo "Ping Interval: " & objItem.PingInterval
    Wscript.Echo "Rapid Fail Protection: " & _
        objItem.RapidFailProtection
    Wscript.Echo "Rapid Fail Protection Interval: " & _
        objItem.RapidFailProtectionInterval
    Wscript.Echo "Rapid Fail Protection Maximum Crashes: " & _
        objItem.RapidFailProtectionMaxCrashes
    Wscript.Echo "Shutdown Time Limit: " & objItem.ShutdownTimeLimit
    Wscript.Echo "Startup Time Limit: " & objItem.StartupTimeLimit
Next

List Application Pools Identity Properties


Lists identity properties for IIS application pools. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsApplicationPoolsSetting")

For Each objItem in colItems
    Wscript.Echo "WAM User Name: " & objItem.WAMUserName
    Wscript.Echo "WAM User Password: " & objItem.WAMUserPass
Next

List Application Pools Performance Properties


Lists performance properties for IIS application pools. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsApplicationPoolsSetting")

For Each objItem in colItems
    Wscript.Echo "Application Pool Queue Length: " & _
        objItem.AppPoolQueueLength
    Wscript.Echo "CPU Action: " & objItem.CPUAction
    Wscript.Echo "CPU Limit: " & objItem.CPULimit
    Wscript.Echo "CPU Reset Interval: " & objItem.CPUResetInterval
    Wscript.Echo "Idle Timeout: " & objItem.IdleTimeout
    Wscript.Echo "Max Processes: " & objItem.MaxProcesses
Next

List Application Pools Recycling Properties


Lists recycling properties for IIS application pools.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsApplicationPoolsSetting")

For Each objItem in colItems
    Wscript.Echo "Periodic Restart Memory: " & _
        objItem.PeriodicRestartMemory
    Wscript.Echo "Periodic Restart PrivateMemory: " & _
        objItem.PeriodicRestartPrivateMemory
    Wscript.Echo "Periodic Restart Requests: " & _
        objItem.PeriodicRestartRequests
    For Each strSchedule in objItem.PeriodicRestartSchedule
        Wscript.Echo "Periodic Restart Schedule: " & strSchedule
    Next
    Wscript.Echo "Periodic Restart Time: " & _
        objItem.PeriodicRestartTime
Next

List Application Pools Setting Information


Lists setting information for IIS application pools.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsApplicationPoolsSetting")

For Each objItem in colItems
    Wscript.Echo "Admin ACL Bin: " & objItem.AdminACLBin
    Wscript.Echo "Application Pool AutoStart: " & _
        objItem.AppPoolAutoStart
    Wscript.Echo "Application Pool Identity Type: " & _
        objItem.AppPoolIdentityType
    Wscript.Echo "Application Pool Queue Length: " & _
        objItem.AppPoolQueueLength
    Wscript.Echo "Application Pool Recycle Configuration Change: " & _
        objItem.AppPoolRecycleConfigChange
    Wscript.Echo "Application Pool Recycle ISAPI Unhealthy: " & _
        objItem.AppPoolRecycleIsapiUnhealthy
    Wscript.Echo "Application Pool Recycle Memory: " & _
        objItem.AppPoolRecycleMemory
    Wscript.Echo "Application Pool Recycle On-Demand: " & _
        objItem.AppPoolRecycleOnDemand
    Wscript.Echo "Application Pool Recycle Private Memory: " & _
        objItem.AppPoolRecyclePrivateMemory
    Wscript.Echo "Application Pool Recycle Requests: " & _
        objItem.AppPoolRecycleRequests
    Wscript.Echo "Application Pool Recycle Schedule: " & _
        objItem.AppPoolRecycleSchedule
    Wscript.Echo "Application Pool Recycle Time: " & _
        objItem.AppPoolRecycleTime
    Wscript.Echo "AutoShutdown Application Pool Exe: " & _
        objItem.AutoShutdownAppPoolExe
    Wscript.Echo "AutoShutdown Application Pool Parameters: " & _
        objItem.AutoShutdownAppPoolParams
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "CPU Action: " & objItem.CPUAction
    Wscript.Echo "CPU Limit: " & objItem.CPULimit
    Wscript.Echo "CPU Reset Interval: " & objItem.CPUResetInterval
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Disallow Overlapping Rotation: " & _
        objItem.DisallowOverlappingRotation
    Wscript.Echo "Disallow Rotation On Configuration Change: " & _
        objItem.DisallowRotationOnConfigChange
    Wscript.Echo "Idle Timeout: " & objItem.IdleTimeout
    Wscript.Echo "Load Balancer Capabilities: " & _
        objItem.LoadBalancerCapabilities
    Wscript.Echo "Log Event On Recycle: " & objItem.LogEventOnRecycle
    Wscript.Echo "Logon Method: " & objItem.LogonMethod
    Wscript.Echo "Maximum Processes: " & objItem.MaxProcesses
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Orphan Action Exe: " & objItem.OrphanActionExe
    Wscript.Echo "Orphan Action Parameters: " & _
        objItem.OrphanActionParams
    Wscript.Echo "Orphan Worker Process: " & _
        objItem.OrphanWorkerProcess
    Wscript.Echo "Periodic Restart Memory: " & _
        objItem.PeriodicRestartMemory
    Wscript.Echo "Periodic Restart PrivateMemory: " & _
        objItem.PeriodicRestartPrivateMemory
    Wscript.Echo "Periodic Restart Requests: " & _
        objItem.PeriodicRestartRequests
    For Each strSchedule in objItem.PeriodicRestartSchedule
        Wscript.Echo "Periodic Restart Schedule: " & strSchedule
    Next
    Wscript.Echo "Periodic Restart Time: " & objItem.PeriodicRestartTime
    Wscript.Echo "Pinging Enabled: " & objItem.PingingEnabled
    Wscript.Echo "Ping Interval: " & objItem.PingInterval
    Wscript.Echo "Ping Response Time: " & objItem.PingResponseTime
    Wscript.Echo "Rapid Fail Protection: " & objItem.RapidFailProtection
    Wscript.Echo "Rapid Fail Protection Interval: " & _
        objItem.RapidFailProtectionInterval
    Wscript.Echo "Rapid Fail Protection Maximum Crashes: " & _
        objItem.RapidFailProtectionMaxCrashes
    Wscript.Echo "Setting ID: " & objItem.SettingID
    Wscript.Echo "Shutdown Time Limit: " & objItem.ShutdownTimeLimit
    Wscript.Echo "SMP Affinitized: " & objItem.SMPAffinitized
    Wscript.Echo "SMP Processor Affinity Mask: " & _
        objItem.SMPProcessorAffinityMask
    Wscript.Echo "Startup Time Limit: " & objItem.StartupTimeLimit
    Wscript.Echo "WAM User Name: " & objItem.WAMUserName
    Wscript.Echo "WAM User Password: " & objItem.WAMUserPass
    Wscript.Echo "Win32 Error: " & objItem.Win32Error
Next

List Applications That Depend on a Given Group ID


Lists all the applications dependant on the ASP group ID. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery("Select * From IIsWebService")
 
For Each objItem in colItems
    objItem.QueryGroupIDStatus "ASP", arrGroups
    For i = 0 to Ubound(arrGroups)
        Wscript.Echo arrGroups(i)
    Next
Next

List Web Service Applications


Lists IIS Web service applications.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebService")

For Each objItem in colItems
    objItem.ListApplications arrApplications
    For i = 0 to Ubound(arrApplications)
        Wscript.Echo arrApplications(i)
    Next
Next

Modify Application Configuration Cache Options


Demonstration script that modifies IIS application configuration cache options. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsWebServiceSetting")

For Each objItem in colItems
    objItem.AspDiskTemplateCacheDirectory = "C:\Cache"
    objItem.AspMaxDiskTemplateCacheFiles = 5000
    objItem.AspScriptEngineCacheMax = 250
    objItem.AspScriptFileCacheSize = 500
    objItem.Put_
Next

Modify Application Configuration Debugging Options


Demonstration script that modifies IIS application configuration debugging options.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsWebServiceSetting")

For Each objItem in colItems
    objItem.AppAllowClientDebug = True
    objItem.AppAllowDebugging = True
    objItem.AspScriptErrorMessage = "Sorry, an error has occurred."
    objItem.AspScriptErrorSentToBrowser = True
    objItem.Put_
Next

Modify Application Pools Health Properties


Demonstration script that modifies IIS application pools health properties.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsApplicationPoolsSetting")

For Each objItem in colItems
    objItem.PingingEnabled = True
    objItem.PingInterval = 60
    objItem.RapidFailProtection = True
    objItem.RapidFailProtectionInterval = 10
    objItem.RapidFailProtectionMaxCrashes = 10
    objItem.ShutdownTimeLimit = 120
    objItem.StartupTimeLimit = 120
    objItem.Put_
Next

Modify Application Pools Identity Properties


Demonstration script that modifies the user name and password for IIS application pools. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsApplicationPoolsSetting")

For Each objItem in colItems
    objItem.WAMUserName = "TestUser"
    objItem.WAMUserPass = "ur^354Hdf"
    objItem.Put_
Next

Modify an Application Pools Metabase Setting


Demonstration script that modifies an application pools metabase setting (RapidFailProtection).
strComputer = "."
 
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsApplicationPoolsSetting")
 
For Each objItem in colItems
    objItem.RapidFailProtection = TRUE
    objItem.Put_
Next

Modify Application Pools Performance Properties


Demonstration script that modifies performance settings for IIS application pools.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsApplicationPoolsSetting")

For Each objItem in colItems
    objItem.AppPoolQueueLength = 5000
    objItem.CPUAction = 1
    objItem.CPULimit = 50000
    objItem.CPUResetInterval= 30
    objItem.IdleTimeout = 30
    objItem.MaxProcesses = 2
    objItem.Put_
Next

Modify Application Pools Recycling Properties


Demonstration script that modifies IIS application pools recycling settings. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsApplicationPoolsSetting")

For Each objItem in colItems
    objItem.PeriodicRestartMemory = 1000000
    objItem.PeriodicRestartPrivateMemory = 1000000
    objItem.PeriodicRestartRequests = 5
    objItem.PeriodicRestartTime = 3480
    objItem.Put_
Next

Recycle an Application Pool


Demonstration script that recycles the MsSharePointAppPool application pool. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsApplicationPool Where Name = " & _
        "'W3SVC/AppPools/MSSharePointAppPool'")

For Each objItem in colItems
    objItem.Recycle
Next

Restart an Application in a Virtual Directory


Demonstration script that restarts the application in the W3SVC/1/ROOT/tsweb virtual Web directory. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebVirtualDir Where Name = " & _
        "'W3SVC/1/ROOT/tsweb'")

For Each objItem in colItems
   objItem.ASPAppRestart
Next

Restart an Application in a Web Directory


Demonstration script that restarts the application in the W3SVC/2142295254/root/aspnet_client_folder Web directory. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebDirectory Where Name = " & _
        "'W3SVC/2142295254/root/aspnet_client_folder'")

For Each objItem in colItems
   objItem.ASPAppRestart
Next

Start an Application Pool


Demonstration script that starts the MSSharePointAppPool application pool. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsApplicationPool Where Name = " & _
        "'W3SVC/AppPools/MSSharePointAppPool'")

For Each objItem in colItems
    objItem.Start
Next

Stop an Application Pool


Demonstration script that stops the MSSharePointAppPool application pool. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsApplicationPool Where Name = " & _
        "'W3SVC/AppPools/MSSharePointAppPool'")

For Each objItem in colItems
    objItem.Stop
Next

Unload an Application in a Virtual Directory


Demonstration script that unloads the application in the W3SVC/1/ROOT/tsweb virtual Web directory.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebVirtualDir Where Name = " & _
        "'W3SVC/1/ROOT/tsweb'")

For Each objItem in colItems
   objItem.AppUnload(True)
Next

Unload an Application from a Web Directory


Demonstration script that unloads the application in the W3SVC/2142295254/root/aspnet_client_folder Web directory. 
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebDirectory Where Name = " & _
        "'W3SVC/2142295254/root/aspnet_client_folder'")

For Each objItem in colItems
   objItem.AppUnload(True)
Next

Verify the Status of an Application in a Virtual Directory


Returns the status of the application in the W3SVC/1/ROOT/tsweb virtual Web directory.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebVirtualDir Where Name = " & _
        "'W3SVC/1/ROOT/tsweb'")

For Each objItem in colItems
    strStatus = objItem.AppGetStatus
    If strStatus = 2 Then
        Wscript.Echo "The application is running."
    ElseIf strStatus = 3 Then
        Wscript.Echo "The application is stopped."
    Else
        Wscript.Echo _
            "The status could not be determined."
    End If
Next

Verify the Status of a Web Directory Application


Returns the status of the application in the W3SVC/2142295254/root/aspnet_client_folder Web directory.
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * From IIsWebDirectory Where Name = " & _
        "'W3SVC/2142295254/root/aspnet_client_folder'")

For Each objItem in colItems
    strStatus = objItem.AppGetStatus
    If strStatus = 2 Then
        Wscript.Echo "The application is running."
    ElseIf strStatus = 3 Then
        Wscript.Echo "The application is stopped."
    Else
        Wscript.Echo _
            "The status could not be determined."
    End If
Next