You are here:
ActiveXperts.com > ActiveXperts Network Monitor > WindowsManagement > Scripts > IIS > IIS 5.x > Applications
Quicklinks
You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/2142295254/root/aspnet_client_folder")
objIIS.AppCreate(False)
Const OUT_OF_PROCESS = 1
strComputer = objNetwork.ComputerName
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/2142295254/root/aspnet_client_folder")
objIIS.AppCreate2 OUT_OF_PROCESS
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/2142295254/root/aspnet_client_folder")
objIIS.AppDeleteRecursive
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/2142295254/root/aspnet_client_folder")
objIIS.AppDisableRecursive
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/2142295254/root/aspnet_client_folder")
objIIS.AppDisable
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/2142295254/root/aspnet_client_folder")
objIIS.AppDelete
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/2142295254/root/aspnet_client_folder")
objIIS.AppEnableRecursive
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/2142295254/root/aspnet_client_folder")
objIIS.AppEnable
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/AppPools/MSSharePointAppPool")
arrApps = objIIS.EnumAppsInPool
For i = 0 to Ubound(arrApps)
Wscript.Echo arrApps(i)
Next
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/AppPools/MSSharePointAppPool")
objIIS.Recycle
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/2142295254/root/aspnet_client_folder")
objIIS.ASPAppRestart
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/AppPools/MSSharePointAppPool")
objIIS.Start
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/AppPools/MSSharePointAppPool")
objIIS.Stop
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/2142295254/root/aspnet_client_folder")
objIIS.AppUnload
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/2142295254/root/aspnet_client_folder")
objIIS.AppUnloadRecursive
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/2142295254/root/aspnet_client_folder")
strStatus = objIIS.AppGetStatus2
If strStatus = 2 Then
Wscript.Echo "The application is running."
ElseIf strStatus = 3 Then
Wscript.Echo "The application is stopped."
Else
Wscript.Echo "The status of this application could not be determined."
End If