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

vbscript 三个数比较大小的实现代码

2017年02月06日 76 阅读

复制代码代码如下:dim a,b,c a =inputbox （"请输入0-99的整数且不能重复更不要用汉字和字母"） b =inputbox （"请输入0-99的整数且不能重复更不要用汉字和字母"） c =inputbox （"请输入0-99的整数且不能重复更不要用汉字和字母"） if not（IsNUmberic（a） and IsNUmberic（b） and IsNUmberic（c）） then msgbox "不乖哦>_<" el...

脚本 MsAgent组件微软精灵揪出系统自带的宠物

2017年02月06日 84 阅读

复制代码代码如下:"On Error Resume Next strAgentName = "Merlin" strAgentPath = "c:windowsmsagentchars" & strAgentName & ".acs" ScriptComplete=0 Set objAgent = WScript.CreateObject（"Agent.Control.2","agent_"） objAgent.Connected = True objA...

VBS InternetExplorer.Application的属性和方法介绍

2017年02月06日 64 阅读

Set ie = CreateObject（"InternetExplorer.Application"） ie.Navigate "http://www.jb51.net" Wscript.Sleep 1000 ie.Toolbar = 0 ie.visible=False ie.Document.f1.word.value = kw If ie.Document.f1.word.value="" Then Wscript.Quit 上面是在网上看到的，...

vbs 列出该目录下所有文件和文件夹的类型,大小,和所有者

2017年02月06日 76 阅读

GetOwner.VBS用法,在命令行下:GetOwner.vbs 目录名会在相应目录下生成一个TXT.TXT文件,内里列出该目录下所有文件和文件夹的类型,大小,和所有者注意:大小以MB为单位,小于1MB的就显示为0MB, 以下是代码: G = WScript.arguments（0） Set oFSO = CreateObject（"Scripting.FileSystemObject"） set txt = oFSO.CreateTextFile（G...

雷客图站长安全助手 vbs版代码（asp 木马查找）

2017年02月06日 64 阅读

均在命令行下使用 AntiIframe.vbs #该脚本是批量挂马程序的逆向，用于批量清除被添加到文件中的恶意代码。记事本打开文件可以修改Pattern参数指定要处理的文件名，文件名之间用|隔开（也支持vbs正则表达式）。由于要修改文件，请谨慎的使用（最好先备份文件） #用法: CScript AntiIframe.vbs [处理的路径] [包含清除内容的文件] #例子: CScript AntiIframe.vbs d:Web d:lake2.txt -...

discuz 任意管理员密码漏洞利用工具 vbs代码

2017年02月06日 75 阅读

也利于修改以下是search.inc.php 文件漏洞利用代码VBS版复制代码代码如下: Dim strUrl,strSite,strPath,strUid showB（） Set Args = Wscript.Arguments If Args.Count <> 3 Then ShowU（） Else strSite=Args（0） strPath=Args（1） strUid=Args（2） End If strUrl="action...

添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码

2017年02月06日 58 阅读

复制代码代码如下:"/*========================================================================= " * Intro 主要是解决在使用WebBrowser打印时，得先设置IE安全性的问题 " * FileName 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚.vbs " * Author yongfa365 " * Version v1.0 " * Emai...

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

2017年02月06日 66 阅读

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

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

2017年02月06日 67 阅读

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

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

2017年02月06日 93 阅读

一是利用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]远程脚本

2017年02月06日 64 阅读

复制代码代码如下: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修正版增加了下载功能

2017年02月06日 70 阅读

这个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 更改环境变量

2017年02月06日 75 阅读

更改复制代码代码如下: 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脚本

2017年02月06日 76 阅读

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

VBS 下载方法（CDO.MESSAGE）

2017年02月06日 96 阅读

于是研究了一会。写出个粗糙的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 域名查询结果整理

2017年02月06日 64 阅读

碰到虚拟机的时候,还是能偷点懒的 :-）复制代码代码如下: 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中的代码转成一句话形式

2017年02月06日 67 阅读

结果发现,有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脚本

2017年02月06日 66 阅读

复制代码代码如下: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 模拟击键操作问题解决

2017年02月06日 61 阅读

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

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

2017年02月06日 69 阅读

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

首页 / 编程脚本

vbscript 三个数比较大小的实现代码

脚本 MsAgent组件 微软精灵 揪出系统自带的宠物

VBS InternetExplorer.Application的属性和方法介绍

vbs 列出该目录下所有文件和文件夹的类型,大小,和所有者

雷客图 站长安全助手 vbs版代码（asp 木马查找）

discuz 任意管理员密码漏洞利用工具 vbs代码

添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码

文件夹定时自动备份 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

脚本 MsAgent组件微软精灵揪出系统自带的宠物

雷客图站长安全助手 vbs版代码（asp 木马查找）

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

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

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