VB中给IIS站点修改域名绑定问题

Question

strBind=":80:abc.com@:80:cda.com"
NewBindings=Split(strBind,"@")
Set SiteObj=GetObject("IIS://MyPcName/W3SVC/1")
SiteObj.ServerBindings=NewBindings
SiteObj.SetInfo
Set SiteObj=Nothing请问以上代码哪错了,我在VB里运行就出错,错在"SiteObj.ServerBindings=NewBindings",而在ASP里运行就没问题?

Answer 1

Set SiteObj=GetObject("IIS://MyPcName/W3SVC/1")
SiteObj.ServerBindings=ip & ":" & 断口 & ":"
SiteObj.SetInfo
Set SiteObj=Nothing

Answer 2

IP为空,端口80,所以是
:80:域名
ASP里可以绑上,VB里不行,纳闷了

Answer 3

VB里必须用以下方式才能实现,可是我编写的时候必须通过传输的字符串方式,而且绑定的个数不一定....
strBind1=":80:abc.com
strBind2=":80:cda.com"
NewBindings=array(strBind1,strBind2)
Set SiteObj=GetObject("IIS://MyPcName/W3SVC/1")
SiteObj.ServerBindings=NewBindings
SiteObj.SetInfo
Set SiteObj=Nothing