Some times I check if my applications are still using the proper application pools (I am not the only administrator of the IIS servers 😉 ). You can do this with the IIS GUI ofcourse but you can also use scripting (checking a lot of servers/application and application pools can be a pain in the !@#$%). So I created a little script to do that.
Some times I check if my applications are still using the proper application pools (I am not the only administrator of the IIS servers 😉 ).
You can do this with the IIS GUI ofcourse but you can also use scripting (checking a lot of servers/application and application pools can be a pain in the !@#$%).
So I created a little script to do that.
'--------------------------------------------------------------------------
Option Explicit
'--------------------------------------------------------------------------
' init
'--------------------------------------------------------------------------
Dim oIIS
Dim sDataPath
Dim cDataPaths
Dim sAppPoolID
Dim oWMI
Dim cProcessList
Dim oProcess
'--------------------------------------------------------------------------
' Main routine
'--------------------------------------------------------------------------
Set oIIS = GetObject("IIS://localhost/w3svc")
cDataPaths = oIIS.GetDataPaths("AppPoolId",0)
For Each sDataPath In cDataPaths
WScript.Echo "------------------------------------------------------------"
sAppPoolID = GetObject(sDataPath).AppPoolId
WSCript.Echo "Metabase Path: " & sDataPath
WScript.Echo "Appication Pool: " & sAppPoolID
WScript.Echo "W3wp.exe Pid: " & GETWPPID(sAppPoolID)
Next
WScript.Echo "------------------------------------------------------------"
'--------------------------------------------------------------------------
'--------------------------------------------------------------------------
' Functions and Subs
'--------------------------------------------------------------------------
Function GETAPID(sArg)
Dim Submatches
Dim sAppPoolid
Dim re
Dim Matches
On Error Resume Next
Set re = New RegExp
re.Pattern = "-ap ""(.+)"""
re.IgnoreCase = True
Set Matches = re.Execute(sArg)
Set SubMatches = Matches(0).Submatches
sAppPoolid = Submatches(0)
GETAPID = sAppPoolid
End Function
Function GETWPPID(sAppPool)
Set oWMI = GetObject("winmgmts:\root\cimv2")
Set cProcessList = oWMI.ExecQuery("Select * from Win32_Process WHERE Name='w3wp.exe'")
For Each oProcess In cProcessList
If GETAPID(oProcess.CommandLine) = sAppPool Then
GETWPPID = oProcess.ProcessID
Exit Function
End If
Next
GETWPPID = "Application Pool is not running"
End Function
'--------------------------------------------------------------------------