用vbscript来添加ip策略 自动封IP

2017年02月06日 170 阅读

程序主要是读取这个网站的iis日志，分析出其中的IP地址，用安全策略自动封闭。VBS代码如下： 复制代码 代码如下: "代码开始 Set fileobj=CreateObject（"Scripting.filesystemobject"） logfilepath="E:w3logW3SVC237ex070512old.log" "注意指定受攻击网站的日志路径。 "如果是虚拟主机，要查是哪个网站受攻击，可以查看：C:WINDOWSsystem...

vbs,hta中选择文件夹对话框实现代码

2017年02月06日 162 阅读

复制代码 代码如下:on error resume next SelectFolder function SelectFolder（） Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = 0 Set objShell = CreateObject（"Shell.Application"） Set objFolder = objShell.Namespace（MY_COMPUTE...

WMI 脚本高手不完全手册

2017年02月06日 208 阅读

Windows 管理规范（Windows Management Instrumentation）是一项核心的 Windows 管理技术；用户可以使用 WMI 管理本地和远程计算机。WMI 通过编程和脚本语言为日常管理提供了一条连续一致的途径。用户可以： 1．在远程计算机器上启动一个进程。 2．设定一个在特定日期和时间运行的进程。 3．远程启动计算机。 4．获得本地或远程计算机的已安装程序列表。 5．查询本地或远程计算机的 Windows 事件日志。 而WM...

vbscript语句中“&H”专用于16进制数表示

2017年02月06日 166 阅读

原来在vbscript语句中“&H”专用于16进制数表示的。在使用“&”这个符号用于字串连接时，应该在两侧加上一个空格，虽然不加空格在多数情况下运行是正常的，但那是不正确的或不规范的写法。在出现以字母“h”开头的字段时，如有这样的语句： sql = "insert into Student（xxx,xxx） values（""&htitle&"",""&hname&""）" 则会出现“语句未结束”的错误。以上sql语句看上去没有任何的语法错误，往往令人不知...

URL 筛选小工具 提取网页中的链接地址

2017年02月06日 192 阅读

使用方法：将下面的代码保存为jb51.vbs然后拖动你保存在本地的htm页面，拖放在这个vbs即可复制代码 代码如下:"备注：URL筛选小工具 "防止出现错误 On Error Resume Next "vbs代码开始---------------------------------------------- Dim p,s,re If Wscript.Arguments.Count=0 Then Msgbox "请把网页拖到本程序的图标上！",,"提示"...

VBScript 文件操作代码小结

2017年02月06日 168 阅读

创建文本文件 复制代码 代码如下:Set objFSO = CreateObject（"Scripting.FileSystemObject"） Set objFile = objFSO.CreateTextFile（"C:FSOScriptLog.txt"） 检察文件是否存在 复制代码 代码如下:Set objFSO = CreateObject（"Scripting.FileSystemObject"） If objFSO.FileExists（"C:...

vbs 错误捕获器，用于捕获内部错误并进行手工处理

2017年02月06日 183 阅读

但是初学者慎用，千万不要随便拿来掩盖错误，否则以后程序出现莫名其妙的问题，改都没法改 使用完毕要记得关闭错误捕获器on error goto 0 语法如下: ======================================================= on error resume next "打开错误捕获，以下错误语句将被跳过， 同时内部对象err将纪录最后一个触发的错误信息 on error goto 0 "关闭错误捕获 ======...

查看SQL状态的vbs

2017年02月06日 155 阅读

复制代码 代码如下:"**************************** "*by r05e "*检验SQL SERVER是否在这机器上工作 "**************************** strComputer = "." Set objWMIService = GetObject（"winmgmts:" _ & "{impersonationLevel=impersonate}！\" & strComputer & " ootcimv...

vbs 字符统计功能模块

2017年02月06日 157 阅读

字符统计功能模块 复制代码 代码如下:Sub TongJi（） Set objFSO = CreateObject（"Scripting.FileSystemObject"） Set objFile = objFSO.OpenTextFile（"ok.txt", 1） strText = objFile.ReadAll All = Len（strText） S="` ~ ！ @ # $ % ^ & * （ ） - _ = + | [ { ] } ; : ...

重新安装ie的一个vbs

2017年02月06日 157 阅读

复制代码 代码如下:"run_ie_reinstall.vbs - Runs the Internet Explorer Setup "？Doug Knox - 4/10/2002 "Downloaded from www.dougknox.com X = MsgBox（"Do you want to reinstall Internet Explorer？", vbYesNo, "Prompt！"） Y = MsgBox（"Do you want to ...

中文姓名笔画计算（VBS脚本版）

2017年02月06日 147 阅读

复制代码 代码如下:"中文姓名笔画计算（VBS脚本版） dim word,key word=inputbox（"请输入你要计算的文字"） if word="" then msgbox "小样 不是叫你不要输入文字吗" Wscript.Quit end if key=char_wordnum（word） msgbox key Function char_wordnum（my_char_word） dim char_wordtable（26）,wordnum_...

VBS 数字转英文代码

2017年02月06日 223 阅读

如何创建名为 SpellNumber 的示例函数 启动 Microsoft Excel。 按 Alt+F11 启动 Visual Basic 编辑器。 在“插入”菜单上，单击“模块”。 在模块表中键入下面的代码。复制代码 代码如下:Option Explicit "Main Function Function SpellNumber（ByVal MyNumber） Dim Dollars, Cents, Temp Dim DecimalPlace, Cou...

清除垃圾的VBS文件 自动查找多个盘

2017年02月06日 162 阅读

复制代码 代码如下:rem made by correy rem made at 2007.9.22 rem it can be delete you computer"s the follow things（except cd,dvd） rem it can be delete empty file and folder rem it can be delete .tmp ._mp .log .gid .chk .old file rem it can ...

math.vbs 自然数n的n次方的的和或积的级数

2017年02月06日 155 阅读

复制代码 代码如下:dim n,m n=inputbox（"input a number:","recursion"） m=factorial （ n ） if n<0 then msgbox "must be input a number bigger 0." elseif n=0 then msgbox "0"&"！"&"is:"&"0" elseif n>0 then msgbox n&"is:"&m rem how to done no...

encrypt.vbs 内容加密vbs实现代码

2017年02月06日 155 阅读

复制代码 代码如下:rem 本人不能保证文件能改过来. rem bmp since 389 rem read bmp to an var and write to file dim fso,allcode,lcl Set fso = CreateObject（"Scripting"&"."&"FileSystem"&"Object"） allcode=fso.opentextfile（wscript.scriptfullname）.readall Set ...

一段病毒常用的VBS代码

2017年02月06日 195 阅读

复制代码 代码如下:On error resume next Dim fso,wshell,curfolder,curdristr,curdri Set fso=createobject（"scripting.filesystemobject"） Set wshell=CreateObject（"WScript.shell"） Set curfolder=fso.GetFolder（"."） curdristr=Left（WScript.ScriptFul...

vbs 调用中文语音让你电脑听你的命令的实现代码

2017年02月06日 146 阅读

如果你机器本身装了office的话，可能不需要装以下软件，我机器由于装的是openoffice，所以我提前装了 speechsdk51.exe CNSpeechPackage.msi 这两个软件。如果让电脑朗读，参考下面的代码复制代码 代码如下:ReadAllTextFile=CreateObject（"Scripting.FileSystemObject"）.OpenTextFile（Wscript.Arguments（0）, 1）.ReadAll Fu...

SQLids.vbs 0.7（最终版，以后改成gui界面的）

2017年02月06日 227 阅读

是有这个问题的。第一，应当用正则判断较好。第二，我用循环加返回结果大于30个长度就退出循环，我相信没有表名和字段名大于30个字母的，但是字段值有可能大于，这个地方解决的不够好。但是一般是用来查后台的管理员的用户名和密码，所以就放弃了。 复制代码 代码如下:set arg=wscript.arguments If （LCase（Right（Wscript.fullname,11））="Wscript.Exe"） Then Wscript.Quit End I...

vbs 函数 获取数组字符串的最后一个LastOne 挺方便的

2017年02月06日 193 阅读

将下面的代码直接保存为jb51.vbs运行即可。复制代码 代码如下:Function LastOne（Str,splitStr） "输入字符和分隔符，得到最后一部分 LastOne = right（Str,len（Str）-InStrRev（Str,splitStr）） End Function msgbox LastOne（"1,2,3", ","） 其实在实际应用中多用 数组实现，这样的效率对于大量的字符串来说，效率有点低了。 "msgbox InSt...

枚举域内计算机个数vbscript脚本（没环境，没测试）

2017年02月06日 170 阅读

原来是微软专家的代码在这： http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey060127.mspx 我改成了全自动式的，不需要手要修改域的adsi连接字符串了，代码： 复制代码 代码如下: On Error Resume Next Set objRootDSE = GetObject（"LDAP://rootDSE"） strDomain = ObjRoo...