91网首页-91网页版-91网在线观看-91网站免费观看-91网站永久视频-91网站在线播放

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ò)