appPoolName = WScript.Arguments(0)

Set oWebAdmin = GetObject("winmgmts:root\WebAdministration")

Set oAppPool = oWebAdmin.Get("ApplicationPool.Name='" + appPoolName + "'")

oAppPool.Recycle

set fso=createobject("scripting.filesystemobject")

if (fso.fileexists("C:\WebRoot\WebSite\FLFTask\Logs\recycleIISPool.log")) then

   '1-forreading，2-forwriting，8-appending

   set file=fso.opentextfile("C:\WebRoot\WebSite\FLFTask\Logs\recycleIISPool.log",8,ture)

else

   set file=fso.createtextfile( "C:\WebRoot\WebSite\FLFTask\Logs\recycleIISPool.log",8,ture)

end if

'write(x)寫(xiě)入x個(gè)字符，writeline寫(xiě)入換行，writeblanklines(n)寫(xiě)入N個(gè)空行

file.writeline  now&" 應(yīng)用程序池“"&appPoolName &"”已經(jīng)回收成功。"

file.close

cscript recyclepool.vbs EduWebApi

@echo off
color 1f
echo 正在調(diào)起程序

echo.>>check.txt
echo.正在調(diào)起程序 %date% >>check.txt

echo 開(kāi)始執(zhí)行baidu.com   %date% %time% >>check.txt
curl -s http://www.baidu.com/api/Common/CheckProveStatus>>check.txt
echo. 執(zhí)行完成  %time% >>check.txt