Welcome

首页 / 编程脚本

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

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

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

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

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

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

VBS 下载方法（CDO.MESSAGE）

2016-07-27 21
于是研究了一会。写出个粗糙的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 18
碰到虚拟机的时候,还是能偷点懒的 :-）复制代码 代码如下: 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 23
结果发现,有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 18
复制代码 代码如下: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 17
复制代码 代码如下:" ====================================== " VBS 中 SendKeys 模拟键盘击键 " 2009-07-26 " 刘林 " ====================================== Dim WshShell Set WshShell=WScript.CreateObject（"WScript.Shell"） WshShell.Run "cmd" " 让脚本等待1000毫秒...

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

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

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

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

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

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

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

2016-07-27 17
使用方法：将下面的代码保存为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 19
创建文本文件 复制代码 代码如下: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 19
但是初学者慎用，千万不要随便拿来掩盖错误，否则以后程序出现莫名其妙的问题，改都没法改 使用完毕要记得关闭错误捕获器on error goto 0 语法如下: ======================================================= on error resume next "打开错误捕获，以下错误语句将被跳过， 同时内部对象err将纪录最后一个触发的错误信息 on error goto 0 "关闭错误捕获 ======...

查看SQL状态的vbs

2016-07-27 17
复制代码 代码如下:"**************************** "*by r05e "*检验SQL SERVER是否在这机器上工作 "**************************** strComputer = "." Set objWMIService = GetObject（"winmgmts:" _ & "{impersonationLevel=impersonate}！\" & strComputer & " ootcimv...
<< 131 132 133 134 135 136 137 138 139 140 >>
版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图