编程脚本-脚本相关资料-www.escdns.com

文件夹定时自动备份 AutoBackUpFolder.vbs

2016年07月27日 42 阅读

复制代码代码如下:"/*========================================================================= " * Intro 定时自动备份文件夹到一个以时间命名的新目录，设置好后加到启动项里，只要一启动机器程序就会自动运行，占系统资源可以不计 " * FileName AutoBackUpFolder.VBS " * Author yongfa365 " * Version v1.0 " ...

iis PHP安装脚本 PHPInstall.vbs V3.1

2016年07月27日 42 阅读

复制代码代码如下:"/*========================================================================= " * Intro PHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起（不要放在C盘根目录下） " * （当前版本php-5.2.5-Win32如果是其它请替换当前文档相关文件名），然后双击运行这个文件,<？phpinfo（）？> " * FileN...

HTA文件去除html控件认证和接收命令行参数

2016年07月27日 48 阅读

一是利用hta 去掉htm的控件验证 hta1的代码如下：复制代码代码如下: <html> <head> <title>Sample HTML Application one</title> </head> <body onload="Viewer.document.location.href="activexcontrol.htm""> <iframe id="Viewer...

Rcmd.vbs [Remote Cmd with wmi]远程脚本

2016年07月27日 75 阅读

复制代码代码如下:On Error Resume Next Set outstreem=Wscript.stdout If （LCase（Right（Wscript.fullname,11））="Wscript.exe"） Then Set objShell=Wscript.CreateObject（"Wscript.shell"） objShell.Run（"cmd.exe /k cscript //nologo "&Chr（34）&Wscript.S...

Rcmd.vbs 1.01修正版增加了下载功能

2016年07月27日 79 阅读

这个down.vbs的用法看这里http://www.jb51.net/article/15506.htm代码：复制代码代码如下: On Error Resume Next Set outstreem=Wscript.stdout If （LCase（Right（Wscript.fullname,11））="Wscript.exe"） Then Wscript.Quit End If If Wscript.arguments.Count<4 Th...

vbs 更改环境变量

2016年07月27日 42 阅读

更改复制代码代码如下: Set WshShell = Wscript.CreateObject（"Wscript.Shell"） WshShell.Environment（"user"）.Item（"path"）="c: uby" 移除：复制代码代码如下: WshShell.Environment（"USER"）.Remove（"LAST_LOGIN_DATE"）附记一下这两个：复制代码代码如下: Set objAD = CreateOb...

excel2access vbs脚本

2016年07月27日 55 阅读

复制代码代码如下: "脚本说明 "code by NP "outDateFile变量为要写入的数据库名字 "Tables变量为Access数据库中的表名 "ROW变量为Access数据库中的列名 "Excel中的数据，直接为要写入的数据，不需要标题一类的 "例如：要写入数据库的列名为 " 系别|班别|姓名|学号|性别|政治面貌|出生年月|身份证号码|家庭地址|生源地毕业学校 "而Excel文件中，只需要以下面的例子开头就行了 " 城建系|城建0001|韦...

VBS 下载方法（CDO.MESSAGE）

2016年07月27日 51 阅读

于是研究了一会。写出个粗糙的DEMO。 exe2hex.vbs //xiaolu写的exe2vbs ，我修改成直接拖放,转成十六进制 ================================================ 复制代码代码如下: "code by xiaolu "change by NetPatch on error resume next set arg=wscript.arguments if arg.count=0 then ...

vbs实现myipneighbors 域名查询结果整理

2016年07月27日 45 阅读

碰到虚拟机的时候,还是能偷点懒的 :-）复制代码代码如下: On Error Resume Next Set Arg=Wscript.Arguments If Arg.count=0 then Wscript.quit "code by NetPatch "enjoy it Set Fso=CreateObject（"Scripting.FileSystemObject"） Set Gofile=Fso.OpenTextFile（Arg（0）,1,fal...

将VBS或ASP中的代码转成一句话形式

2016年07月27日 49 阅读

结果发现,有TABLE不行类似if xx=1 then yy=2 的也不行... //此脚本支持拖放,也可以在命令行下使用 cscript change.vbs xx.asp 复制代码代码如下: On Error Resume Next Set Arg=Wscript.Arguments If Arg.Count=0 Then wscript.quit "code by NetPatch "enjoy it Set Fso=CreateObject（"...

修改 Gateway和DNS的vbs脚本

2016年07月27日 44 阅读

复制代码代码如下:Const T_GATEWAY = "1.1.1.1" "网关 Const T_NEWDNS1 = "2.2.2.2" "DNS1 Const T_NEWDNS2 = "3.3.3.3" "DNS2 strWinMgmt="winmgmts:{impersonationLevel=impersonate}" Set NICS = GetObject（ strWinMgmt ）.InstancesOf（"Win32_NetworkAdap...

VBS sendkeys 模拟击键操作问题解决

2016年07月27日 43 阅读

复制代码代码如下:" ====================================== " VBS 中 SendKeys 模拟键盘击键 " 2009-07-26 " 刘林 " ====================================== Dim WshShell Set WshShell=WScript.CreateObject（"WScript.Shell"） WshShell.Run "cmd" " 让脚本等待1000毫秒...

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

2016年07月27日 44 阅读

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

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

2016年07月27日 41 阅读

复制代码代码如下: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 脚本高手不完全手册

2016年07月27日 45 阅读

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

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

2016年07月27日 47 阅读

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

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

2016年07月27日 40 阅读

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

VBScript 文件操作代码小结

2016年07月27日 43 阅读

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

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

2016年07月27日 45 阅读

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

查看SQL状态的vbs

2016年07月27日 45 阅读

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

首页 / 编程脚本

文件夹定时自动备份 AutoBackUpFolder.vbs

iis PHP安装脚本 PHPInstall.vbs V3.1

HTA文件去除html控件认证和接收命令行参数

Rcmd.vbs [Remote Cmd with wmi]远程脚本

Rcmd.vbs 1.01修正版 增加了下载功能

vbs 更改环境变量

excel2access vbs脚本

VBS 下载方法（CDO.MESSAGE）

vbs实现myipneighbors 域名查询结果整理

将VBS或ASP中的代码转成一句话形式

修改 Gateway和DNS的vbs脚本

VBS sendkeys 模拟击键操作 问题解决

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

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

WMI 脚本高手不完全手册

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

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

VBScript 文件操作代码小结

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

查看SQL状态的vbs

Rcmd.vbs 1.01修正版增加了下载功能

VBS sendkeys 模拟击键操作问题解决

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

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

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