[VB6 - IIS7] - Delete van een websitebinding via WMI

Pagina: 1
Acties:

Acties:
  • 0 Henk 'm!

  • Nutcaze
  • Registratie: Oktober 1999
  • Laatst online: 16-08 06:35
Ik heb het volgende stukje code:

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim oIIS As WbemScripting.SWbemServicesEx
Dim Bindingnaam As String, Websitenaam As String

Bindingnaam = "test.nl"
Websitenaam = "test.nl"

Set oIIS = GetObject("winmgmts:root\WebAdministration")
Set oSite = oIIS.Get("Site.Name='" & Websitenaam & "'")
For Each binding In oSite.Bindings
    bindingArray = Split(binding.BindingInformation, ":")
    
    If StrComp(bindingArray(2), Bindingnaam) = 0 Then
        binding.Delete_
    End If
Next
Set oSite = Nothing
Set oIIS = Nothing


De bedoeling is dat ik van een website met meerdere bindings er eentje verwijder.

Website test.nl heeft bijvoorbeeld de bindings:
test.nl
www.test.nl
en
www2.test.nl

Nou wil ik de binding test.nl verwijderen. Dit werkt echter niet op de manier zoals boven want de methode delete_ bestaat hier kennelijk niet voor. Ik kan geen enkel voorbeeld vinden op internet hoe het wel moet. Iemand enig idee?
Voor degenen die gisteren ook geholpen hebben bij dit probleem: ik heb het opgelost door eerst met 1 binding de website aan te maken en dan de overige bindings er op toe te voegen.

Edit:

Had nog zo'n stuk code gevonden maar ook dat werkt niet:

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim oIIS As WbemScripting.SWbemServicesEx
Dim Bindingnaam As String, Websitenaam As String

Bindingnaam = "test.nl"
Websitenaam = "test.nl"

Set oIIS = GetObject("winmgmts:root\WebAdministration")
Set oSite = oIIS.Get("Site.Name='" & Websitenaam & "'")
For Each binding In oSite.Bindings
    bindingArray = Split(binding.BindingInformation, ":")
    
    If StrComp(bindingArray(2), Bindingnaam) = 0 Then
        oSite.Bindings.Remove(binding)
    End If
Next
Set oSite = Nothing
Set oIIS = Nothing


Groot probleem is dat ik niet zeker weet wat voor types ik mee te maken heb. Als ik kijk in het locals window is alles ook binding van het type SWbemServicesEx. Als ik binding als SWbemServicesEx Dim dan krijg ik lang niet alles te zien qua properties en methods met de intellisense. Er zijn properties aanwezig op het object ( zoals bijv. PhysicalPath bij een site) die dan niet met intellisense zichtbaar zijn? Geen idee hoe dat kan.

[ Voor 29% gewijzigd door Nutcaze op 28-08-2009 18:26 ]

Not all chemicals are bad. Without hydrogen or oxygen, for example, there would be no way to make water, a vital ingredient in beer.


Acties:
  • 0 Henk 'm!

  • alt-92
  • Registratie: Maart 2000
  • Niet online

alt-92

ye olde farte

http://learn.iis.net/page...-pools-on-iis-7-with-wmi/
en uiteraard de bijbehorende MSDN docs http://msdn.microsoft.com/en-us/library/aa347459.aspx ook erbij gepakt?
Verder wil http://blogs.technet.com/heyscriptingguy/default.aspx nog wel eens behulpzaam zijn - aangezien je het niet over VB6 hebt maar over WMI/VBscript. da's heel wat anders.

ik heb een 864 GB floppydrive! - certified prutser - the social skills of a thermonuclear device


Acties:
  • 0 Henk 'm!

  • Nutcaze
  • Registratie: Oktober 1999
  • Laatst online: 16-08 06:35
alt-92 schreef op zaterdag 29 augustus 2009 @ 10:50:
http://learn.iis.net/page...-pools-on-iis-7-with-wmi/
en uiteraard de bijbehorende MSDN docs http://msdn.microsoft.com/en-us/library/aa347459.aspx ook erbij gepakt?
Verder wil http://blogs.technet.com/heyscriptingguy/default.aspx nog wel eens behulpzaam zijn - aangezien je het niet over VB6 hebt maar over WMI/VBscript. da's heel wat anders.
Die eerste pagina heb ik een hoop van geleerd maar staat niet op wat ik nodig heb. Die reference van Microsoft is uitgebreid maar ik snap er niets van. References van andere componenten zoals xmldom en filesystemobject zijn wel duidelijk beschreven maar dit object totaal niet.

Die derde staan een hoop handige dingetjes op maar niets wat met mijn vraag te maken heeft.

Not all chemicals are bad. Without hydrogen or oxygen, for example, there would be no way to make water, a vital ingredient in beer.


Acties:
  • 0 Henk 'm!

  • Woy
  • Registratie: April 2000
  • Niet online

Woy

Moderator Devschuur®
Dit object is anders perfect gedocumenteerd. Je probleem is nog steeds dat je niet snapt hoe arrays werken blijkbaar.

http://msdn.microsoft.com/en-us/library/ms689454.aspx

Daar kun je alles vinden wat je nodig hebt om dit op te lossen.

“Build a man a fire, and he'll be warm for a day. Set a man on fire, and he'll be warm for the rest of his life.”