vbs script til oprettelse af nyt virtual directory i IIS

http://www.installshield.com/news/newsletter/0205-articles/virtual-directory.htm

//>Rune

Option Explicit



Dim Root

Dim Dir



On Error Resume Next



Set Root = GetObject("IIS://LocalHost/W3SVC/1/ROOT")



if (Err.Number <> 0) then

      MsgBox "Web Server doesn't exist"

      wscript.Quit

end if

strDirNavn = InputBox("Skriv sitenavn")

strAccessRead = MsgBox("Skal brugeren have læserettigheder?",64+4,"Rettigheder")

If strAccessRead = vbYes Then
  strAccessRead = True
Else
  strAccessRead = False
End If

strAccessWrite = MsgBox("Skal brugeren have skriverettigheder?",64+4,"Rettigheder")

If strAccessWrite = vbYes Then
  strAccessWrite = True
Else
  strAccessWrite = False
End If

Set Dir = Root.Create("IIsWebVirtualDir", strDirNavn)

Dir.Path = "C:\ "

Dir.AccessRead = strAccessRead

Dir.AccessWrite = strAccessWrite

Dir.EnableDirBrowsing = False

Dir.AppFriendlyName = "Test"

Dir.SetInfo

   

Set Dir = Nothing

Set Root = Nothing

(Er utestet, ved ik' om det virker!)

//>Rune

Hov, det skal nok være sådan her så:

Dim Root

Dim Dir



On Error Resume Next



Set Root = GetObject("IIS://LocalHost/W3SVC/1/ROOT")



if (Err.Number <> 0) then

      MsgBox "Web Server doesn't exist"

      wscript.Quit

end if

strDirNavn = InputBox("Skriv sitenavn")

strAccessRead = MsgBox("Skal brugeren have læserettigheder?",64+4,"Rettigheder")

If strAccessRead = vbYes Then
  strAccessRead = True
Else
  strAccessRead = False
End If

strAccessWrite = MsgBox("Skal brugeren have skriverettigheder?",64+4,"Rettigheder")

If strAccessWrite = vbYes Then
  strAccessWrite = True
Else
  strAccessWrite = False
End If

Set Dir = Root.Create("IIsWebVirtualDir", strDirNavn)

Dir.Path = "C:\ "

Dir.AccessRead = strAccessRead

Dir.AccessWrite = strAccessWrite

Dir.EnableDirBrowsing = False

Dir.AppFriendlyName = "Test"

Dir.SetInfo

   

Set Dir = Nothing

Set Root = Nothing

//>Rune

mange tak for hjælpen. det sidste virkede.

Fair nok.. :)
Thx 4 poinz

//>Rune

Nu hvor du har fået så mange point kan du så ik lige give mig et script til hvordan jeg sletter directoriet igen. :-)