DevTrain - 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