IIsWebService.ListWebServiceExtensions (ADSI)

  • Article

The ListWebServiceExtensions method returns an array of strings containing the Web service extension groups that can be enabled on the server. If there are multiple entries in the WebSvcExtRestrictionList metabase property with the same GroupID, only one is listed.

Note

This method is only available on IIS 6.0 or later.

objIIsWebService.ListWebServiceExtensions As VARIANT

Parameters

This method has no parameters.

Return Values

An array of strings containing GroupIDs. In other words, an array of second tokens in the ApplicationDependencies metabase property, which are also the fourth tokens in the WebSvcExtRestrictionList metabase property.

Example Code

The following example shows you how to use the VBScript programming language to display the Web service extension restriction list, display the application dependencies, list the available group identifiers, list the applications that are dependent upon ASP, and state if ASP is enabled or disabled.

Dim aWebSvcExtRestrictionList 
Dim aApplicationDependencies 
Dim aExt 
Dim sExt 
aExt = Array() 
aWebSvcExtRestrictionList = Array() 
aApplicationDependencies = Array() 
Set IIsWebServiceObj = GetObject("IIS://localhost/W3SVC") 

' Store original value: 
aWebSvcExtRestrictionList = IIsWebServiceObj.WebSvcExtRestrictionList 

WScript.Echo 
WScript.Echo "WebSvcExtRestrictionList property:" 
' For each extension record, 
For Each i in aWebSvcExtRestrictionList 
  WScript.Echo(i) 
Next 

' Store original value: 
aApplicationDependencies = IIsWebServiceObj.Get("ApplicationDependencies") 

WScript.Echo 
WScript.Echo "ApplicationDependencies property:" 
' For each extension record, 
For ValueIndex = 0 To UBound(IIsWebServiceObj.ApplicationDependencies) 
  WScript.Echo IIsWebServiceObj.Get("ApplicationDependencies")(ValueIndex) 
Next 

WScript.Echo 
' For each extension record, 
For ValueIndex = 0 To UBound(IIsWebServiceObj.WebSvcExtRestrictionList) 

  sExt = IIsWebServiceObj.Get("WebSvcExtRestrictionList")(ValueIndex) 

  If ( 0 < (InStr(sExt, "asp.dll")) ) Then 
If ("0" = Left(sExt, 1)) Then  
WScript.Echo "ASP is disabled" 
Elseif ("1" = Left(sExt, 1)) Then  
WScript.Echo "ASP is enabled" 
Else  
WScript.Echo "ASP is set to an unexpected value" 
End If 
  End If 
Next 

WScript.Echo 
WScript.Echo "ListWebServiceExtensions method:" 
aExt = IIsWebServiceObj.ListWebServiceExtensions 
For ValueIndex = 0 To UBound(aExt) 
  WScript.Echo aExt(ValueIndex) 
Next

Requirements

Server: Requires or Windows Server 2003.

Product: IIS

See Also