Set IIS6.0 In IIS5.0 Isolation Mode (Vbscript)

' This script assumes that IIS is stored in the default location %windir%\system32\inetsrv

' Set constants
Const FOR_READING = "1"
Const FOR_WRITING = "2"

' Declare objects
Set oShell = CreateObject("WScript.Shell")Set oFSO = CreateObject"Scripting.FilesystemObject")

' Assign strings
WinDir = oShell.ExpandEnvironmentStrings("%Windir%")
sStopIIS = "iisreset /stop"
sStartIIS = "iisreset /start"
sIISDisabled = "IIs5IsolationModeEnabled=" & Chr(34) & "FALSE" & Chr(34)
sIISEnabled = "IIs5IsolationModeEnabled=" & Chr(34) & "TRUE" & Chr(34)sMetaBaseXML = sWinDir & "\System32\Inetsrv\Metabase.xml"

' Run iis stop and check return value
iReturnVal = oShell.Run(sStopIIS,1,True)
If iReturnVal <> 0 Then WScript.Echo "Error " & iReturnVal & " occurred when stopping IIS" WScript.Quit
End If

' Open the metabase file in read only mode and assign to variable
Set oMetabaseXMLRead = oFSO.OpenTextFile(sMetaBaseXML,FOR_READING)sAllMetabaseXML = oMetabaseXMLRead.ReadAlloMetabaseXMLRead.Close
Set oMetabaseXMLRead = Nothing
' Open the metabase file in write mode and enable IIS5.0 isolation mode
Set oMetabaseXML = oFSO.OpenTextFile(sMetaBaseXML,FOR_WRITING)
sReplaceText = Replace(sAllMetabaseXML, sIISDisabled, sIISEnabled)oMetabaseXML.WriteLine sReplaceText

' Check that IIS5.0 isolation mode is set to 'TRUE'
iCheckExists = Instr(1,sAllMetabaseXML,sIISEnabled,VbTextCompare)

If iCheckExists <> 0 Then
WScript.Echo "Failed to change IIs5IsolationModeEnabled to 'TRUE' in " & sMetaBaseXML WScript.Quit
End If

'Close the fileoMetabaseXML.Close
Set oMetabaseXML =Nothing

' Run iis start and check return value
iReturnVal = oShell.Run(sStartIIS,1,True)
If iReturnVal <> 0 Then
WScript.Echo "Error " & iReturnVal & " occurred when starting IIS"
WScript.Quit
End If

' Clear down COM objects
Set oShell = Nothing
Set oFSO = Nothing

' If the script has got this far then it was successful
WScript.Echo "Successfully changed IIS into IIS5.0 Isolation Mode"