'************************************************** * ***
'Erstellen Sie einen Webserver
'Erforderliche Parameter: WRoot ist das physische Verzeichnis, in dem die Site erstellt wird; WPort ist der Site-Port;
' Gibt 1 zurück, wenn die Erstellung erfolgreich war, fordert zum Beenden auf und gibt 0 zurück, wenn sie fehlschlägt, gibt 2 zurück, wenn die Site erfolgreich erstellt wurde, aber nicht gestartet werden kann.
'************************************************** * ****
'
'******************Hinweis: WPort ist vom Typ Liste, d. h. Server-Port
' Diese Funktion übergibt IIS5.0, **Muss als Administrator angemeldet sein**
'Port-Beispiel:
' WPort,bindlists,createflag,oComputer dimmen
' oComputer=""""LocalHost""""
'binglists=Array(0)
' binglists(0)="""":80:""""'Die Portnummer ist 80
' WPort=binglists
' createflag=CreateWebServer(""""D:myweb"""",""""My Home"""",WPort,False)'Rufen Sie die Website-Erstellungsfunktion auf
' Wenn creatflag=0 Dann
' Response.Write """"Fehler beim Erstellen der Website! Bitte stellen Sie sicher, dass Sie über die entsprechende Berechtigung verfügen.
' ElseIf createflag=1 Then
' Response.Write """"Site erfolgreich erstellt! „“““
' ElseIf createflag=2 Then
' Response.Write """"Die Site wurde erfolgreich erstellt, konnte jedoch nicht gestartet werden. Möglicherweise liegt ein Portkonflikt vor! „“““
'Ende wenn
'************************************************** * *********
„Über die Erstellung der FTP-Site habe ich sie in der ASP-Version veröffentlicht. Interessierte Freunde können sich selbst davon überzeugen.“
„Wenn Sie Fragen haben, können Sie mich gerne kontaktieren: [email protected]
Funktion CreateWebServer(WRoot,WComment,WPort,ServerRun)
Bei Fehler Weiter fortsetzen
Dimmen Sie ServiceObj, ServerObj, VDirObj
Set ServiceObj = GetObject(""""IIS://""""&oComputer&""""/W3SVC""")' Erstellen Sie zunächst eine Dienstinstanz
WNumber=1
Do While IsObject(ServiceObj.GetObject(""""IIsWebServer""",WNumber))
Wenn Fehlernummer<>0, dann
Err.Clear()
Beenden Sie Do
Ende wenn
WNummer=WNummer+1
Schleife
Set ServerObj = ServiceObj.Create(""""IIsWebServer"""", WNumber)' Dann erstellen Sie einen WEB-ServerIf
(Err.Number <> 0) Then' Liegt ein Fehler vor?
'Response.Write """"Fehler: ADSI-Vorgang zum Erstellen des Webservers fehlgeschlagen! „“““
CreateWebServer=0
Exit-Funktion
Ende wenn
' Dann konfigurieren Sie den Server
ServerObj.ServerSize = 1 ' Mittlere Größe
ServerObj.ServerComment = WComment 'Beschreibung
ServerObj.ServerBindings = WPort 'Port
ServerObj.EnableDefaultDoc=True
' Informationen senden
ServerObj.SetInfo
' Erstellen Sie abschließend ein virtuelles Verzeichnis
Setze VDirObj = ServerObj.Create(""""IIsWebVirtualDir""", """"ROOT""")
If (Err.Number <> 0) Then' Liegt ein Fehler vor?
'Response.Write """"Fehler: ADSI-Vorgang zum Erstellen eines virtuellen Verzeichnisses fehlgeschlagen! „“““
CreateWebServer=0
Exit-Funktion
End If
'Virtuelles Verzeichnis konfigurieren
VDirObj.Path = WRoot
VDirObj.AccessRead = True
VDirObj.AccessWrite = True
VDirObj.EnableDirBrowsing = False
VDirObj.EnableDefaultDoc=True
VDirObj.AccessScript=True
VDirObj.AppCreate2 2
VDirObj.AppFriendlyName=""""Standardanwendung""""
VDirObj.SetInfo
Wenn ServerRun = True, dann
ServerObj.Start
If (Err.Number <> 0) Then ' Fehler!
'Response.Write """"Error: Fehler beim Starten des Servers! Bitte starten Sie den WebServer „&WComment&“ manuell! <br>""""
CreateWebServer=2
Exit-Funktion
Ende wenn
Ende wenn
Setzen Sie VDirObj=Nothing
Setzen Sie ServerObj=Nothing
Setze ServiceObj=Nothing
CreateWebServer=1
Funktion beenden