Set AppPoolName using Script

On error Resume Next
set vdirObj= _
GetObject(“IIS://localhost/W3svc/1/Root/Documentation”)
ObjAppPool =  vdirObj.AppPoolId
vdirObj.AppPoolId = “Documentation”
vdirObj.SetInfo
wscript.echo “Stopping Application Pool : ” & vdirObj.AppPoolId
Set objAppPool = GetObject(“IIS://localhost/W3SVC/AppPools/” & vdirObj.AppPoolId)
objAppPool.Stop()
wscript.echo “Starting Application Pool : ” & vdirObj.AppPoolID
objAppPool.Start()