Hi Matt,
Sorry, I think I expressed myself a little bit confusing. I never have written 
vbscript code but your example is pretty much that what I was looking for. I 
realized after a while that there is a VBScriptCall attribute for the Custom 
Actions so its not so hard to implement it.
Meanwhile I did some evil reverse engineering and took the custom action of 
Visual Studio Websetup to gain the entries. But unfortunately I do not know who 
it works, it only gives me the result. So I can show now the entries in the 
Combobox and I can get the choosen "/LM/W3SVC/2" for example but I do not know 
what the Wix iis:Website really needs so that I can dynamically install to a 
specified Website of the IIS.

Greetings Peter

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
Sent: Tuesday, September 25, 2007 4:44 PM
To: [EMAIL PROTECTED]
Cc: wix-users@lists.sourceforge.net; [EMAIL PROTECTED]
Subject: Re: [WiX-users] choosing Website (not Webserver) and changing Virtual 
Directory

I don't totally understand what you mean about Custom Action vbscript. I'm
not sure if you mean you don't know vbscript as a language for Custom
Actions or you don't understand the VBScript in adsutil.

If it's the later, fear not, as I was over-complicating it a bit by saying
use adsutil - I've included these snippets come from http://www.iisfaq.com
- I've not tested them at the mo though as i don't have an IIS setup i can
test them on.

this VBScript will list the websites on the webserver:

      Set objIIS = getObject("IIS://LocalHost/W3SVC")
      For each objSite in objIIS
            if (objSite.Class = "IIsWebServer") then
                  WScript.Echo "Website: " & objSite.Name & " - " &
objSite.ServerComment
            end if
      next

I believe this will give you the virtual folders for a given website ID:

      Set objIISSite = getObject("IIS://LocalHost/W3SVC/<----Add the
website ID here--->")
      For each objVirDir in objIISSite
            if (objVirDir.Class = "IISWebVirtualDir") then
                  WScript.Echo "VirtualDir: " & objVirDir.Name
            end if
      next

If it's the former, that is you don't know much about custom actions and
vbscript, i'm sorry to say i can't help much with that - i've not written
any custom actions myself for a long time...

Matt


Matt Thompson
PERSHING
Tel: 020 7864 8000
Email: [EMAIL PROTECTED]


-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
WiX-users mailing list
WiX-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/wix-users

Reply via email to