VBScript: create IIS virtual directory with content redirection

Option Explicit
On Error Resume Next

Dim ServObj
Dim VdirObj
Dim VdirName
Dim VdirPath
Dim VdirResourceContent

VdirName = wscript.arguments(0)
VdirPath = wscript.arguments(1)
VdirResourceContent = wscript.arguments(2) & ",EXACT_DESTINATION"

Set ServObj = GetObject("IIS://LocalHost/w3svc/1/Root")
if (Err 0) then
wscript.quit
end if

Set VdirObj = ServObj.Create("IIsWebVirtualDir", VdirName)
VdirObj.SetInfo
if (Err0) then
wscript.quit
end if

VdirObj.AccessRead = True
VdirObj.AccessScript = True
VdirObj.Put "Path", (VdirPath)
VdirObj.Put "HttpRedirect", VdirResourceContent
VdirObj.SetInfo
if (Err 0) then
wscript.quit
end if

wscript.echo "Virtual directory successfully created"

Geschreven door:

Arnout van der Vorst

Arnout van der Vorst is Identity Management Architect bij Tools4ever en al ruim 10 jaar in dienst. Arnout legt zich als Architect toe op het bedenken en ontwikkelen van nieuwe features, oplossingen en diensten van Tools4ever die aansluiten op de vraag uit de markt. Arnout studeerde Hogere Informatica aan de Hogeschool van Utrecht.
Terug