某次维护测试需要配置脚本检测网络是否连通，正常手动检测网络是否连通有两个最为常见的办法：一是ping一个主机；二是打开某知名网站。所以脚本检测也顺着这两个思路进行。 关于ping的VBScript实现有如下代码可供参考： Function Ping(strTarget) Dim objShell, objExec, strPingResults Set objShell = CreateObject("WScript.Shell") Set objExec = objShell.Exec(&qu Read More
VBA/VBScript提取Word(*.doc)文件中包含的图片(照片)
要处理的人事简历表是典型的Word文档，其中一人一份doc，里面包含有个人的照片，如果要把里面的照片复制出来就比较麻烦了，一般手动的做法是选择文件另存为，保存类型选择“网页（*.htm; *.html）”，这样就会另存为网页形式，同时会有个以文件名开头，以.files结尾的文件夹，点击进去就可以看到Word里面嵌入的所有资源，包含所需要的图片资源。 值得注意的是该文件夹里同一张图片正常会有两个副本，其中一张图片文件体积较大，另一张图片文件体积较小，显而易见较小体积的文件是Word自动创建的缩略图，在绝大多数情况下我 Read More
彻底防止Windows 7/8/8.1升级更新到Windows 10
去年7月写过一篇文章讲解如何去除扰人的获取Windows 10的图标，那时候微软也只是推送了获取Windows 10的提示，具体安装Windows 10与否还是有显著的选项让用户自己选择的。 虽然通过先前的方法确实抑制了升级Windows 10的提示，怎奈微软接下来连续放大招推送升级补丁，并且不怎么明显的“诱使”用户升级系统，比如我遇到的微软健康助手提示升级，并且默认勾选同意的坑。其实我不是说Windows 10不好，就是较为反感微软的推送方式，就好像你去商场老是有业务员跟着你，不停向你推荐某某产品好等等，而且因为 Read More
CMD或BAT批处理/VBScript批量复制安装字体文件脚本
根据新系统要求，经常要部署一些原来系统里没有的字体，原先我为了图省事经常会要求用户手动安装字体文件，虽然Windows的易用性做得相当不错，但是仍然要照顾一些不会安装字体的人，其实把这些字体打包进安装包更为方便，不过我觉得总不能每有新字体都要搞个安装包那么麻烦吧。更重要的是仍然有人会问我字体怎么安装，以前清一色的Windows XP系统，我倒也方便，直接告知打开控制面板找到字体文件夹，把要安装的字体拖进去即可；现在有Windows 7还是Windows 8等各种版本Windows系统，对于安装字体这个小小操作我也开 Read More
VBA/Python/VBScript导出PowerPoint(PPT)幻灯片为JPG图片或者纯文本TXT
最近需要对一堆幻灯片进行整理，为了便于检索，决定做一个全文检索系统，整个系统依旧考虑采用Python技术构建，不得不承认Python的开发效率挺高，我采用Flask+Whoosh一个下午就搭建好搜索平台了。今天把一些细节和大家分享一下，首先是幻灯片不同于Word文档，对于幻灯片的检索我是这样考虑的：对于每一张幻灯片分别保存一张图片和纯文本文字，然后让全文检索引擎检索文本，向最终用户提供纯文本和图片化的幻灯片。这里涉及的技术细节是如何将幻灯片导出为图片格式，当然这里还得请出ActiveX/COM对象VBA技术，对于幻 Read More
WScript/VBScript命令行参数使用srvany.exe创建自定义服务
之前写过一篇文章介绍srvany.exe这个小工具的，今天有网友反映能否使用命令行方式创建基于srvany.exe的Windows服务，我想到之前编写的SrvanyUI软件没有命令参数直接调用的功能，本来想完善一下SrvanyUI这个软件的，苦于最近较忙，于是先用VBScript凑合写着一个命令行控制的脚本srvany.vbs，其中用到了RestartService子过程来自Rob van der Woude，在此表示感谢！ 基本的思路很简单，就是先创建srvany.exe为可执行映像的NT系统服务，然后在利用注册 Read More
WScript/VBScript实现ZIP文件的压缩或解压(ZipCompressor)
用了一段时间的Python后，发现VBScript竟然写得不是那么顺手，由于要实现脚本的压缩或者解压，本来觉得用Python来写说不定会方便些，可是想到这个脚本程序主要面对的是非编程人员，总不能要求他们也去安装Python吧，更何况大多数用户对于安装新软件会有抵触情绪。 不过一定要解决这个问题，也不是不可能的，我们可以把Python解释器和库文件打包一起发送给用户，比如可以通过py2exe这个实用工具。 好了，扯多了，今天讲的是使用WScript/VBScript来实现这个功能，Windows系统自带WScript Read More
ASP/VBScript模拟实现PHP extract()函数将字典集合转换为对象
写过PHP的都知道，其有个extract()非常方便，可以便捷的将字典转换为变量，当然到ASP中则要受限很多，特别是VBScript脚本，本文叙述的就是一种转换的思路，可以实现类似的功能。 首先需要我之前公布的一个类DynamicObject（最新版本的），大家可以移步这里找到相应的代码和说明。 了解了DynamicObject类和其工作原理后，下面我就直接提供ASP版本的extract代码吧： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Read More
ASP/VBScript动态创建属性对象的工厂类(DynamicObject)
最近整理ASP/VBScript代码，发现过去的一个ASP实现的MVC框架，可惜是个半成品，效率也成问题，不过发现里面有些我写的代码，感觉还稍稍可以拿出来见人，于是今天作此文以记之。 说是ASP，其实和VBScript也脱不了干系，VBScript语言传承于Visual Basic，VB的语法灵活度已经不尽如人意了，VBS作为其子集可想而知。神马反射、自省等先进的技术，微软在.NET中才引入。作为被抛弃的技术，也不奢望微软能够提供支持，于是顽固守旧的程序员只有绞尽脑汁的去模仿实现一些类似的功能。 好吧，我承认很长一 Read More
Excel列编号(序号A、B、C…AA、AB…)英文字母字符生成算法备忘
近期很忙，博客也不怎么更新了，这里记录一个Excel扩展项目中的列编号生成算法实现。在VBA中，Excel的行可以是1、2、3、4、5…，但是Excel的列编号却是形如A、B、C…AA、AB…BA这样的编号模式，我期望将1、2、3、4、5转换为对应的Excel列编号，但对于我这种不太喜欢钻研算法的来说，确实有点棘手。 不过硬着头皮写了一段，并且也勉强能用，代码分享如下： /** * * buffer 字符缓冲区，用来存储A、B..AA..BB这样的转换结果 * cch 字符缓冲区 Read More