Hi Everyone,

Does anyone know how to create a virtual dir via script in PWS on a Win98 machine?
I know how to do it with IIS5 on WinXP, but can't get it work on PWS Win98
Here's the code I use:

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

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

Dir.Path = "C:\Test\"
Dir.AccessRead = True
Dir.AccessWrite = False
Dir.EnableDirBrowsing = False
Dir.AppFriendlyName = "Test"
Dir.SetInfo

Set Dir = Nothing
Set Root = Nothing

Thanks in advance.

Leo Kool