vb+iis +adsi

为什么如此 iis 用vb+adsi 设置匿名访问后 

WWWServer.AuthAnonymous = True '允许匿名访问
WWWServer.AnonymousPasswordSync = True 'false，管理员必须手动设置匿名用户密码
WWWServer.AnonymousUserName = name1      '用户名
WWServer.AnonymousUserPass = password1$    ' 密码
每次都要重新 手动设置访问密码虚拟主机才能使用？？
应该如何设置呢？
另 就知道 这样设置虚拟主机 主机头
Dim Bindings()
ReDim Bindings(2)
Bindings(0) = "192.168.0.101:80:www1.xx.com"
Bindings(1) = "192.168.0.101:80:www2.xx.com"
Bindings(2) = "192.168.0.101:80:www3.xx.com"

WWWServer.ServerBindings=Bindings

在网站已经存在的话 如何列举 主机头 
用vb+adsi
先 谢谢了

补充：VB ,  网络编程