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 & "請(qǐng)驗(yàn)證IIS是否已正確安裝！", vbCritical
        Wscript.Quit
    ElseIf Err <> 0 Then
        MsgBox "未知錯(cuò)誤！", vbCritical
        Wscript.Quit
    Else
        MsgBox "找到IIS！"
    End If
End Sub

該文章在 2014/4/1 22:32:04 編輯過(guò)