如何编写一个函数来创建FTP站点

如何编写一个函数来创建FTP站点

功能astcreateftpsite（IP地址，主机名，RootDirectory，servercomment，portnum，计算机开始，LogFileDirectory）
昏暗的msftpsvc，FTP，newftpserver，NewDir
昏暗的绑定，BindingString，NewBindings，指数，siteobj，bdone
下次继续出错
呃。清晰
集msftpsvc = GetObject（IIS： / / 电脑 / msftpsvc ）
如果错误，数字＜0，然后
名。回声无法打开：： / / IIS计算机 / msftpsvcvbcrlf 程序将退出！
Wｓｃｒｉｐｔ辞职（1）。
最后如果

bindingstring = IP地址portnum ：主机名
在MSFTPSVC的每一个FTP
如果FTP。class=iisftpserver
ftpserver.serverbindings绑定=
如果bindingstring =绑定（0）然后
名。回声哦，IP地址冲突：IP地址vbcrlf取消创建这个网站。
退出功能
最后如果
最后如果
下一个

指数= 1
bdone = false

而（不bdone）
呃。清晰
集siteobj = GetObject（IIS： / / 电脑 / / msftpsvc指数）
如果（err.number = 0）然后
索引= 1
其他的
呃。清晰
集newftpserver = msftpsvc。创造（iisftpserver
如果（err.number <> 0）
索引= 1
其他的
呃。清晰
集siteobj = GetObject（IIS： / / 电脑 / / msftpsvc指数）
如果（err.number = 0）然后
bdone =真
其他的
索引= 1
最后如果
最后如果
最后如果

如果（索引> 10000）
名。回声哦，创建一个网站异常！正在创建的站点的序列号是索引。vbcrlf 取消站点。
退出功能
最后如果
走

newbindings =阵（0）
newbindings（0）= bindingstring
newftpserver.serverbindings = newbindings
newftpserver.servercomment = servercomment
newftpserver.allowanonymous = false
newftpserver.accesswrite =真
newftpserver.accessread =真
newftpserver.dontlog = false
newftpserver.logfiledirectory = logfiledirectory
newftpserver.setinfo

集newdir = newftpserver。创造（iisftpvirtualdir
newdir路径为根目录。
newdir.accessread =真
呃。清晰
newdir.setinfo
如果（err.number = 0）然后
其他的
名。回声哦，有一个错误，当主目录的创建！
最后如果

如果start =真的
呃。清晰
集newftpserver = GetObject（IIS： / / 电脑 / / msftpsvc指数）
开始newftpserver。
如果错误，数字＜0，然后
名。回声哦，有一个错误，当网站开始！
呃。清晰
其他的
最后如果
最后如果
astcreateftpsite =指数
端功能