您當(dāng)前位置：首頁(yè) > 服務(wù)器 > VBS腳本監(jiān)視IIS 若服務(wù)停止自動(dòng)啟動(dòng)

VBS腳本監(jiān)視IIS 若服務(wù)停止自動(dòng)啟動(dòng)

來(lái)源：程序員人生發(fā)布時(shí)間：2013-12-08 20:45:27 閱讀次數(shù)：3265次

前幾天有位朋友跟我說服務(wù)器的IIS服務(wù)經(jīng)常因?yàn)樵L問量過大而自動(dòng)終止，苦于沒有解決訪問，在分析了他的服務(wù)器后發(fā)現(xiàn)，服務(wù)器性能較低，網(wǎng)站訪問量很大，參照網(wǎng)前邊的文章《IIS自動(dòng)停止關(guān)閉及應(yīng)用程序池假死自動(dòng)重啟的問題》也不能完全解決此問題。由于他的服務(wù)器每天會(huì)不定時(shí)IIS停止響應(yīng)，大約每天會(huì)有1－2次，于是就想了一個(gè)笨辦法中的辦法，就是利用VBS腳本監(jiān)視系統(tǒng)服務(wù)，如果自動(dòng)停止了，就將IIS服務(wù)自動(dòng)啟動(dòng)。

經(jīng)過測(cè)試，這個(gè)方法還算比較完美一些，特別將VBS腳本發(fā)出來(lái)給大家，代碼如下：

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}" _
& strComputer & "ootmicrosoftiisv2")

While (True)
Set colItems = objWMIService.ExecQuery("Select * From IIsWebServer Where Name = 'W3SVC/1'")
For Each objItem in colItems
WScript.Echo objItem.ServerState & " " & Now & " "
If objItem.ServerState = 4 Then
WScript.Echo "! 網(wǎng)站服務(wù)停止嘗試啟動(dòng)..."
objItem.Start()
WScript.Echo "! 網(wǎng)站服務(wù)已被成功啟動(dòng)..."
End If
Next
WScript.Sleep 10000
Wend

生活不易，碼農(nóng)辛苦
如果您覺得本網(wǎng)站對(duì)您的學(xué)習(xí)有所幫助,可以手機(jī)掃描二維碼進(jìn)行捐贈(zèng)
程序員人生

------分隔線----------------------------

上一篇 看Sybase官方手冊(cè)學(xué)索引工作原理

下一篇 從 Google Docs 下載任意格式文檔的方法

分享到:

------分隔線----------------------------

日本搞逼视频_黄色一级片免费在线观看_色99久久_性明星video另类hd_欧美77_综合在线视频

VBS腳本監(jiān)視IIS 若服務(wù)停止自動(dòng)啟動(dòng)