利用vbs写的延时关闭ie进程的脚本代码

2016年07月27日 98 阅读

复制代码 代码如下: Delay = 5000 strComputer = "." Set objWMIService = GetObject（"winmgmts:{impersonationLevel=impersonate}！\" & strComputer & " ootcimv2"） Set objStartup = objWMIService.Get（"Win32_ProcessStartup"） Set objConfig = objStart...

Shell.Application执行命令的五种方法小结

2016年07月27日 110 阅读

当初老马写这个版本时，我测试过简繁两个2003版本的，当是是好用的。我猜测很可能与2003打了ms06014补丁有关。kyo在冰点论坛提出了解决方法，我今天下午研究了一下这个组件，发现它有5种方法可以执行命令。以下是vbs版本（asp版不提供了，如何利用asp版本在2003的webshell中运行命令，自己解决吧：-）： 复制代码 代码如下: Set objShellApp = CreateObject（"Shell.Application"） Set o...

SQL获取表结构的show_table.vbs （冰点极限NP）

2016年07月27日 108 阅读

复制代码 代码如下:set arg=wscript.arguments If arg.count = 0 Then show_help（） wsh.quit End If Server = arg（0） User = arg（1） pass = arg（2） database_name = arg（3） table_name = arg（4） set Conn = CreateObject（"ADODB.Connection"） Conn.Open "Dr...

域内计算机和用户获取实现vbs代码

2016年07月27日 110 阅读

显示当前域内所有计算机名称及数目 复制代码 代码如下: Const ADS_SCOPE_SUBTREE = 2 Set objRootDSE = GetObject（"LDAP://rootDSE"） strDomain = ObjRootDSE.Get（"defaultNamingContext"） Set objConnection = CreateObject（"ADODB.Connection"） Set objCommand = CreateOb...

用vbs读取index.dat内容的实现代码

2016年07月27日 113 阅读

复制代码 代码如下:" +----------------------------------------------------------------------------+ " | Contact Info | " +----------------------------------------------------------------------------+ " Author: Vengy " modiy:lcx " Email : c...

用来分割文本的vbs脚本

2016年07月27日 108 阅读

复制代码 代码如下: On Error Resume Next "Code By NetPatch Set Arg=Wscript.Arguments If Arg.Count=0 Then Wscript.Quit Set Fso = CreateObject（"Scripting.FileSystemObject"） Set Conn = CreateObject（"ADODB.Connection"） Set Rs = CreateObject（"A...

用vbs分割与合并文本文件的代码

2016年07月27日 111 阅读

然而想到其他地方再次下载时发现一次性导入几万个地址非常缓慢，所以有必要把它分割了：（在这个txt文件中，一个地址占一行） url_split.vbs文件内容： 复制代码 代码如下: Set fs =CreateObject（"scripting.filesystemobject"） Set gs =CreateObject（"scripting.filesystemobject"） Set f=fs.opentextfile（"url.txt",1,tru...

文本文件分割脚本（VBS）

2016年07月27日 110 阅读

而Windows下没有一个现存的比较好用的分割工具，所以我用VBS做了一个文本文件的分割工具，和各位网友共享。脚本代码如下： 复制代码 代码如下: Option Explicit "这个脚本只用来分割文本文件，脚本需要3个参数 "参数列表 "文件名 参数1 参数2 "梦想工作室 www.mx111.com "示例 参数1 参数2 参数意义 " S 5 等分为5个文件 " E 1024 按照1024的大小分割文件 " F 1024 取最前面的1024字节存为...

iPod文本分割器（VBS版）

2016年07月27日 101 阅读

因此暑假闲暇编写了这个简短精悍的脚本版的分割器。脚本版的最大的好处可以由使用者进行DIY。 具体情况就不多说了，关于txt编码的问题可以参考，iPod文本分割器 这里仅仅说明使用方法，将您需要分割的Txt文件直接拖放发到本脚本上就ok了。 以下是脚本代码，直接复制后保存为vbs文件就可以了！ Good Luck ！ 复制代码 代码如下: "-----------------------------------------------------------...

VBS.Runauto脚本病毒分析篇

2016年07月27日 99 阅读

最近一位同事的笔记本遭遇了这个病毒，正好这学期在给计算机专业的同学们上VBscript于是顺便分析了一下。 首先从染病毒的计算机上提取下来病毒样本，由于是临时发现的，也没有特别准备，就用winrar压缩后保存。 在实验机器上打开病毒样本的压缩文件，我的Symantec 11立即报警，并把病毒删除了。所以必须禁用杀毒软件或者设置一个“例外区域”用于分析病毒，于是在桌面上新建了“evA”文件夹，并将之设置为防病毒例外文件夹，这下病毒样本安静的躺在里面了。 脚本...

获取主机名的vbs（cmdlib.wsc）

2016年07月27日 109 阅读

复制代码 代码如下: strComputer = "." Set objCmdLib = CreateObject（"Microsoft.CmdLib"） Set objCmdLib.ScriptingHost = WScript.Application Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootcimv2"） WScript.Echo objCmdLib.getHost...

vbs字符串操作小考题

2016年07月27日 108 阅读

str="a|b|c|d" 要求写一段小程序得出： a|b|c|d b|c|d|a c|d|a|b d|a|b|c 这样的结果，str长度未定，格式是上边的格式。 实现代码如下: 复制代码 代码如下: str="a|b|c|d" Call Sort（str, "|"） Function Sort（sSource, sDelimiter） Dim I, J, N, sItems, sTemp sItems = Split（sSource, sDelimite...

vbs字符串分割函数

2016年07月27日 109 阅读

复制代码 代码如下:Function CutAndJoin（sSource, iLong, sJoiner） Dim I, N N = Len（sSource） / iLong If（N <> Fix（N））Then N = Fix（N） + 1 For I = 0 To N - 1 CutAndJoin = CutAndJoin & Mid（sSource, I * iLong + 1, iLong） & sJoiner Next If（N ...

用VBScript收集系统信息并上传到ftp空间

2016年07月27日 120 阅读

之前无聊整理出来了一份这个东西，因为在单位给新入职的员工配电脑时，需要登记一遍设备，可每次总要查感觉挺麻烦，结果下面的这份VBS脚本就诞生了，只可惜这个脚本做好了却没派上用场哎。。。 这个脚本的功能是运行后自动将查询到的计算机相关信息记录到一个文档中，然后在经过FTP将生成的文件上传至服务器保存，最后在清除运行脚本是生成的文件并删除自身。 下面是代码： 复制代码 代码如下:"#####收集计算机信息_开始##### On Error Resume Next...

用VBS将一篇txt后缀的内容保存为html格式

2016年07月27日 107 阅读

do.vbs复制代码 代码如下:"BY Coo_boi If WScript.Arguments.Count=0 Then WScript.Quit Dim fso,txt,htm txt=WScript.Arguments（0） Set fso=CreateObject（"Scripting.FileSystemObject"） Set htm=fso.CreateTextFile（txt&".htm",True） title=fso.GetFile（t...

VBS 16进制验证特定字符

2016年07月27日 110 阅读

复制代码 代码如下: "验证字符：fastslz file=Wscript.ScriptFullName Dim slz set slz = CreateObject（"Adodb.Stream"） slz.Type = 1 slz.Mode = 3 slz.Open slz.Position = 0 slz.Loadfromfile file Bin=slz.read（18） if AscB（MidB（Bin,12,1））=&H66 and AscB（M...

VBS脚本也有GUI图形界面 日志清除功能

2016年07月27日 111 阅读

使用方法：将下面的代码保存为rizhi.vbs双击运行即可，如果不行可能是杀毒软件的问题。可以搜索下。脚本之家以前提供过解决方法。复制代码 代码如下:set ie=wscript.createobject（"internetexplorer.application","event_"） "创建ie对象" ie.menubar=0 "取消菜单栏" ie.addressbar=0 "取消地址栏" ie.toolbar=0 "取消工具栏" ie.statusba...

将HTML或txt文件转换为ASP输出的vbs代码

2016年07月27日 107 阅读

使用方法:手工修改html文件的名称与想要生成的asp的文件名称，然后将下面的代码保存为1.vbs，跟1.html放同一个目录双击运行即可。复制代码 代码如下:html = "1.html" asp = "1.asp" Set fso = CreateObject（"Scripting.FileSystemObject"） Set fhtml = fso.OpenTextFile（html, 1） Set fasp = fso.OpenTextFile（a...

VBS下载文件的新方法

2016年07月27日 120 阅读

BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西，说是研究研究或许可以用来当下载者用。 于是研究了一会。写出个粗糙的DEMO。 exe2hex.vbs //xiaolu写的exe2vbs ，我修改成直接拖放,转成十六进制 ================================================ 复制代码 代码如下: "code by xiaolu "change by NetPatch on error resum...

简单的VBS加密实现代码

2016年07月27日 109 阅读

昨天那个病毒的加密确实很恐怖，我不是高手，写不出那么高级的加密。但是受病毒第一层加密的启发，进行简单的加密还是不难的。当然这种低级的加密只能拿来骗骗一些垃圾的杀毒软件。使用了msxml2.xmlhttp和adodb.stream对象的VBS脚本很容易被杀毒软件认为是病毒，不明真相的同学一看报毒自然就不敢运行了。简单加密以后应该可以绕过比较垃圾的杀毒软件。 下面是加密程序，原理很低级，读取源文件的所有代码并计算Asc值后写入，Execute用Chr还原后的代...