怎么样实现自动开设虚拟主机和FTP？(200分)

谁能提供相关的代码？

都不明白你说的虚拟主机是什么东西。

晕，拿WINDOWS来说，就是在IIS里建立一个站点啊，那么，怎么样通过代码来实现自动建立站点呢？

HELP

确实没有用过IIS，本人在服务器上耍的东西都不是微软的，非常抱歉

不过，我猜测，你每开一个虚拟主机，WIN多半是把它的端口、目录、权限等信息存入了注册表，你摸索到具体的存储以后，可以自己修改注册表实现你的梦想。

在Win2000下安装或添加Web服务即可!

真它妈的好玩，
我以为这里高人一定多，
没想到回答问题的都是……
水平太差。

你是用WINDOWS200 IIS了。AND　ＳＥＲＶ－Ｕ
我对ＩＩＳ没作好呢？
对ＳＥＲＶＥＲ－Ｕ
我作了并已成功。
在你设置ＳＥＲＲＶ－Ｕ
时用户密码不要加密。
然后我们用ＦＳＯ（ＡＳＰ）
来写ＳＥＲＶ－Ｕ下的一个ServUDaemon.ini文件。
这个文件中有serv-u 的用户目录和用户名和密码，文件夹的大小等。
但serv-u的配置文件（ＩＮＩ）是一个文件，
而ＡＳＰ的ＦＳＯ
不能象ＤＥＬＰＨＩ
的程序一样来操作ＩＮＩ文件。
请注意一下ＳＥＲＶ－Ｕ下的ＩＮＩ文件。
是这样：
ＸＸＸＸ
ＸＸＸ
User1=moonpart|1|0
User2=yutan1573|1|0
User3=hu1982651|1|0
User4=tengteng|1|0
User5=hfwanxqj|1|0
User6=wode|1|0
User7=afqthpxk|1|0
.....

Password=k3kt900
HomeDir=e:/www/888link
LoginMesFile=d:/program files/serv-u/message.txt
RelPaths=1
DiskQuota=1|5120000|1884608
TimeOut=300
Access1=E:/www/888link|RWAMLCDP
[USER=yutan1573|1]
Password=19831015
HomeDir=e:/5masp/yutan1573
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/yutan1573|RWAMLCDP

所以我们用ＦＳＯ时要新建二个txt :a.txt ,b.txt
a.txt写下面的内容：
LocalSetupPassword=072C63105200180D5C07170A7E3E
LocalSetupPortNo=57227
RegistrationKey=UEyz459waBR4lVRkIkh4dYw9f8v4J/AHLvpOK8tqOkyz4D3wbymil1VkKjgdAelPDKSWM5doXJsgW64YIyPdo+wAGnUBuycB
AntiHammerBlock=60
PacketTimeOut=500
AntiHammerWindow=10
AntiHammerTries=10
LowerCaseFileDir=1
PASVPortStart=7000
PASVPortRange=50
MaxNrUsers=10
SpeedLimit=15360
EncryptPasswords=0
AntiHammer=1
ProcessID=336
[DOMAINS]
Domain1=172.16.1.57||21|moonpart|1|0
[Domain1]
MaxNrUsers=10
User1=moonpart|1|0
User2=yutan1573|1|0
User3=hu1982651|1|0
User4=tengteng|1|0
User5=hfwanxqj|1|0
User6=wode|1|0
User7=afqthpxk|1|0
User8=lenco|1|0
User9=8614106|1|0
User10=jssxxgl|1|0
User11=csbell|1|0
User12=c_43962|1|0
User13=wodeaiwilini|1|0
User14=lcl527|1|0
User15=love757500|1|0
User16=zhjweb|1|0
User17=luhuanian_22|1|0
User18=zlyang|1|0
User19=xiabingaini|1|0
User20=shamir|1|0
User21=lf0315|1|0

b.txt写下面内容：
[USER=moonpart|1]
Password=k3kt900
HomeDir=e:/www/888link
LoginMesFile=d:/program files/serv-u/message.txt
RelPaths=1
DiskQuota=1|5120000|1884608
TimeOut=300
Access1=E:/www/888link|RWAMLCDP
[USER=yutan1573|1]
Password=19831015
HomeDir=e:/5masp/yutan1573
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/yutan1573|RWAMLCDP
[USER=hu1982651|1]
Password=g19830429
HomeDir=e:/5masp/hu1982651
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/hu1982651|RWAMLCDP
[USER=tengteng|1]
Password=5690280
HomeDir=e:/5masp/tengteng
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/tengteng|RWAMLCDP
[USER=hfwanxqj|1]
Password=870622
HomeDir=e:/5masp/hfwanxqj
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/hfwanxqj|RWAMLCDP
[USER=wode|1]
Password=nidexie
HomeDir=e:/5masp/wode
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/wode|RWAMLCDP
[USER=afqthpxk|1]
Password=19830101afq
HomeDir=e:/5masp/afqthpxk
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/afqthpxk|RWAMLCDP
[USER=lenco|1]
Password=iloveyou
HomeDir=e:/5masp/lenco
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/lenco|RWAMLCDP
[USER=8614106|1]
Password=8614106
HomeDir=e:/5masp/8614106
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/8614106|RWAMLCDP
[USER=jssxxgl|1]
Password=19770330
HomeDir=e:/5masp/jssxxgl
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/jssxxgl|RWAMLCDP
[USER=csbell|1]
Password=csbell
HomeDir=e:/5masp/csbell
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/csbell|RWAMLCDP
[USER=c_43962|1]
Password=c_43962
HomeDir=e:/5masp/c_43962
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/c_43962|RWAMLCDP
[USER=wodeaiwilini|1]
Password=liujunhua
HomeDir=e:/5masp/wodeaiwilini
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/wodeaiwilini|RWAMLCDP
[USER=lcl527|1]
Password=lcl9282726
HomeDir=e:/5masp/lcl527
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/lcl527|RWAMLCDP
[USER=love757500|1]
Password=75102988
HomeDir=e:/5masp/love757500
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/love757500|RWAMLCDP
[USER=zhjweb|1]
Password=7158445
HomeDir=e:/5masp/zhjweb
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/zhjweb|RWAMLCDP
[USER=luhuanian_22|1]
Password=05363823795
HomeDir=e:/5masp/luhuanian_22
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/luhuanian_22|RWAMLCDP
[USER=zlyang|1]
Password=19691104
HomeDir=e:/5masp/zlyang
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/zlyang|RWAMLCDP
[USER=xiabingaini|1]
Password=56568972
HomeDir=e:/5masp/xiabingaini
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/xiabingaini|RWAMLCDP
[USER=shamir|1]
Password=pcdphg1982
HomeDir=e:/5masp/shamir
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/shamir|RWAMLCDP
[USER=lf0315|1]
Password=8935107
HomeDir=e:/5masp/lf0315
LoginMesFile=D:/Program Files/Serv-U/message.txt
RelPaths=1
DiskQuota=1|5120000|254
TimeOut=600
Access1=E:/5masp/lf0315|RWAMLCDP

然后把a.txt自制成ServUDaemon.ini

再把b.txt
写入ServUDaemon.ini

OK

再次启动ＳＥＲＶ－Ｕ
成功了。

关于如何操作ＦＳＯ
更安全请来信问我好了。

贴一点简单的代码，抛砖引玉吧：
var
WebSite, WebServer, WebRoot, VDir: Variant;
begin
WebSite := CreateOleObject('IISNamespace');
WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
WebServer := WebSite.GetObject('IIsWebServer', '1');
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
VDir := WebRoot.Create('IIsWebVirtualDir', 'VariantTest');
VDir.AccessRead := True;
VDir.Path := 'C:/Test';
VDir.SetInfo;
end;
呵呵~~~~~~~~~~~~~~~~~~~~~~

to netsoft
你又是抄的。
你以为你说明白了？
你这是什么？
如果你会你回答好了。
我们在一个网页中填写了一些资料，
提交后，
WINDOWS 2000
在后台马上新建一文件夹，
并在SERV-U
中加入新用户
在IIS
中加入新的站点，
并IISＡＮＤSERV-U

马上可以运行。

你会吗？
你上边的回答可以吗？
你的代码，
我看的多了。
一模一样的，
天下文章一般抄！！！！

可恨

To 未来黑客
对呀，我是抄的，不然我也不会说是“抛砖引玉”啦，多谢你的“教导”
我也觉得是很可恨的，
有空这几天我改一个我的程序吧，

呵呵~~~~~~~~~~~~~~

关于IIS, 这里有点介绍, 也许有点用.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iisref/htm/HowtoExtendtheADSISchema.asp

以下是依照上面的介绍做了一个小测试(VBA)
---------------------------------------------------------
'Create a virtual directory In IIS
Sub doCreate()
CreateVH "Hello", "C:/World"
End Sub

Sub CreateVH(sV, sD As String)
Set IIsWebVDirRootObj = VBA.GetObject("IIS://LocalHost/W3SVC/1/Root")
Set IIsWebVDirObj = IIsWebVDirRootObj.Create("IIsWebVirtualDir", sV)

IIsWebVDirObj.Put "Path", sD
IIsWebVDirObj.Put "AccessRead", True
IIsWebVDirObj.Put "AccessScript", True

'IIsWebVDirObj.AppCreate2 1
'IIsWebVDirObj.Put "AppFriendlyName", "NewApp"
IIsWebVDirObj.SetInfo
End Sub

楼主你还有什么要求吗？？
请贴出我会一并发给你，
最后你的 妹妹是？？？？？？？

呵呵~~~~~~~~~~~~~~~~~~~~~~~~~~~~

要對活動目錄進行編號。