You can use the AppGetStatus method of the IIsWebVirtualDir object to retrieve the current status of a Web application.
vReturn = IIsWebVirtualDir.AppGetStatus 
 | APPSTATUS_NOTDEFINED | No application is defined at the specified path. | 
| APPSTATUS_RUNNING | The application is running. | 
| APPSTATUS_STOPPED | The application is not running. | 
<% 
Dim VDirObj, vStatus 
Set VDirObj = GetObject("IIS://LocalHost/W3SVC/1/ROOT/MyAppVDir") 
' Get the status of the application 
vReturn = VDirObj.AppGetStatus 
%> 
 AppCreate, AppDelete, AppDeleteRecursive, AppUnload, AppUnloadRecursive, AppDisable, AppDisableRecursive, AppEnable, AppEnableRecursive