vb操作IIS，如何判断网站是否启动

Question

vb操作IIS，如何判断网站是否启动

Answer 1

真的不知道，从枚举进程DLLHOST.DLL？或从服务入手？

Answer 2

Dim VDirObj, vStatus
    Dim i As Integer
    Set VDirObj = GetObject("IIS://LocalHost/W3SVC/1")
    ' Get the status of the application
    VDirObj.GetInfo
    MsgBox VDirObj.ServerState
    '1 (starting), 2 (started), 3 (stopping), 4 (stopped), 5 (pausing), 6 (paused), or 7 (continuing).