I need to change the HTTPErrors in IIS using WMI. I can not get it working. Can someone help me out. This is my code:
Set locatorObj = CreateObject("WbemScripting.SWbemLocator")
Set providerObj = locatorObj.ConnectServer(sServerName, "root/MicrosoftIISv2")
Set serviceObj = providerObj.Get("IIsWebService='W3SVC'")
Set vdirObj = providerObj.Get("IIsWebVirtualDirSetting='W3SVC/578384917/ROOT'")
Dim ArrHttpErrors(41)
ArrHttpErrors(0) = "400,*,FILE,C:\Windows\help\iisHelp\common\400.htm"
ArrHttpErrors(1) = "401,1,FILE,C:\Windows\help\iisHelp\common\401-1.htm"
ArrHttpErrors(2) = "401,2,FILE,C:\Windows\help\iisHelp\common\401-2.htm"
ArrHttpErrors(3) = "401,3,FILE,C:\Windows\help\iisHelp\common\401-3.htm"
ArrHttpErrors(4) = "401,4,FILE,C:\Windows\help\iisHelp\common\401-4.htm"
ArrHttpErrors(5) = "401,5,FILE,C:\Windows\help\iisHelp\common\401-5.htm"
ArrHttpErrors(6) = "401,7,FILE,C:\Windows\help\iisHelp\common\401-1.htm"
ArrHttpErrors(7) = "403,1,FILE,C:\Windows\help\iisHelp\common\403-1.htm"
ArrHttpErrors(8) = "403,2,FILE,C:\Windows\help\iisHelp\common\403-2.htm"
ArrHttpErrors(9) = "403,3,FILE,C:\Windows\help\iisHelp\common\403-3.htm"
ArrHttpErrors(10) = "403,4,FILE,C:\Windows\help\iisHelp\common\403-4.htm"
ArrHttpErrors(11) = "403,5,FILE,C:\Windows\help\iisHelp\common\403-5.htm"
ArrHttpErrors(12) = "403,6,FILE,C:\Windows\help\iisHelp\common\403-6.htm"
ArrHttpErrors(13) = "403,7,FILE,C:\Windows\help\iisHelp\common\403-7.htm"
ArrHttpErrors(14) = "403,8,FILE,C:\Windows\help\iisHelp\common\403-8.htm"
ArrHttpErrors(15) = "403,9,FILE,C:\Windows\help\iisHelp\common\403-9.htm"
ArrHttpErrors(16) = "403,10,FILE,C:\Windows\help\iisHelp\common\403-10.htm"
ArrHttpErrors(17) = "403,11,FILE,C:\Windows\help\iisHelp\common\403-11.htm"
ArrHttpErrors(18) = "403,12,FILE,C:\Windows\help\iisHelp\common\403-12.htm"
ArrHttpErrors(19) = "403,13,FILE,C:\Windows\help\iisHelp\common\403-13.htm"
ArrHttpErrors(20) = "403,15,FILE,C:\Windows\help\iisHelp\common\403-15.htm"
ArrHttpErrors(21) = "403,16,FILE,C:\Windows\help\iisHelp\common\403-16.htm"
ArrHttpErrors(22) = "403,17,FILE,C:\Windows\help\iisHelp\common\403-17.htm"
ArrHttpErrors(23) = "403,18,FILE,C:\Windows\help\iisHelp\common\403.htm"
ArrHttpErrors(24) = "403,19,FILE,C:\Windows\help\iisHelp\common\403.htm"
ArrHttpErrors(25) = "403,20,FILE,C:\Windows\help\iisHelp\common\403-20.htm"
ArrHttpErrors(26) = "404,*,FILE,C:\Windows\help\iisHelp\common\404b.htm"
ArrHttpErrors(27) = "404,2,FILE,C:\Windows\help\iisHelp\common\404b.htm"
ArrHttpErrors(28) = "404,3,FILE,C:\Windows\help\iisHelp\common\404b.htm"
ArrHttpErrors(29) = "405,*,FILE,C:\Windows\help\iisHelp\common\405.htm"
ArrHttpErrors(30) = "406,*,FILE,C:\Windows\help\iisHelp\common\406.htm"
ArrHttpErrors(31) = "407,*,FILE,C:\Windows\help\iisHelp\common\407.htm"
ArrHttpErrors(32) = "412,*,FILE,C:\Windows\help\iisHelp\common\412.htm"
ArrHttpErrors(33) = "414,*,FILE,C:\Windows\help\iisHelp\common\414.htm"
ArrHttpErrors(34) = "415,*,FILE,C:\Windows\help\iisHelp\common\415.htm"
ArrHttpErrors(35) = "500,12,FILE,C:\Windows\help\iisHelp\common\500-12.htm"
ArrHttpErrors(36) = "500,13,FILE,C:\Windows\help\iisHelp\common\500-13.htm"
ArrHttpErrors(37) = "500,15,FILE,C:\Windows\help\iisHelp\common\500-15.htm"
ArrHttpErrors(38) = "500,16,FILE,C:\Windows\help\iisHelp\common\500.htm"
ArrHttpErrors(39) = "500,17,FILE,C:\Windows\help\iisHelp\common\500.htm"
ArrHttpErrors(40) = "500,18,FILE,C:\Windows\help\iisHelp\common\500.htm"
ArrHttpErrors(41) = "500,19,FILE,C:\Windows\help\iisHelp\common\500.htm"
vdirObj.HttpErrors = ArrHttpErrors
vdirObj.Put_()