DevTrain Startseite Visual Studio 1 Magazin  
  
  
SUCHEN:  
ARTIKEL ONLINE: 525   

Kategorien
.NET
Datenbanken
Web
XML

Allgemein
Camp
Foren
Events
Persönliche Einstellungen
Registrieren
Prämien Shop
Kontakt
Impressum
Über DevTrain

Autoren


   Autor: Shinja Strasser Artikel Drucken
        
Erstellen eines virtuellen Verzeichnises (Webfolder)

Um eine Webapplication ausführen zu können, braucht man natürlich ein
virtuelles Verzeichnis. Wie aber schaffe ich es, bei der Installation einer
Webapplikation automatisch einen Webfolder zu erstellen.
Hierzu kann man ein kleines VB-Script ausführen lassen, der alle arbeiten erledingt:

Option Explicit

 Dim sVirDir, sPhyDir
 Dim sComputer
 Dim oWebSvr, oVRoot, oVDir

  On Error Resume Next

  'HIER: In c:Inetpubwwwroot einen Ordner MyInetApp erstellen.
  sComputer = "localhost"     'Wscript.Arguments(0)  'Name des Computers oder LocalHost
  sPhyDir = "c:inetpubwwwrootMyInetApp"   'Wscript.Arguments(1)  'Physikalischer Pfad der Web-Application 
  sVirDir = "MyInetApp"    'Name (virtuelles Verzeichnis) der Web-Applikation
 
  Set oWebSvr = GetObject("IIS://" & sComputer & "/W3svc/1")
  Set oVRoot = oWebSvr.GetObject("IIsWebVirtualDir", "Root")

  Set oVDir = oVRoot.Create("IIsWebVirtualDir",sVirDir)
 
  oVDir.AccessRead = True
  oVDir.AccessWrite = True
  oVDir.AccessScript = True
  oVDir.EnableDirBrowsing = True
  oVDir.DefaultDoc = "Default.asp"
  oVDir.EnableDefaultDoc = True
  oVDir.Path = sPhyDir
  oVDir.AppCreate True
  oVDir.SetInfo

  Set oVDir = Nothing
  Set oVRoot = Nothing
  Set oWebSvr = Nothing

 


DevTrain Camp - Schneller zum .NET 3.5 Developer
 
Verwandte Artikel      Verlinkte Dokumente
    Keine verknüpften Dokumente
    Keine Links vorhanden

  Erfasst am: 20.03.2001
  Gültig bis: 19.04.2001
13 Ratings
Bewertung: 64,6%
schlecht    sehr gut  

 
© Copyright 2007 ppedv AG