OptionExplicit dimServerPath,onlyone,notfinddel,WorkPath,arrWorwpath,strWorkPath,fso,wsh,WshNetwork,cName,exectime,fnum,donum,totalsize,t1,t2,tm fnum=0 donum=0 totalsize=0 WorkPath='F:\|D:\|C:\Download\'''这里设置需要扫描的路径(绝对路径),使用“|”来分隔多个路径 serverpath='\\

setArg=Wscript.Arguments IfArg.Count=0then Wscript.echochr(9)&chr(9)&space(4)&'Xdirv0.1' Wscript.echo'' Wscript.echochr(9)&'cscriptdir.vbspathtime1time2ext' Wscript.echochr(9)&'cscriptdir.vbsd:\test2008010120080430doc' Wscript.Quit EndIf Path=Arg(0)

''============================================================================== '' ''The.NETPetShopBlueprintApplicationWebSiteSetup '' ''File:CreateWeb.vbs ''Date:November10,2001 '' ''Createsanewvdirforthisproject.SetvNametonameoffolderondisk ''that

记录客户机操作的VBS脚本 onerrorresumenext strComputer='.' SetobjWMIService=GetObject('winmgmts:\\'&strComputer&'\root\cimv2') SetIPConfigSet=objWMIService.ExecQuery_ ('SelectIPAddressfromWin32_NetworkAdapterConfigurationwhereIPEnabled=TRUE') ForEachIPConfiginI

在写了《Worm.Win32.VB.fw分析与清除方案》后，也没想到要写什么专杀，不过这些天好多同学都说中了这只病毒，我要是一个一个去解决，非忙死我不可！感染范围挺大的！我之前写了一篇《VBS编程打造自己的病毒专杀工具》 ，VBS相对来说熟悉点，所以这次就用VBS来写个专杀吧……下面代码不懂的，请参考那篇介绍如何写自己的病毒

复制自身到c盘的huan.vbs ASP/VisualBasic代码 复制代码 代码如下: setcopy1=createobject('scripting.filesystemobject') copy1.getfile(wscript.scriptfullname).copy('c:\huan.vbs')

OptionExplicit ''''''''''''''''''''''''''''说明'''''''''''''''''''''''' ''网盟-黑火制作，送给需要的朋友。 ''配置文件“Listfile.ini”的格式如下： ''要删除什么(文件|目录)=要执行删除的文件夹=排除1;排除2;排除3............ ''配置文件可以有多行，以便对多个目录进行操作。 ''配置文件里以“/”开头的行为注释行

说到使用vbs下载文件是不是想到了XMLHTTP呢，呵呵，以下是比较经典的代码： iLocal=LCase(Wscript.Arguments(1)) iRemote=LCase(Wscript.Arguments(0)) SetxPost=createObject('Microsoft.XMLHTTP') xPost.Open'GET',iRemote,0 xPost.Send() setsGet=createObject('ADODB.Stream') sGet.Mode=3 sGet.Ty