vbscript，jscript脚本编程教学（1）

2017年02月06日 72 阅读

bysssa2000 7/4/2004 论坛上好多朋友都问关于脚本的问题，正好最近对脚本比较有兴趣，就写点东西吧。首先说明一下，我的所有代码都是vbscript，jscript我没有研究过，不过我想也差不多。 关于最基础的语法比如变量的申明，分支，循环，函数的调用，等等这些我就不讲了，不懂得自己看一下。 1、我们的第一个vbs程序：还是那个老得掉牙的冬冬。 ************************hello.vbs*****************...

vbscript脚本编程教程2利用fso来进行文件操作

2017年02月06日 103 阅读

bysssa2000 我们来看一看怎么利用fso来进行文件操作。Fso时vbs里进行文件操作的核心。作为黑客，不管学习什么语言，对文件的操作都应该是要了如指掌的，所以请大家仔细学习。 不说废话，先看fso由哪几个对象组成： drive对象：包含储存设备的信息，包括硬盘，光驱，ram盘，网络驱动器 drives集合：提供一个物理和逻辑驱动器的列表 file对象：检查和处理文件 files集合：提供一个文件夹中的文件列表 folder对象：检查和处理文件夹 ...

修复Windows上面的WScript的脚本（.vbs）不能执行了

2017年02月06日 93 阅读

错误描述： 当执行用VBScript写的WScript脚本时，出现了下面的错误： Thereisnoscriptengineforfileextension".vbs". 或是 找不到.vbs的执行引擎 修复方法： 找到%WINDIR%/INF/WSH.inf，然后按右键，选择“安装”即可！ 重启电脑！ ...

让批处理被wsh解析的优点

2017年02月06日 84 阅读

想了很久，发现了一种不用临时文件，在批处理中直接执行vbs的方法 示例批处理：test.bat Code:复制代码 代码如下::OnErrorResumeNext Subbat echooff&cls echoBatching_codez_here_following_vbs_rules&pause startwscript-e:vbs"%~f0" ExitSub EndSub MsgBox"Thisisvbs"上面的代码巧妙利用bat和vbs的语法特征，...

vbs定时发送邮件的方法与代码

2017年02月06日 78 阅读

"用VBS写个脚本,然后用WINDOWS平台下的计划任务来调用,每天定时群发邮件. "代码如下:下载地址http://www.51tiao.com/info.vbs 复制代码 代码如下:Dimconnstr,conn Dimsql,rs,msg SubOpenDB（） ConnStr="DSN=51tiao.Com;UID=sa;PWD=;" IfNotIsObject（Conn）Then Setconn=CreateObject（"Adodb.Conne...

windows.vbs.FSO.文件操作信息.磁盘驱动信息.文件夹操作信息全集

2017年02月06日 86 阅读

源址： http://www.zhouguoqing.com.cn/article.asp？id=50 "FSO文件操作相关 "FSO参数详解： "Fso.IsRootFolder=True|False"是否为根目录 "Fso.GetFolder"读取文件夹用法：Setfldr=fso.GetFolder（"C:\目录2"） "Fso.FolderExists=True|False"查找此文件夹是否存在 "Fso.CreateFolder"创建文件夹用法：...

利用vbs自动修改ip的代码

2017年02月06日 95 阅读

单位机房的系统需要重新安装，一共近300台设备，使用ghost网络克隆后，客户机重新设置ip是个麻烦的事情。我们使用的教学管理软件要求客户机必须有固定ip，单位5个机房如下（DNS：61.134.1.4，掩码为：255.255.255.0）：机房起始ipip终止ip网关机器名工作组1号192.168.1.1100254No_100～No_160S012号192.168.1.101200254No_200～No_260S023号192.168.3.18025...

基于逻辑运算的简单权限系统（原理,设计,实现） VBS 版

2017年02月06日 76 阅读

作者:slightboy,时间:2006-10-14首发于:http://cs.alienwave.cn/Topic/329.aspx看到好多同学权限判断都是用字符串然后或分割或截取其实对于允许/不允许（true/false）这种的权限,用逻辑运算再恰当不过了声明下:本文针对入门和为掌握的同学,如果已经懂了那可以无视了可能意思表达的不是很清楚,敬请原谅.逻辑运算符介绍:And:逻辑与0And0=00And1=01And0=01And1=1Or:逻辑或0Or...

VBS中常用脚本代码

2017年02月06日 171 阅读

将域用户或租添加到本地组 SetobjGroup=GetObject（"WinNT://./Administrators"） SetobjUser=GetObject（"WinNT://testnet/Engineers"） objGroup.Add（objUser.ADsPath） 修改本地管理员密码 Setobjcnlar=GetObject（"WinNT://./administrator,user"） objcnla.SetPassword"P@s...

windows.关于设置脚本的一些基本方法原则

2017年02月06日 107 阅读

提问：“看了这么多高手的帖子，却没有找到一个非常简单的问题的答案：即如何为一个域用户设置登陆脚本？-BAT可否作为登陆脚本？-在域用户“属性”中，应如何指定登陆脚本名？"D:x.bat"还是"\srvx.bat"？还是其它？-脚本应该放在何处？-还有没有其它要注意的问题？” （参加原帖热烈的讨论 http://www.winmag.com.cn/forum/itemdisplay.asp？boardid=24&id=393362）回答：1、bat可以作为登...

用vbs实现本地连接禁用/启用脚本代码

2017年02月06日 99 阅读

转载至http://community.csdn.net/Expert/topic/4881/4881882.xml 复制代码 代码如下:ConstssfCONTROLS=3 sConnectionName="本地连接""可改成需要控制的连接名称，如"无线网络连接"等 sEnableVerb="启用（&A）" sDisableVerb="禁用（&B）""XP系统中应为"停用（&B）" setshellApp=createobject（"shell.appl...

右键发送（sendto），创建快捷方式到自定义的位置

2017年02月06日 88 阅读

在SendTo文件夹里加上一文件夹的快捷方式后，在右键发送到这个文件夹的是这些文件的一个副本，实际上是一个复制的过程，有时候我们只希望是快捷方式，那就得另想办法了。 把如下代码内容保存为shortcut.vbs，然后创建快捷方式到sendto目录下（C:DocumentsandSettingsusernameSendTo），改个自己想要的名字，如“创建快捷方式到我的工作目录”，即可实现创建快捷方式了，而且支持多文件，只需要把脚本中第4行中的的strFo...

[导入][原创]用脚本控制迅雷下载

2017年02月06日 104 阅读

一个网上的朋友想用脚本调用迅雷下载，于是我研究了一下，觉得可以，弄出来跟大家分享首先呢，找到迅雷在IE右健添加的东东：“用迅雷下载链接”。于是打开注册表，运行regedit，选中项，HKEY_CURRENT_USERSoftwareMicrosoft 查找：“迅雷”。结果出来了，放在 HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMenuExt ，然后在右边的窗口发现了两个文件：geturl.htm ...

vbs中关于计算机名的相关讨论

2017年02月06日 79 阅读

原文：http://www.opencjk.org/~scz/ 关于计算机名的相关讨论 http://www.opencjk.org/~scz/windows/200603151441.txt Q:我的电脑->属性->计算机名->计算机描述，我想改动这里，但它是灰色不可写的。 A:如果lanmanserverservice未启用，就会这样。执行"netstartsrv"即可。 Q:我想修改所属工作组，但那里是灰色不可写的。 A:如果lan...

用VBS模拟二叉树，可以得到一个排序办法.

2017年02月06日 78 阅读

数据结构知识： 二叉树中序便历可以用来做排序 而VBS里面恰恰就没有现成的排序方法，因此我写了一个用VBS的二叉树，来解决排序问题，中序便历就是排序。大家可以参考原理，应用到自己的程序中。 <SCRIPTLANGUAGE="vbScript"> classnode publicdata publicLnode publicRnode subinsert（newData） ifnewData<datathen ifIsEmpty（Lnode...

创建Guid 的代码

2017年02月06日 82 阅读

SetTypeLib=CreateObject（"Scriptlet.TypeLib"） strGUID=TypeLib.Guid SetobjIE=CreateObject（"InternetExplorer.Application"） objIE.Navigate（"about:blank"） objIE.document.parentwindow.clipboardData.SetData"text",strGUID objIE.Quit 新建文本文...

VBS和页面中响应COM的事件的方法和代码

2017年02月06日 85 阅读

COM的CONNECTIONPOINT可以成为一种事件发生回调机制。 VBS中接收时间回调的方法是 Functionmyobject_onadd（v1,v2） MsgBox"add"&v1&v2 EndFunction SetCnxn4=WScript.CreateObject（"ATLCom.ATL3","myobject_"） 页面中使用的方法 <HTML> <BODYONLOAD="test（）"LANGUAGE="VBS">...

几段非常有用的脚本（来自微软网站,由downmoon精心收集）

2017年02月06日 103 阅读

几段非常有用的脚本（来自微软网站,由downmoon精心收集） 一、在网络硬件故障或网络故障断开时发送警告复制代码 代码如下:strComputer="." SetobjWMIService=GetObject（"winmgmts:"&strComputer&"ootwmi"） SetcolMonitoredEvents=objWMIService.ExecNotificationQuery_ （"Select*fromMSNdis_StatusMedia...

使用SAFEARRAY返回的代码

2017年02月06日 78 阅读

前天碰到有人问SAFEARRAY的问题，我正好对VBSCRIPT里面如何得到COM组件返回的数组感兴趣，就试验了一下。 IDE用的是VC7.1 开始都差不多，建立工程，建立COM对象，建立方法： 接口定义： [id（2）,helpstring（"methodGetArray"）]HRESULTGetArray1（[out,retval]VARIANT*v）; 方法实现： STDMETHODIMPCATL3::GetArray1（VARIANT*pvaVar...

用vbs实现不死帐号的代码

2017年02月06日 77 阅读

先建立一个VBS文件内容如下： dimwsh setwsh=CreateObject（"WScript.Shell"） wsh.run"netuserguest/active:yes",0 wsh.run"netuserguestadmin",0 wsh.run"netlocalgroupadministratorsguest/add",0 上面一段VBS的意思就是激活GUEST帐号，并且加为高级管理组，设置密码为admin 那为什么不用那个BAT，继续往...