asp创建用户、目录和站点(转)

本讲将运用到adsi，即震动目次效劳接口.不妨到15seconds.com找到少许关系的材料.1.创造用户底下这段代码在独力效劳器white上创造用户user1,初始口令user1,用到了adsi.dim username,userpassdim odomain,ouserusername = "user1"userpass = "user1"set odomain = getobject("winnt://white")set ouser = odomain.create ("user", username)if (err.number = 0) thenouser.setinfoouser.setpassword userpassouser.setinfoelsewscript.echo "创造用户" & username & "堕落！"end ifset ouser = nothingset odomain = nothing2.创造目次运用filesystemobject创造目次:dim fsobjectdim tmpfolderset fsobject = wscript.createobject("scripting.filesystemobject")tmpfolder = "d:\userdate\user1"if not fsobject.folderexists(tmpfolder) thenfsobject.createfolder(tmpfolder)if err.number<>0 thenwscript.echo "创造目次" & tmpfolder & "波折！"end ifend if提防在创造目次前,先查看了目次能否生存,即使生存,则不必创造了.3.创造站点底下这个子步调控制创造一个www站点,各个参数的意旨为：站点ip地方,站点根目次,站点证明,长机名,端标语,计划机名(一搬为localhost),能否登时启用,隐姓埋名考察时所运用的帐号,隐姓埋名考察时所用帐号的口令,log文献的目次.因变量归来所建站点在iis中的序号(在iis中,一切站点顺序编号,第一个为1).一个挪用示例：siteid = astcreatewebsite("10.1.3.122","d:\userdata\user1","www_user1","","80","localhost",true,"iusr_user1","8iui%#","d:\logfiles")function astcreatewebsite(ipaddress, rootdirectory, servercomment, hostname, portnum, computer, start,anonymoususername,anonymoususerpass,logfiledirectory)dim w3svc, webserver, newwebserver, newdirdim bindings, bindingstring, newbindings, index, siteobj, bdoneon error resume nexterr.clearset w3svc = getobject("iis://" & computer & "/w3svc")if err.number <> 0 thenwscript.echo "没辙翻开: "&"iis://" & computer & "/w3svc" & vbcrlf & "步调将退出."wscript.quit (1)end ifbindingstring = ipaddress & ":" & portnum & ":" & hostnamefor each webserver in w3svcif webserver.class = "iiswebserver" thenbindings = webserver.serverbindingsif bindingstring = bindings(0) thenwscript.echo "ip地方辩论:" & ipaddress & ",请检验和测定ip地方！." & vbcrlf & "废除创造本站点。"exit functionend ifend ifnextindex = 1bdone = falsewhile (not bdone)err.clearset siteobj = getobject("iis://"&computer&"/w3svc/" & index)if (err.number = 0) thenindex = index + 1elseerr.clearset newwebserver = w3svc.create("iiswebserver", index)if (err.number <> 0) thenindex = index + 1elseerr.clearset siteobj = getobject("iis://"&computer&"/w3svc/" & index)if (err.number = 0) thenbdone = trueelseindex = index + 1end ifend ifend ifif (index > 10000) thenwscript.echo "看上去不许创造站点，正在创造的站点的序号为： "&index&"." & vbcrlf & "废除创造本站点。"exit functionend ifwendnewbindings = array(0)newbindings(0) = bindingstringnewwebserver.serverbindings = newbindingsnewwebserver.servercomment = servercommentnewwebserver.anonymoususername = anonymoususernamenewwebserver.anonymoususerpass = anonymoususerpassnewwebserver.keytype = "iiswebserver"newwebserver.frontpageweb = truenewwebserver.enabledefaultdoc = truenewwebserver.defaultdoc = "default.htm, default.asp, index.htm, index.asp"newwebserver.logfiledirectory = logfiledirectorynewwebserver.setinfoset newdir = newwebserver.create("iiswebvirtualdir", "root")newdir.path = rootdirectorynewdir.accessread = truenewdir.appfriendlyname = "运用步调" & servercommentnewdir.appcreate truenewdir.accessscript = trueerr.clearnewdir.setinfoif (err.number = 0) thenelsewscript.echo "主目次创造时堕落."end ifif start = true thenerr.clearset newwebserver = getobject("iis://" & computer & "/w3svc/" & index)newwebserver.startif err.number <> 0 thenwscript.echo "启用站点时堕落!"err.clearelseend ifend ifastcreatewebsite = indexend function底下因变量创造ＦＴＰ站点：function astcreateftpsite(ipaddress, rootdirectory, servercomment, hostname, portnum, computer, start,logfiledirectory)dim msftpsvc, ftpserver, newftpserver, newdirdim bindings, bindingstring, newbindings, index, siteobj, bdoneon error resume nexterr.clearset msftpsvc = getobject("iis://" & computer & "/msftpsvc")if err.number <> 0 thenwscript.echo "没辙翻开: "&"iis://" & computer & "/msftpsvc" & vbcrlf & "步调将退出."wscript.quit (1)end ifbindingstring = ipaddress & ":" & portnum & ":" & hostnamefor each ftpserver in msftpsvcif ftpserver.class="iisftpserver" thenbindings = ftpserver.serverbindingsif bindingstring = bindings(0) thenwscript.echo "ip地方辩论:" & ipaddress & ",请检验和测定ip地方！." & vbcrlf & "废除创造本站点。"exit functionend ifend ifnextindex = 1bdone = falsewhile (not bdone)err.clearset siteobj = getobject("iis://"&computer&"/msftpsvc/" & index)if (err.number = 0) thenindex = index + 1elseerr.clearset newftpserver = msftpsvc.create("iisftpserver", index)if (err.number <> 0) thenindex = index + 1elseerr.clearset siteobj = getobject("iis://"&computer&"/msftpsvc/" & index)if (err.number = 0) thenbdone = trueelseindex = index + 1end ifend ifend ifif (index > 10000) thenwscript.echo "看上去不许创造站点，正在创造的站点的序号为： "&index&"." & vbcrlf & "废除创造本站点。"exit functionend ifwendnewbindings = array(0)newbindings(0) = bindingstringnewftpserver.serverbindings = newbindingsnewftpserver.servercomment = servercommentnewftpserver.allowanonymous = falsenewftpserver.accesswrite = truenewftpserver.accessread = truenewftpserver.dontlog = falsenewftpserver.logfiledirectory = logfiledirectorynewftpserver.setinfoset newdir = newftpserver.create("iisftpvirtualdir", "root")newdir.path = rootdirectorynewdir.accessread = trueerr.clearnewdir.setinfoif (err.number = 0) thenelsewscript.echo "主目次创造时堕落."end ifif start = true thenerr.clearset newftpserver = getobject("iis://" & computer & "/msftpsvc/" & index)newftpserver.startif err.number <> 0 thenwscript.echo "启用站点时堕落!"err.clearelseend ifend ifastcreateftpsite = indexend function