'Create Application Pool

On Error Resume Next

'IIS6互換
Set objAppPools = GetObject("IIS://localhost/W3SVC/AppPools")
Set objAppPools = objAppPools.Create("IIsApplicationPool", "SystemFuture")
objAppPools.SetInfo

If 0=1 Then
	'IIS7以降用
	'サーバーマネージャの役割の管理にて
	'「管理ツール→IIS管理スクリプト及びツール」のインストール要
	Dim RootObj, AppObj, NewObj
	Set RootObj = GetObject("winmgmts:root\WebAdministration")
	Set AppObj = RootObj.Get("ApplicationPool")
	AppObj.Create("SystemFuture")
End If

On Error Goto 0