VBScript 检测网络连接是否正常

某次维护测试需要配置脚本检测网络是否连通,正常手动检测网络是否连通有两个最为常见的办法:一是ping一个主机;二是打开某知名网站。所以脚本检测也顺着这两个思路进行。

关于ping的VBScript实现有如下代码可供参考:

Function Ping(strTarget)
  Dim objShell, objExec, strPingResults
  Set objShell = CreateObject("WScript.Shell")
  Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strTarget)
  strPingResults = LCase(objExec.StdOut.ReadAll)
  If InStr(strPingResults, "reply from") Then 
    'WScript.Echo VbCrLf & strTarget & " responded to ping."
    Ping = True
  Else
    'WScript.Echo VbCrLf & strTarget & " did not respond to ping."
    Ping = False
  End If
  Set objExec = Nothing
  Set objShell = Nothing
End Function

继续阅读

解决Windows 资源保护找到了损坏文件但无法修复问题

今天Windows 8.1系统的电脑突然卡住并且自动重启,通过事件查看器得到的资料有限,初步怀疑是系统文件受损导致,于是通过经典的sfc /scannow验证系统并修复受损文件,但是得到以下提示:

开始系统扫描。此过程将需要一些时间。

开始系统扫描的验证阶段。
验证 100% 已完成。

Windows 资源保护找到了损坏文件但无法修复
其中某些文件。CBS.Log windir\Logs\CBS\CBS.log 中有详细信息。
例如 C:\Windows\Logs\CBS\CBS.log。请注意,在脱机服务方案中,
当前不支持日志记录。

继续阅读

100.64.0.1运营商级(Carrier-grade)NAT保留IP地址

在一次跟踪路由的网络操作时发现自己路由器下一跳路由节点的IP地址比较奇怪,是100.64.0.1。好奇促使我查询了这个IP地址的归属,结果是保留地址,到这里觉得比较奇怪了,按照常理以IPv4为例保留的IP地址一般为以下几种,常用于内网通讯或者特殊用途:

地址块起始结束备注
10.0.0.0/810.0.0.010.255.255.255局域网分配
172.16.0.0/12172.16.0.0172.31.255.255局域网分配
192.0.0.0/24192.168.0.0192.168.255.255局域网分配
169.254.0.0/16169.254.0.0169.254.255.255两台主机对等连接,当Windows获取不到IP地址的时候会自动分配此类地址
127.0.0.0/8127.0.0.0127.255.255.255回环(loopback)地址,表示本机
255.255.255.255/32255.255.255.255255.255.255.255广播地址

继续阅读

Office Word 2003 使用邮件合并功能实现连续编号备忘

这里做个备忘,主要是工作上偶尔会遇到的一个简单操作,常见的场景是会议资料封面需要编号,或者某某证书有唯一的序列号标识。其实很长一段时间是用打码机手动一张一张打码进行编号,这个工作特别累人,尤其是在文件比较多、任务比较紧的情况下,如何自动让Word根据模板来生成已经编好号的页面成为考虑的首要内容。

对于程序员来说,第一种想法就是编程,通过VBA技术进行脚本编程,替换设定好的模板指定占位符进行批量生成确实可以很好的解决问题,唯一麻烦的地方是如果以后文件有改动,程序需要重新配置,而且授人以鱼不如授之以渔,对于不会编程的同事来说,我还需要教会他们完成这项工作,所以今天文章主要介绍的就是如何不通过编程来实现连续编号。

假设给我们的是一个留下需要输入编号的空白模板文档,在此基础上我们需要新建Excel,文件名自定义。

继续阅读

彻底防止Windows 7/8/8.1升级更新到Windows 10

去年7月写过一篇文章讲解如何去除扰人的获取Windows 10的图标,那时候微软也只是推送了获取Windows 10的提示,具体安装Windows 10与否还是有显著的选项让用户自己选择的。

虽然通过先前的方法确实抑制了升级Windows 10的提示,怎奈微软接下来连续放大招推送升级补丁,并且不怎么明显的“诱使”用户升级系统,比如我遇到的微软健康助手提示升级,并且默认勾选同意的坑。其实我不是说Windows 10不好,就是较为反感微软的推送方式,就好像你去商场老是有业务员跟着你,不停向你推荐某某产品好等等,而且因为大部分客户电脑上一些业务系统在Windows 10下存在各种兼容问题,就有客户反应因为不小心升级Windows 10导致业务软件不能正常运行最后只有重新安装老系统(其实对于误安装有办法直接恢复到老系统,方法附本文后)

继续阅读

以Web代理劫持会话绕过并破解网页版软件USB-Key加密狗方案

单位某信息管理系统,需要加密狗才能运行,因为加密狗只有一个,该系统又需要维护各部门台账信息,遂思考在不增加加密狗的情况下能否将该系统分发下去,已知该系统采用Java Web方式编写,虽然有桌面应用的样子,但实质上是Web应用,很容易找到了Java Web服务器和实际的访问URL,在防火墙端口开放访问,并在路由器上做好端口映射,其他电脑访问正常,本来以为万事大吉,哪知道在登录的时候客户端提示没有加密狗无法登录。

审阅了登录页面的源代码,发现其采用ActiveX控件方式读取加密狗并设置登录信息以便于提交服务器,客户端没有加密狗,这个验证肯定也无法通过,原来我一直以为这个软件的加密狗是用于服务器端的,没想到客户端网页也采用了加密狗保护机制。

通常意义上加密狗是一种软件保护机制,主要防止软件被盗版,其通过硬件的方式保护核心的算法(比如关键公式),在软件需要的时候由硬件进行数据处理以完成整个软件流程,那么可以知道其登录信息的加密方式是存储在加密狗里面的,如果要登录成功又必须需要加密后的登录凭证。

因为该软件项目规模较大,反编译修改软件较为复杂,而且领导明确要求不可以改动原软件,所以只有另行他法。

继续阅读

彻底关闭并卸载任务栏右下角获取Windows 10图标提示

微软为推销Windows 10可谓是不遗余力,居然强制向广大的Windows 7和Windows 8/8.1用户进行了推送,其结果是小伙伴们发现电脑的右下角出现一个“获取 Windows 10”(英文版:Get Windows 10)的图标,但对于我这样的没有升级欲望的,看到这样的图标颇为不爽,打开任务管理器,居然还有一个GWX.exe的进程,罢了,罢了,反正我也知道可以升级Windows 10,但占用我可怜的内存资源则不能忍受了,所以决定卸载并移除该提示。

Get Windows 10 icon

首先查阅了网上的资料,发现大家都从更新入手,已知更新代号为KB3035583,那么直接卸载,问题不是解决了吗?非也非也,该更新被标注为高优先级,也就是说只能解燃眉之急,不能做长久打算,过一段时间“获取 Windows 10”(为了简便,下文称为“GWX”)还是会死而复活。

继续阅读

BAT批处理判断IP地址并自动ipconfig release/renew

某内网拨号软件设计问题,拨号后在偶然的情况下不能自动获取DHCP从而更新内网IP,后来发现通过手动释放和重新获取IP可以解决这个问题,但是每次在操作前还要看下IP地址是不是已经被更新为内网地址,若已经更新则无需操作,否则就要手动释放更新,每次敲一堆命令确实麻烦,于是打算做成批处理。

首先遇到的问题是如何获取IP地址,当然既然采用批处理那么就需要借助于现有的命令或者命令行程序,Windows系统内ipconfig命令可以获取IP地址等信息,如果我们只需要IP地址,那么就必须对获取的信息进行筛选过滤,这就需要findstr等工具的配合了,结合网上找到的示例最终代码如下:

for /f "tokens=2 delims=:" %%i in ('ipconfig^|findstr "Address"') do set ip=%%i
SET ip=%ip:~1%

继续阅读

将360随身WiFi2的AP模式变为无线网卡(客户端基站模式)

年前论坛搞抽奖,运气不错抽中一个360 WiFi2,之前就关注过这个玩意了,猜测其功能实现主要是用了USB网卡的AP热点功能,今天到手安装了360的驱动后,怀着好奇心刺探了其安装文件夹,果然找到了些蛛丝马迹:

360随身WiFi - Ralink DLL

其间至少有两个动态链接库(*.DLL):RaAPAPI.dllRaCertMgr.dll不是360官方的程序库文件,查看了版本信息找到了名为Ralink Technology, Corp.的字样,Google一下真相大白:Ralink这家公司中文名叫做雷凌,是无线网络芯片开发商,但是打开其官网时跳转到了MediaTek,原来这家公司已经被MediaTek收购了,MediaTek(联发科)我想大家并不陌生。好了基本可以确定360随身WiFi的芯片采用的是Ralink的无线网卡技术,相当于19.9元的价格购买了一块支持AP的无线网卡,当然算上360提供的易用的驱动这个价格还算厚道,唯一不满意的是为什么要阉割掉网卡的功能,对于我们这些家里和单位有无线的人来说,要物尽其用还是要开发出其网卡功能也就是客户端基站模式,这样我就可以连接无线路由了。

继续阅读

Windows XP环境下快速配置IIS+PHP详细过程

昨天帮朋友配置的IIS+PHP运行环境,今天我把详细步骤记录一下供备忘。

首先环境是Windows XP Professional系统,在这个系统下仅能安装IIS 5.1,其他系统的IIS配置大同小异这里就不多说了。

1. 准备XP原版光盘或者镜像并挂载

我们需要准备一个Windows XP Professional的原版光盘,如果有的话直接把光盘插入光驱即可,然后跳过这步,当然没有的话可以去下载个原版镜像,我这里提供个信息,因涉及版权问题,大家根据下面的信息网上找一下吧。

继续阅读