2020-02-16 标签:vbscript,logparser,isa,2004,web,流量,报告,很喜欢,这里的,学习气氛,也很,佩服,两位,版主,技术水平,希望,能够,在这里,大家,多多

很喜欢这里的学习气氛，也很佩服两位版主的技术水平，希望能够在这里与大家多多交流。 作为见面礼吧，把前一阵子写的一个生成ISA 2004 Web 流量报告的脚本与大家分享。说明下，该校本是首发而且仅发在这里，我没有在菊花里面或任何地方发过。大家可以随意更改脚本以便适合你的要求，转载请保留作者信息谢谢。

2020-02-16 标签:vbs,com,打开,保存,文件,脚本,代码,先把,如下,复制,保存为,filesave,双击,看到了,实现,set,objdialog

您先把如下的代码复制，然后保存为FileSave.vbs，双击打开，您看到了什么呢？实现代码如下：Set objDialog = CreateObject("SAFRCFileDlg.FileSave") Set fso = CreateObject("Scripting.FileSystemObj

2020-02-16 标签:vbs,路由,重启,脚本,实现,代码,如下,set,sh,wscript,shell,run,telnet,192,168,sleep,1000,sendkeys

实现代码如下：Set sh=WScript.CreateObject("WScript.Shell") sh.Run "telnet 192.168.1.1" WScript.Sleep 1000 sh.SendKeys "admin{ENTER}" WScript.Sleep 1000 sh.Se

2020-02-16 标签:visualsvn,server,配置,使用方法,图文,要用,而不,subversion,回答,直接,使用,windows,系统,要想,让它,系统启动,就要,封装

1.为什么要用VisualSVN Server，而不用Subversion？回答：因为如果直接使用Subversion，那么在Windows 系统上，要想让它随系统启动，就要封装SVN Server为windws service，还要通过修改配置文件来控制用户权限，另外如果要想以Web方式【http

2020-02-16 标签:vbscript,wscript,shell,对象,run,exec,使用,心得,分享,set,exers,objws,pscp,r,scp,pw,password,loginid,host,data

Set exeRs = objws.Exec("pscp -r -scp -pw " & password & " " & loginid & "@" & host & ":" & data_path & fileName &

2020-02-16 标签:vbscript,读取,xml,格式,配置文件,实现,代码,如下,class,private,rootdoc,not,null

实现代码如下：Class clsGetProfile ' ルートドキュメント Private rootDoc ' xmlファイル名とセクション名をセットする ' 引数：　「1」ファイル名 NOT NULL ' 戻り値：なし Public Sub setProfile(strFileName) Set

2020-02-16 标签:vbscript,include,办法,实现,代码,任何,真正,实用,工程,开发,必然,文件,创建,麻烦,它对,用的,支持,并不是,太好

任何真正实用的工程开发都必然是多文件的。但是VBScript创建多文件工程要麻烦一点，它对多文件工程，代码复用的支持并不是太好。在C/C++工程里，我们已经习惯了通过一个include语句，并且声明一个函数原形的方式来使用其它模块中的函数，这样一个复杂的工程可以比较容易地分解成一些小的模块，以更容易

2020-02-16 标签:vbscript,error,resume,n,ext,容错,使用,心得,错误处理,完成,如果在,代码,里加,这一句,在这,其他,出现,错误,系统

vbscript中，错误处理使用on error resume next来完成，如果在你的代码里加入这一句，在这句之后的其他代码如果出现错误，系统将忽略这些错误继续运行后面的代码，同时，我们可以使用下面的代码来捕获错误实现代码如下：If err.number<>0 then errNum

2020-02-16 标签:vbscript,loadpicture,函数,使用方法,漏洞,利用,实现,代码,如下,title,form,n,ame,frm,选择,图片,input,type,file,pic

实现代码如下： LoadPicture函数 选择图片 Sub GetPicInfor() dim objpic,iWidth,iHeight dim pictype,picpath picpath=document.frm.pic.value set objpic=Loadpicture(pi

2020-02-16 标签:vbscript,作用,简单说,有事没事,vbs,采集,别人,网站,上的,部分,全部,数据,进行,分析,写入,数据库,文本文件,有时

有事没事用VBS采集别人网站上的部分或全部数据进行分析，然后写入数据库或存到文本文件里，有时还会用VBScript做一些移动光标及输入的操作，比如批量添加远程桌面，有时还会用VBScript还管理Windows服务器，如设置IIS，还有做一些定时提醒工具，多久执行一次，然后用声音控件提醒，很好用。。