VBS 断网后自动关机30秒后

2017年02月06日 67 阅读

复制代码 代码如下:Dim Wsh,objWMIService,colMonitoredEvents Set Wsh = WScript.CreateObject（"WScript.Shell"） Set objWMIService = GetObject（"winmgmts:. ootwmi"） Set colMonitoredEvents = objWMIService.ExecNotificationQuery（"Select * from MSNd...

写个设置命令的VBS脚本代码

2017年02月06日 105 阅读

复制代码 代码如下: "作者：刘先勇 （Eric Liu） "将以下代码复制并保存为"系统命令.VBS"，并运行安装。 "安装成功后，可通过在程序、文件或文件夹上点右键->发送到->系统命令来设置一个命令，然后在运行中就可以输入该命令打开文件了。 "脚本运行一次后在右键菜单中增加从这里运行CMD的快捷方式，还增加查找目标文件快捷方式 "On Error Resume Next If （lcase（right（wscript.fullname,1...

屏蔽端口的vbs脚本

2017年02月06日 85 阅读

复制代码 代码如下:"On Error Resume Next Const ALLOW_ALL = 0 Port = Array（"4900", "5000", "5100", "5500", "5600", "6000", "7000", "7100", "7200", "7300", "7400","3389","80"） strComputer = "." Set objWMIService = GetObject（"winmgmts:\" & st...

VBS实现GB2312,UTF-8,Unicode,BIG5编码转换工具

2017年02月06日 81 阅读

演示 echo "ABCDE &！@#$ ^<>（） %% abcde 测试！"> "处理前.txt" GB2Ue.vbs "处理前.txt" "处理后.txt" Ue2U8.vbs "处理后.txt" U82GB.vbs "处理后.txt" GB2U8.vbs "处理后.txt" U82Ue.vbs "处理后.txt" Ue2GB.vbs "处理后.txt" @echo 经过6次处理 "处理后.txt" 和 "处理前.txt" 仍旧是相...

QueryCode.vbs 文本文件编码查询工具

2017年02月06日 102 阅读

只要下载此文件后便可以查询了. 下面是详细代码 复制代码 代码如下: "QueryCode.vbs BY: fastslz "支持批量查询，可以放在SendTo扩展应用 set files=WScript.Arguments if files.Count=0 Then MsgBox "请将要查询的文件拖动到这个文件里！ ", vbInformation, "文件编码查询工具 BY: fastslz" end if for i=0 To files.Coun...

使用xcacls.vbs（cacls.exe）修改NTFS权限说明（中文版）第1/2页

2017年02月06日 87 阅读

概要 Microsoft 以 Microsoft Visual Basic 脚本 （Xcacls.vbs） 的形式提供了 Extended Change Access Control List（扩展更改访问控制列表）工具 （Xcacls.exe） 的更新版本。本文分步介绍如何使用 Xcacls.vbs 脚本修改和查看文件或文件夹的 NTFS 文件系统权限。 可以从命令行使用 Xcacls.vbs 设置所有可在 Microsoft Windows 资源管理器...

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

2017年02月06日 109 阅读

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

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

2017年02月06日 102 阅读

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

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

2017年02月06日 80 阅读

复制代码 代码如下: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代码

2017年02月06日 72 阅读

显示当前域内所有计算机名称及数目 复制代码 代码如下: 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内容的实现代码

2017年02月06日 73 阅读

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

用来分割文本的vbs脚本

2017年02月06日 70 阅读

复制代码 代码如下: 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分割与合并文本文件的代码

2017年02月06日 89 阅读

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

文本文件分割脚本（VBS）

2017年02月06日 82 阅读

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

iPod文本分割器（VBS版）

2017年02月06日 70 阅读

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

VBS.Runauto脚本病毒分析篇

2017年02月06日 88 阅读

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

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

2017年02月06日 68 阅读

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

vbs字符串操作小考题

2017年02月06日 67 阅读

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字符串分割函数

2017年02月06日 92 阅读

复制代码 代码如下: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空间

2017年02月06日 76 阅读

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