---- Code ----
' VBScript source code
' Gerald Bunch
' CreateAppPool.vbs
'
' thelazyadmin.com

Option Explicit

'Create an Application Pool, and Assign Permissions
Dim objAppPools, objAppPool
Set objAppPools = GetObject("IIS://localhost/w3svc/AppPools") ' Get the ADSI IIS Object

' Set the App Pool Name
Set objAppPool = objAppPools.Create("IISApplicationPool","TheLazyAdmin.com")

' Uncomment these lines to set the assign credentials to the App Pool
'objAppPool.WAMuserName = "DOMAIN\user"
'objAppPool.WAMUserPass = "p@ssworD"

'This line adds the info to the iis server
objAppPool.SetInfo