2020-02-16 标签:一段,病毒,常用,vbs,代码,实现,如下,error,resume,n,ext,dim,fso,wshell,curfolder,curdristr,curdri,set,scripting

实现代码如下：On error resume next Dim fso,wshell,curfolder,curdristr,curdri Set fso=createobject("scripting.filesystemobject") Set wshell=CreateObject("WScr

2020-02-16 标签:asp,调用,dll,封装,实例,打开,vb,新建,activex,工程,引用,中加,microsoft,active,server,pages,object

打开VB6，新建ActiveX DLL 2、在工程引用中加入Microsoft Active Server Pages Object Library选择 3、填加代码如下： 实现代码如下： 'Code Start '声明部分 Private MyScriptingContext As Scripti

2020-02-16 标签:asp,实现,读取,文件,一行,代码,如下,function,fsolastline,filename,dim,fso,f,temparray,tempcnt,set,server,scripting

实现代码如下：function FSOlastline(filename) dim fso,f,temparray,tempcnt set fso = server.CreateObject("scripting.filesystemobject") if not fso.fileExists(se

2020-02-16 标签:asp,实现,获取,文件夹,中文,个数,代码,如下,返回,指定,数目,传入,检测,硬盘,绝对,路径,function

实现代码如下：'返回指定文件夹中文件的数目，传入值为被检测文件夹的硬盘绝对路径 function CountFilesNumber(folderspec) Dim objfso,f,fc Set objfso=CreateObject("Scripting.FileSystemObject") Se

2020-02-16 标签:asp,常见,对象,总结,熟悉,利用,开发,使用,ado,connection,command,recordset,record,stream,支持,编写,com,组件,下面,是我

ADO对象： Connection Command Recordset Record Stream ASP支持的对象很多，可以自己编写COM组件，下面是我们经常使用的： Server.CreateObject("scripting.filesystemobject") Server.CreateOb

2020-02-16 标签:javascript,硬盘,序列号,其它,硬件,信息,看了,别的,资料,提取,cpu,mac,现成,代码,却没有,找了,好久,找到,参数,补上

看了看别的资料有提取CPU，MAC的现成代码却没有硬盘序列号，找了好久才找到提取硬盘序列号的参数。于是自己给补上了。 提取硬盘序列号 function disk() {//硬盘序列号 信息 　　　var locator = new ActiveXObject ("WbemScripting.S

2020-02-16 标签:vbscript,添加,ip,策略,自动,程序,主要是,读取,网站,iis,日志,分析,其中,地址,安全策略,封闭,vbs,代码,如下

程序主要是读取这个网站的iis日志，分析出其中的IP地址，用安全策略自动封闭。VBS代码如下： 实现代码如下： 　　'代码开始 　　Set fileobj=CreateObject("Scripting.filesystemobject") 　　logfilepath="E:w3logW3SVC23