如何编写一个创建FTP站点的函数？.doc

如何编写一个创建FTP站点的函数？ 具体代码如下：Function?ASTCreateFtpSite(IPAddress,?RootDirectory,?ServerComment,?HostName,?PortNum,?Computer,?Start,LogFileDirectory)????Dim?MSFTPSVC,?FtpServer,?NewFtpServer,?NewDir????Dim?Bindings,?BindingString,?NewBindings,?Index,?SiteObj,?bDone????????On?Error?Resume?Next????????Err.Clear????????Set?MSFTPSVC?=?GetObject(IIS://??Computer??/MSFTPSVC)????????If?Err.Number??0?Then????????????WScript.Echo?无法打开:?IIS://??Computer??/MSFTPSVC??VbCrlf??程序将退出!????????????WScript.Quit?(1)????????End?If????????BindingString?=?IpAddress??:??PortNum??:??HostName????????For?Each?FtpServer?in?MSFTPSVC????????????If?FtpServer.Class=IIsFtpServer?Then????????????Bindings?=?FtpServer.ServerBindings????????????If?BindingString?=?Bindings(0)?Then????????????????WScript.Echo?噢,IP地址冲突:??IpAddress??,请检测IP地址！??VbCrlf??取消创建本站点????????????????Exit?Function????????????End?If????????????End?If????????Next????????Index?=?1????????bDone?=?False????????While?(Not?bDone)????????????Err.Clear????????????Set?SiteObj?=?GetObject(IIS://Computer/MSFTPSVC/??Index)????????????If?(Err.Number?=?0)?Then????????????????Index?=?Index?+?1????????????Else????????????????Err.Clear????????????????Set?NewFtpServer?=?MSFTPSVC.Create(IIsFtpServer,?Index)????????????????If?(Err.Number??0)?Then????????????????????Index?=?Index?+?1????????????????Else????????????????????Err.Clear????????????????????Set?SiteObj?=?GetObject(IIS://Computer/MSFTPSVC/??Index)????????????????????If?(Err.Number?=?0)?Then????????????????????????bDone?=?True????????????????????Else????????????????????????Index?=?Index?+?1????????????????????End?If????????????????End?If????????????End?If????????????If?(Index??10000)?Then????????????????WScript.Echo?噢,创建站点正在创建的站点的序号为Index.??VbCrlf??取消创建本站点.????????????????Exit?Function????????????End?If????????Wend????????NewBindings?=?Array(0)????????NewBindings(0)?=?BindingString????????NewFtpServer.ServerBindings?=?NewBindings????????NewFtpSe