可以使用
vReturn = DirObj.
APPSTATUS_NOTDEFINED | 没有在指定路径上定义的应用程序。 |
APPSTATUS_RUNNING | 应用程序正在运行。 |
APPSTATUS_STOPPED | 应用程序现在没有运行。 |
<%
Dim DirObj, vStatus
Set DirObj = GetObject("IIS://LocalHost/W3SVC/1/ROOT/MyAppDir")
'获取应用程序状态。
vReturn = DirObj.AppGetStatus
%>