Domains oder Subdomains einer vorhandenen Website ergänzen oder lö

12/03/2009 - 19:06 von Nico | Report spam
Ich habe es mittels WMI-Script hinbekommen, neue Seiten im IIS einzutragen.

(Object: WbemScripting.SWbemLocator

Prozedur: CreateNewSite)

Leider möchte ich keine neue Website eintragen sondern Domains oder
Subdomains einer vorhandenen Website ergànzen oder löschen.

Ich finde unter MSDN keinerlei Hinweise.

Hat jemand eine Idee? Bin fast am…..
 

Lesen sie die antworten

#1 Stefan Falz [MVP]
13/03/2009 - 00:10 | Warnen spam
Hallo Nico,

"Nico" schrieb:

(Object: WbemScripting.SWbemLocator

Prozedur: CreateNewSite)



Siehe dazu auch:

http://www.microsoft.com/technet/sc...evb02.mspx

Ein guter Startpunkt für deine weiteren Nachforschungen wàre:

http://www.microsoft.com/technet/sc...fault.mspx

Leider möchte ich keine neue Website eintragen sondern Domains oder
Subdomains einer vorhandenen Website ergà¤nzen oder löschen.



Das sind für IIS keine Domains, Subdomains, sondern Bindungen (Bindings).


Ich finde unter MSDN keinerlei Hinweise.



Was Du dir auf jeden Fall mal anschauen solltest, wàren die WMI Tools. Für
deine Anforderungen sind die sehr hilfreich.

http://www.microsoft.com/downloads/...laylang=en

Ich hab dir mal ein rudimentàres Beispiel für das Hinzufügen einer Bindung
zu einer bestehenden Website gemacht. Das muss natürlich noch erweitert
werden (prüfen, ob die Bindungskonstellation irgendwo sonst auf dem Server
schon verwendet wird, ...)



Dim WmiService
Dim WebService
Dim WebSite
Dim Bindings
Dim Item
Dim Length
Dim Counter

Set WmiService = GetObject( "winmgmts:{authenticationLevel=pktPrivacy}\\.oot\microsoftiisv2" )
Set WebService = WmiService.ExecQuery( "Select * From IIsWebServerSetting WHERE Name = 'W3SVC/44'" )

For Each Item in WebService
Set Website = Item
Exit For
Next

Bindings = Website.ServerBindings
Length = UBound( Bindings ) + 1

ReDim Preserve Bindings( Length )

Set Bindings( Length ) = WmiService.Get( "ServerBinding" ).SpawnInstance_()

Bindings( Length ).IP = "192.168.1.90"
Bindings( Length ).Port = "80"
Bindings( Length ).Hostname = "testabc123"

Website.ServerBindings = Bindings
Website.Put_


For Counter = 0 To UBound( Bindings )
WScript.Echo "Hostname : " & Bindings( Counter ).Hostname
WScript.Echo "IP Adresse: " & Bindings( Counter ).IP
WScript.Echo "Portnummer: " & Bindings( Counter ).Port
WScript.Echo "--"
Next



HTH

Tschau, Stefan
Microsoft MVP - Visual Developer ASP/ASP.NET
http://www.asp-solutions.de/ - Consulting, Development
http://www.aspnetzone.de/ - ASP.NET Zone, die ASP.NET Community

Ähnliche fragen