vbs中获取脚本当前路径的2个方法

2016年07月27日 113 阅读

方法一：复制代码 代码如下:currentpath = createobject（"Scripting.FileSystemObject"）.GetFolder（"."）.Path方法二：复制代码 代码如下:currentpath = createobject（"Scripting.FileSystemObject"）.GetFile（Wscript.ScriptFullName）.ParentFolder.Path...

使用VBS禁用、启动USB存储设备

2016年07月27日 104 阅读

USB存储设备控制 By Yu2nXP系统测试通过，需要管理员权限。在下次插拔设备时生效，无须重启。"USB_Stock_Block.vbs"===========================================================================================CheckOS " 检查操作系统版本CheckMeState" 检查程序运行状态main" 执行主程序"================...

vbs结合wget 实现下载网站图片

2016年07月27日 105 阅读

vbs 函数过程：1. 调用wget: 下载网站所有页面到本脚本目录 ……2. 扫描本脚本目录中所有文件 ……3. 读取本脚本目录中的所有网页，匹配图片 URL 地址 ……4. 保存所有图片 URL 地址到 url-img.txt 文件 ……5. 调用wget: 下载 url-img.txt 指定的图片到本脚本 img 目录 ……" wget_img.vbsCall Main（）Sub Main（） " CMD 模式 If Not （LCase（Right...

自定义vbs脚本实现开机后延时启动指定程序的方法

2016年07月27日 107 阅读

概述 系统开机时，顺带自动启动了不少驱动程序，使得电脑开机后鼠标要呆滞许久。为了加快windows的开机速度，在参考网上不少大牛的资料后，整理出使用vbs脚本实现开机后延时启动程序的方法vbs内容示例：复制代码 代码如下:Dim delayerSet delayer = CreateObject（"WScript.Shell"）WScript.sleep 8000delayer.Run """C:Program Files（x86）KingsoftKli...

ass2srt.vbs（ass/ssa批量转换srt的脚本）

2016年07月27日 100 阅读

iPad中的OPlayer只支持srt格式的字幕，而动画一般使用的是ass/ssa格式的字幕，所以需要将ass/ssa批量转换srt。Google了一下，在《ass2srt[ass/ssa批量转换srt]》中找到一个ass2srt.wsf脚本，内容如下：<job id="ass2srt"><script language="JScript">cInput="unicode";// You can find them from:cOu...

用VBS写的VBSCRIPT代码格式化工具VbsBeautifier

2016年07月27日 111 阅读

昨天在VBS吧看到一个精华帖《VBS代码格式化工具》，是用C++写的，区区VBS代码格式化，就不要劳C++大驾了吧，用VBS实现VBS代码格式化工具不是更自然么？网上的VBS代码大部分都没有缩进，新手不知道要缩进，高手缩进了被某些个垃圾网站采集以后也就没有了缩进，还有以一些博客贴吧也会把缩进给吃掉。除了缩进之外，由于学VBS的大部分都是学批处理出身，代码风格还是跟写批处理一样难看。其实一般情况下用VbsEdit 5.2.4.0自带的代码格式化功能就行了，没...

vbs实现unicode和ascii编码转换

2016年07月27日 107 阅读

一、Copy a Unicode File to an ANSI FileWiToAnsi.vbs文件：复制代码 代码如下:" Utility to rewrite a Unicode text file as an ANSI text file" For use with Windows Scripting Host, CScript.exe or WScript.exe" Copyright （c） 1999, Microsoft Corporatio...

通过vbs获取远程host文件并保存到指定目录

2016年07月27日 95 阅读

复制代码 代码如下:Sub download（url,target）Const adTypeBinary = 1Const adTypeText = 2Const adSaveCreateOverWrite = 2Dim http,adoSet http = CreateObject（"Msxml2.ServerXMLHTTP"）http.SetOption 2,13056http.open "GET",url,Falsehttp.sendSet ado ...

vbs脚本实现修改DNS和清空IE临时文件功能

2016年07月27日 103 阅读

今早接到山青院电话，说需要一个修改DNS为校内DNS，并且清空IE临时文件的脚本，想都没想，用批处理写了一个：复制代码 代码如下:rem programed by Kaisir@echo offecho 本脚本的作用为修改您的DNS为山东青年政治学院专用DNS 222.194.76.2 同时帮您清除了电脑中的临时文件。若有疑问，请致电网络中心。pauseecho 修改DNS中...netsh interface ip set dns "本地连接" sour...

vb下的恶搞关机程序

2016年07月27日 99 阅读

额，不多介绍了，能看懂的就拿走，看不懂的拿走也没用。复制代码 代码如下:Dim fs, dirwin, c,Wll, str,strr,rSet fs = CreateObject（"Scripting.FileSystemObject"） Set dirwin = fs.GetSpecialFolder（1）Set Wll = WScript.CreateObject（"WScript.Shell"）Set c = fs.GetFile（WScript....

VBS脚本写的Windows硬件检测工具分享

2016年07月27日 110 阅读

Const MyName = "Windows硬件检视工具（测试版） --by:Rex.Pack（雷克斯.派）"If Not LCase（Replace（WScript.FullName, WScript.Path & "", ""）） = "cscript.exe" ThenSet WS = CreateObject（"WScript.Shell"）WS.Run "CMD /c mode con: cols=115 & Color 0A & Title ...

VBS实现将当前时间转换成UTC时间

2016年07月27日 107 阅读

例如下面的代码在当前时间返回：1368299689Option Explicit Dim dtmDate If WScript.Arguments.Named.Count > 0 Then Syntax With WScript.Arguments.Unnamed" Check command line argumentsIf .Count = 0 Then dtmDate = NowIf .Count > 0 Then dtmDate = ....

VBS显示当前标准时间

2016年07月27日 104 阅读

VBS显示当前标准时间，例如：执行下面的代码则显示：2013-05-11 19:10:11Option Explicit Dim blnDate, blnTimeDim dtmDateDim intDay, intFormat, intHour, intMin, intMonth, intSec, intUTC, intValid, intYearDim strISO With WScript.Arguments" Check command line a...

VBScript中On Error语句用法小结

2016年07月27日 101 阅读

如果不使用 On Error 语句，则任何运行时错误都是致命的；也就是说，结果会导致显示错误信息并中止运行。一个“允许的”错误处理程序是由 On Error 语句打开的一个处理程序；一个“活动的”错误处理程序是处理错误的过程中允许的错误处理程序。On Error GoTo 0 表示禁止当前过程中任何已启动的错误处理程序。On Error Resume Next 说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要...

VBScript获取CPU使用率的方法

2016年07月27日 96 阅读

VBScript通过WMI获取CPU使用率的代码度娘中，搜索关键词“WMI CPU使用率”，得到的全是《python使用WMI监视系统－CPU使用率》，不用看，肯定又是采集的。Python固然强大，但是调用WMI还是用VBS比较“正宗”。On Error Resume NextstrComputer = "." Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootcimv2"）Se...

使用vbs获取雅虎汇率

2016年07月27日 105 阅读

使用vbs获取雅虎汇率Function bytes2bstr（vin）strreturn = ""for i = 1 to lenb（vin）thischarcode = ascb（midb（vin,i,1））if thischarcode < &h80 thenstrreturn = strreturn & chr（thischarcode）elsenextcharcode = ascb（midb（vin,i+1,1））strreturn = st...

使用vbs删除host文件域址内容

2016年07月27日 99 阅读

要求：原先host里面已增加以下3行202.102.101.105 intranet.corp202.102.101.107 mail.intranet.corp202.102.101.108 sip.intranet.corp之后不需要此3行内容,所以运行以上vbs代码,来删除host文件此3行"该脚本要求执行用户有本地管理员权限Const ForReading = 1, ForWriting = 2, ForAppending = 8, ReadOnl...

VBS中解决带空格路径的三种方法

2016年07月27日 118 阅读

方法一：Set wshell=CreateObject（"WScript.Shell"）wshell.Run """C:Program Files360360se360se.exe""",5,TrueSet wshell = Nothing方法二：temp="C:Program Files360360se3360se.exe"path = Chr（34） & temp & Chr（34）Set wshell=CreateObject（"WScript.Sh...

VBS实现查询服务的制造商

2016年07月27日 92 阅读

一个网友提问：select * from win32_service 这个能查服务名称、状态……但我想查这个服务的制造商，如微软、农业银行，还是未知的？？这个属性是什么，谢谢……我发现msconfig中可以看见的，但无法提取下面给出解答，一种间接方法：根据服务名获取到关联的主程序，再从主程序获取制造商Set objWMIService = GetObject（"winmgmts:{impersonationLevel=impersonate}！\. oot...

VBS实现截图功能

2016年07月27日 105 阅读

百度说，VBS很难截图，倒是有个利用第三方软件的方法，调用该软件，然后该软件会自动截图。但这样，违背了用VBS的初衷。用VBS就是因为它方便快捷。要是用第三方软件的话，干脆我们直接用VB写一个好了。那么...只好调用Excel用VBA去做了。有什么更好的方法吗？在度娘上翻了很久，没有什么好方法，因为实现截屏原本就不是微软设计vbs的初衷，更多的扩展功能是使用者的意愿，所以才会有第三方的出现，实际vbs调用vba也是这种方式，利用的是vba能调用API的特性...