VBA数组用法案例详解
目录前言具体操作1、VBA数组的定义方法2、数组的赋值和计算3、数组的合并（join）与拆分（split）4、数组的筛选（Filter）5、数组维度的转换（Transpose）6、利用数组获取所有工作表名称的自定义函数7、数组赋值，提高计算效率总结前言
VBA数组在Excel开发应用中，作用还是很明显的，用好数组可以提高工作效率，下面就开始 ...
如何用VBS脚本收集远程计算机或本地计算机安装的软件
目录目标制作VBS脚本修改结果文件保存路径。修改过滤条件（设置不想显示的程序名）测试测试方法1测试方法2测试方法2的注意事项目标
用VBS脚本收集域中远程计算机或本地计算机安装的软件，Windows版本。并将收集的结果保存到计算机名为文件名的文本文件中。文本文件可以保存到网络路径中或当前VBS文件所在目录。同时支持32位 ...
vbs查询局域网内电脑的软件和硬件列表清单
下面的代码在windows下容易报毒大家可以放心使用
'==========================================================================
'
' Date:2009/3/19
' Name: 查询软件和硬件列表清单
' Author:Smileruner
' www.overmcse.com
' 不支持Win2000及WinNT
'
' 3/19,添加了网卡过滤。
'===================================== ...
vbs获取操作系统及其版本号
vbs获取操作系统及其版本号
'**************************************
'*by r05e
'*操作系统及其版本号
'**************************************
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = o ...
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 ...
浅谈如何使用vb.net从数据库中提取数据
1.设置从Model中的Sub Main 启动
2.程序结构
3.Model1
Imports System.Windows.Forms.Application
Module Module1
Sub Main()
'form1 是测试多文档窗口
'Dim frm1 As New Form1()
'frm1.Show()
Dim formStudentSysMain As New FormStudentSysMain()
formStudentSysMain.Show()
Do While True
DoEvents( ...
简单用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中，查找 ...
使用WMI得到计算机的信息
WMI是一项行业推荐规范，旨在为访问企业环境中的管理信息而开发一种标准化技术。该信息包括系统内存的状态、当前安装的客户应用程序清单，以及有关客户端状态的其他数据。
WMI是可伸缩的系统管理结构，该规范采用一个统一、基于标准且可扩展的面向对象接口。它提供与系统管理员信息和基础WMI API交互的标准方法，主要由系统 ...
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 "堆栈中的元素数: " ...
