昨天下午闲得无事，于是翻出以前的脚本，尝试运行，结果却出现了如图所示的错误。



于是：regsvr32 vbscript.dll。

重新运行脚本，没想到还是一样。放到另外一台计算机上却正常。怪了，最近也没怎么折腾这系统，百度、谷歌了一阵子，没有答案。

下午吃饭的时候，放火墙出了点状况，打开防火墙日志查看了下，无意中瞄到了“D:DATAVBSGetWanIP.vbs”的字眼，看来有眉目了。

原来是防火墙阻止了脚本的网络访问！添加一条规则。脚本正常运行了。

GetWanIP.vbs是代码网络上随处可见的：

Set GetIP=Wscript.GetObject("http://www.ip138.com/ip2city.asp") 
Do Until GetIP.readyState="complete" 
Wscript.Sleep 100 
Loop 
Wscript.Echo GetIP.documentElement.outerText 
Set GetIP=nothing 

来源：http://www.enun.net/?p=1433

VBScript 监控磁盘更改事件实现代码
来自微软官方，写USB小偷脚本是最好不过的了strComputer="."SetobjWMIService=GetObject("winmgmts:"_&"{impersonationLevel=impersonate}!\"&strComputer&"rootcimv2")SetcolMonitoredEvents

VBScript Enun Remote CMD Shell代码
效果如图：'============================'EnunRemoteCMDShellv1.0'============================OptionExplicitCONSTACCOUNT_LOCK_TIME=600000'账户锁定时间，10分钟CONSTLOCKOUT_BAD_COUNT=3'密码

VBScript 打造自己的远程CMDShell附使用教程
请先下载mswinsck.ocx与VB6Controls.reg！使用方法：1，控制：nc.exe，执行：nc-l-v-p1234；2，目标：cscript.exeenun.vbsIPPort；3，密码：enun。几点说明：1，退出SHELL