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中，查找 ...
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. ...
