Summary

Synopsis

The following VBScript code queries IIS, retrieves a list of websites on localhost, and displays the websites in a ComboBox control.

Discussion

The following VBScript code populates a ComboBox control with the websites by directly modifying the ComboBox table. A custom dialog still needs to be created that includes this ComboBox control.

If using an InstallScript or InstallScript MSI project type, the following code can be modified to send the list of websites to a list, which can then be displayed in an InstallScript dialog. You would replace the code in the commented sections to route the data into a list.

Dim objViewDim objRecordDim objW3SVC, objIisWebSiteDim lngOrderSet objView = Session.Database.OpenView("select * from ComboBox")
' enumerate webservers on localhost and populate ComboBox tableSet objW3SVC = GetObject("IIS://localhost/W3SVC")lngOrder = 1
For Each objIisWebSite In objW3SVCIf objIisWebSite.Class = "IIsWebServer" Then If LCase(objIisWebSite.ServerComment) <> "administration web site" Then
 ' add site name to ComboBox table (which is used by our dialog ComboBox) Set objRecord = Session.Installer.CreateRecord(4) objRecord.StringData(1) = "WT1_IISWebSite" ' property name objRecord.IntegerData(2) = lngOrder ' order objRecord.StringData(3) = objIisWebSite.Name ' value objRecord.StringData(4) = objIisWebSite.ServerComment ' text
 ' now add the record to the table objView.Modify 7, objRecord ' (7 = msiViewModifyInsertTemporary) lngOrder = lngOrder + 1 End IfEnd If
NextobjView.Close

Additional Information

This code was submitted by user rasmusmoller from the InstallShield Community.

IIS support in InstallShield is fully documented in the InstallShield Help Library, including the following articles:

• Managing Internet Information Services
• Creating a Web Site and Adding an Application or a Virtual Directory