Dim Fs
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")

Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")


If Left(Fs.GetFileVersion(Fs.BuildPath(Fs.GetSpecialFolder(1).Path,"kernel32.dll")), 3) >= "5.2" Then

	set providerObj=GetObject("winmgmts:/root/MicrosoftIISv2")
	set vdirObj=providerObj.get("IIsWebVirtualDirSetting='W3SVC/1/ROOT'")
'	WScript.Echo "Before: " & vdirObj.AspMaxRequestEntityAllowed
	vdirObj.AspMaxRequestEntityAllowed=20000000
	vdirObj.AspExecuteInMTA = 1
	vdirObj.Put_()
'	WScript.Echo "Now: " & vdirObj.AspMaxRequestEntityAllowed


Else
' MsgBox "No Win2003"
End If