VB判斷IIS是否已經安裝
當前位置:點晴教程→知識管理交流
→『 技術文檔交流 』
Private Sub Command1_Click()
'On Error Resume Next Dim objIIS, strServerName strServerName = "localhost" Set objIIS = GetObject("IIS://" & strServerName & "/W3SVC/1") If Err = -2147024893 Then MsgBox "IIS不存在!" & vbCrLf & "請驗證IIS是否已正確安裝!", vbCritical Wscript.Quit ElseIf Err <> 0 Then MsgBox "未知錯誤!", vbCritical Wscript.Quit Else MsgBox "找到IIS!" End If End Sub 該文章在 2014/4/1 22:32:04 編輯過 |
關鍵字查詢
相關文章
正在查詢... |