strComputer = "."

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

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



For Each objItem in colItems

	WScript.Echo " "
	Wscript.Echo "Apppoolidentitytype: " & objItem.Apppoolidentitytype
	Wscript.Echo "apppoolqueuelength: " & objItem.apppoolqueuelength
	Wscript.Echo "apppoolrecyclerequests: " & objItem.apppoolrecyclerequests
	Wscript.Echo "maxprocesses: " & objItem.maxprocesses
	Wscript.Echo "name: " & objItem.name
' Wscript.Echo "cpulimit: " & objItem.cpulimit
' Wscript.Echo "description: " & objItem.description
	Wscript.Echo "settingID: " & objItem.settingID
	Wscript.Echo "win32error: " & objItem.win32error
	Wscript.Echo "WAMusername: " & objItem.WAMusername
	Wscript.Echo "WAMuserpass: " & objItem.WAMuserpass

	WScript.Echo ""
	Select Case objItem.AppPoolState

	Case 1
		WScript.Echo "State: starting"

	Case 2
		WScript.Echo "State: running"

	Case 3
		WScript.Echo "State: stopping"

	Case 4
		WScript.Echo "State: stopped"

	Case else
		WScript.Echo "State: unknown"

	End Select



Next