実際、私は昨日これを「解決」しましたが、まだこのテーマについて他に何も見つからなかったので、私たちはパイオニアだと思います;）。私はあなたがした長い行を始めましたが、有用なドキュメントが見つからなかったので、別の道を進みました。私の解決策は機能しますが、それは非常に厄介です。
基本的に、Webサイトのリストをテキストファイルに出力するVBスクリプトを実行し、そのテキストファイルをInnoセットアップに読み戻します。以下は私の現在のコードですが、これは非常に大まかなものです。後で整理して適切なエラー処理を追加する予定です。
Website.vbs
OPTION EXPLICIT
DIM CRLF, TAB
DIM strServer
DIM objWebService
strServer = "localhost"
CRLF = CHR( 13 ) & CHR( 10 )
' WScript.Echo "Enumerating websites on " & strServer & CRLF
SET objWebService = GetObject( "IIS://" & strServer & "/W3SVC" )
EnumWebsites objWebService
SUB EnumWebsites( objWebService)
DIM objWebServer, objWebServerRoot, strBindings
Dim objFSO, objFolder, objShell, objTextFile, objFile
Dim strDirectory, strFile, strText
strFile = "website.txt"
' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strFile) Then
Set objFolder = objFSO.GetFolder(strDirectory)
Else
Set objFile = objFSO.CreateTextFile(strFile)
' Wscript.Echo "Just created " & strDirectory & strFile
End If
set objFile = nothing
set objFolder = nothing
' ForAppending = 8 ForReading = 1, ForWriting = 2
Const ForAppending = 8
Set objTextFile = objFSO.OpenTextFile _
(strFile, ForAppending, True)
FOR EACH objWebServer IN objWebService
IF objWebserver.Class = "IIsWebServer" THEN
SET objWebServerRoot = GetObject(objWebServer.adspath & "/root")
' Writes strText every time you run this VBScript
objTextFile.WriteLine(objWebServer.ServerComment)
END IF
NEXT
objTextFile.Close
END SUB
Innosetupスクリプト
[Code]
var
WebsitePage: TWizardPage;
ComboBox: TNewComboBox;
WebSite: Variant;
WebServer: Variant;
WebRoot: Variant;
ErrorCode: Integer;
ResultCode: Integer;
Sites: AnsiString;
procedure InitializeWizard;
begin
ExtractTemporaryFile('Website.vbs');
if not ShellExec('', ExpandConstant('{tmp}\Website.vbs'), '', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode) then
begin
MsgBox('Oh no!:' #13#13 'The file could not be executed. ' + SysErrorMessage(ResultCode) + '.', mbError, MB_OK);
end;
if LoadStringFromFile(ExpandConstant('{tmp}\website.txt'), Sites) then
begin
//MsgBox(Sites, mbInformation, MB_OK);
end else begin
Exit;
end;
WebsitePage := CreateCustomPage(DataDirPage.ID, 'Select which website you wish to install to',
'Which website should the application be install to?');
ComboBox := TNewComboBox.Create(WebsitePage);
ComboBox.Width := WebsitePage.SurfaceWidth;
ComboBox.Parent := WebsitePage.Surface;
ComboBox.Style := csDropDownList;
ComboBox.Items.Text := Sites;
ComboBox.ItemIndex := 0;
end;