ADSI script for IIS 5.0 can not run in IIS 6.0

Hi,

The following code can work in IIS 5.0, but have error message "Invalid procedure call or argument " when running on IIS 6.0. Can somebody help me to figure it out? Thanks.

Set SiteObj = GetObject("IIS://" & Website.Computer & "/w3svc/" & Website.IISID)

' Set the Bindings we want for the Hosts. So clear them out and reset
If Me.HostCount > 0 Then
ReDim NewBindings(Me.HostCount)
For i = 0 To Me.HostCount - 1
BindingString = Website.Hosts(i).IP & ":" & Website.Hosts(i).Port & ":" & Website.Hosts(i).HostName
m_Debug.LogEvent App.EXEName, "Binding = " & BindingString, vbLogEventTypeInformation, 0
NewBindings(i) = BindingString
Next

SiteObj.ServerBindings = NewBindings

SiteObj.SetInfo

If Err.Number <> 0 Then
UpdateSite = UpdateSite & vbCrLf & "Error on Setting up Hosts: " & Err.Description
Err.Clear
End If
End If

Hello,

IIS 6 entirely re-architectured so old ADSI scripts might not work as in IIS6 metabase is in XML format.

Please take a look at following link:

http://www.microsoft.com/resources/documentation/IIS/6/all/techref/en-us/iisRG_ADM.mspx

Hope this helps.
Ganesh