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