On Error Resume Next
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
On Error Goto 0