如何通过VB代码在服务器上对IIS进行配置

Question

主要是自动配置IP地址（根据每次自动拨号产生的新IP地址设置IIS的WEB地址），还有就是根据访问量控制线程等等。
   没有搞过这方面的编成，真是没有心得。希望DX帮帮忙。
（我使用类似与IISAPP类，老是报自动化错误，是操作这些东西吗？）

Answer 1

这段代码可以运行得很好
看看你的代码了??
Public Function WebVirtualDir(ByVal strWebSite As String, ByVal strFriendlyName As String, ByVal strWebPath As String, ByVal strDefaultDoc As String) As Boolean
Dim objADSI As Object
Dim objWebVDir As Object
On Error GoTo Lib_Err
Set objADSI = GetObject("IIS://LocalHost/W3SVC/1/Root")
Set objWebVDir = objADSI.Create("IIsWebVirtualDir", strWebSite)
objWebVDir.SetInfo
Set objWebVDir = objADSI.GetObject("IIsWebVirtualDir", strWebSite)
objWebVDir.AppCreate True
objWebVDir.Put "AppFriendlyName", strFriendlyName
objWebVDir.Put "AppRoot", "/LM/W3SVC/1/Root/" & strWebSite
objWebVDir.Put "Path", strWebPath
objWebVDir.Put "AppIsolated", 0
objWebVDir.Put "DefaultDoc", strDefaultDoc
objWebVDir.Put "AccessFlags", 535
objWebVDir.SetInfo
WebVirtualDir = True
Lib_End:
Set objWebVDir = Nothing
Set objADSI = Nothing
Exit Function
Lib_Err:
WebVirtualDir = False
strError = Err.Description
Err.Clear
Resume Lib_End
End FunctionPrivate Sub Command1_Click()
Call WebVirtualDir("aa", "aa", "E:\Web", "Default.asp")
End Sub

Answer 2

online(龙卷风V2.0--再战江湖) ( ) 信誉：217 :
   你好，这段代码我昨天搜索过，但是报错（自动化错误）

Answer 3

online(龙卷风V2.0--再战江湖) ( ) 信誉：217 ::
   程序我已经调试可以了，但是你这段程序的意思是增加一个域和目录是吗？
我需要更改IP地址，如何实现拉？

Answer 4

没有问题
我可以把测试工程发给你
[email protected]

Answer 5

Set myobject = GetObject("IIS://localhost/W3SVC/1/root")
MsgBox myobject.Name
'这个可以得到默认网站的httperrors信息
adminerrors = myobject.getex("httperrors")
使用get方法得到自动配置IP地址，使用put既可设置查看iis的sdk帮助

Answer 6

一楼的代码报自动化错误：-----使用ADSI   IIS提供者对IIS进行操作
要注意 大小写的     HOHO~

Answer 7

online(龙卷风V2.0--再战江湖) ( ) 信誉：217 :
   对默认WEB的IP地址进行修改

Answer 8

我找不到修改iisWEB的IP地址 adsi的属性方法

Answer 9

为什么把该程序写成dll组件后在asp中无法调用,请问如何解决