[VB6 - IIS7] - Aanmaken site met meerdere bindings

[Nutcaze]

Ik heb het volgende stukje code:

code:

Dim strSiteName As String, strPhysicalPath As String, DomeinnaamZonderExtensie As String
Dim LokatiePunt As Byte
Dim BindingsArray(2)

strSiteName = "test.nl"
strPhysicalPath = "D:\Websites\" & strSiteName

Dim objFSO As New Scripting.FileSystemObject
If Not objFSO.FolderExists(strPhysicalPath) Then objFSO.CreateFolder (strPhysicalPath)
If Not objFSO.FolderExists(strPhysicalPath & "\www") Then objFSO.CreateFolder (strPhysicalPath & "\www")
If Not objFSO.FolderExists(strPhysicalPath & "\database") Then objFSO.CreateFolder (strPhysicalPath & "\database")
Set objFSO = Nothing

LokatiePunt = InStr(strSiteName, ".")
DomeinnaamZonderExtensie = Left(strSiteName, LokatiePunt - 1)

Dim oService As WbemScripting.SWbemServicesEx
    
Set oService = GetObject("winmgmts:root\WebAdministration")

Set SiteBinding = oService.Get("BindingElement").SpawnInstance_
SiteBinding.BindingInformation = "*:80:" & strSiteName
SiteBinding.Protocol = "http"
BindingsArray(0) = Array(SiteBinding)
Set SiteBinding = Nothing

Set SiteBinding = oService.Get("BindingElement").SpawnInstance_
SiteBinding.BindingInformation = "*:80:www." & strSiteName
SiteBinding.Protocol = "http"
BindingsArray(1) = Array(SiteBinding)
Set SiteBinding = Nothing

Set SiteBinding = oService.Get("BindingElement").SpawnInstance_
SiteBinding.BindingInformation = "*:80:www." & DomeinnaamZonderExtensie & ".it"
SiteBinding.Protocol = "http"
BindingsArray(2) = Array(SiteBinding)
Set SiteBinding = Nothing

Set SiteDefinition = oService.Get("Site")
SiteDefinition.Create strSiteName, BindingsArray(0), strPhysicalPath
Set SiteDefinition = Nothing

Set oService = Nothing

Nou snap ik niet helemaal hoe dat werkt met die bindingsarray. Ik weet niet OF het kan maar ik wil bij die SiteDefinition.Create in de variabele BindingsArray meerdere bindings mee kunnen geven. Iemand? Ik heb van die variabele BindingsArray zelf een array geprobeerd te maken maar dat werkt niet helemaal zoals ik wil.

[TeeDee]

Er zit aan je oService ook nog zoiets als een .Bindings. Daar kan je gewoon je BindingsArray aan knopen.
Of gewoon in plaats van BindingsArray(0) gewoon BindingsArray gebruiken.
Meer info hier te vinden.

Edit: je bent je er van bewust dat BindingsArray al meerdere bindings bevat he?

[ Voor 25% gewijzigd door TeeDee op 27-08-2009 10:55 ]

[Nutcaze]

TeeDee schreef op donderdag 27 augustus 2009 @ 10:53:
Er zit aan je oService ook nog zoiets als een .Bindings. Daar kan je gewoon je BindingsArray aan knopen.
Of gewoon in plaats van BindingsArray(0) gewoon BindingsArray gebruiken.
Meer info hier te vinden.

Edit: je bent je er van bewust dat BindingsArray al meerdere bindings bevat he?

Ik ben me er van bewust dat BindingsArray meerdere bindings bevat ja. Echter als ik 'm zonder (0) meegeef krijg ik een runtime error.

Ik ga nog even kijken naar .Bindings, maar het liefst heb ik het in 1 aanroep. Dus zoals het er nu staat.

[TeeDee]

Nutcaze schreef op donderdag 27 augustus 2009 @ 11:23:
[...]
Ik ben me er van bewust dat BindingsArray meerdere bindings bevat ja. Echter als ik 'm zonder (0) meegeef krijg ik een runtime error.

En wat is die error dan?

Wat meer hulp / leesvoer: hier!

[ Voor 41% gewijzigd door TeeDee op 27-08-2009 12:15 ]

[Nutcaze]

TeeDee schreef op donderdag 27 augustus 2009 @ 12:06:
[...]

En wat is die error dan?

edit:
Volgens mij kan je inderdaad geen Array van Arrays meegeven aan het Create command.

Type mismatch

[Woy]

Dit soort dingen moet je gewoon in de documentatie kunnen vinden. Wat staat er in de documentatie dat de Create methode voor parameters krijgt?

Verder kunnen we er, zoals TeeDee terecht opmerkt, weinig mee als je zegt dat je een fout krijgt. We willen dan weten welke foutmelding!

Echter als ik 'm zonder (0) meegeef krijg ik een runtime error.

Er is ook nogal een verschil tussen het meegeven van een enkel element of een Array. Maar dat soort dingen zijn gewoon basis programmeren, en zou je moeten weten.

Nutcaze schreef op donderdag 27 augustus 2009 @ 12:12:
[...]
Type mismatch

En daaruit had je dus zelf ook kunnen opmaken dat die methode geen Array verwacht! Dan kun je gewoon in de documentatie opzoeken of er een methode is die wel doet wat je wilt.

[ Voor 22% gewijzigd door Woy op 27-08-2009 12:15 ]

[TeeDee]

Woy schreef op donderdag 27 augustus 2009 @ 12:13:
En daaruit had je dus zelf ook kunnen opmaken dat die methode geen Array verwacht! Dan kun je gewoon in de documentatie opzoeken of er een methode is die wel doet wat je wilt.

Als ik het e.e.a. interpreteer heeft .Create inderdaad geen ondersteuning voor een multidimensional array, maar heeft de .Bindings / ServerBindings wel gewoon support daarvoor. Het is even een iets andere insteek van het aanmaken.

[Woy]

Hoezo stop je trouwens Array's in je Array? Daar zit je probleem.

[Nutcaze]

Woy schreef op donderdag 27 augustus 2009 @ 12:38:
Hoezo stop je trouwens Array's in je Array? Daar zit je probleem.

Zo'n vermoeden had ik al ja. Ik heb alleen geen idee hoe het anders moet. Ik probeer de manier wel van achteraf bindings toevoegen.

[Woy]

Daar ga je precies tegen hetzelfde probleem aanlopen. Zoek anders eerst eens een goede tutorial over hoe Arrays werken, want het raakt kant nog wal ( in deze situatie ieder geval ) om in een Array op elke locatie een Array met een enkele binding te stoppen.