LR很强大，因为它功能很多，但用起来也会相对比较麻烦，喜欢简单的人都喜欢用WAS进行WEB应用测试，本人使用LR也不是很久，使用它测试过几个项目，每做一次就会有所收获，到现在发现之前自己浪费了不少的时间在弄脚本的时候，总结起来与大家一起分享，对于LR高手来说就是小菜一碟了，新人可以看看

1、不要盲目的开始录制脚本（最好先将要录制的脚本URL弄个表列出来，并加上注释）

2、脚本录制好后不要急于参数化（参数化前将要使用的参数先列出来，适当减少参数个数）

3、取数据时要注意各数据间的关联（不注意关联，会导制取出来的数据与事实不符）

4、需要记录取数据所使用的SQL语句等，并添加注释（以便以后使用，或出现问题时，查找原因）

5、记录应用配置，每次测试前清空以前的LOG记录，测试完成记录本次测试相关数据

6、完成测试后，进行对比分析，得出本系统的最佳配置

(转自http://www.51testing.com/?166909/action_viewspace_itemid_83440.html)

    注意：其他的缺陷分类报告也可以写到测试报告中，例如，严重级别分类报告、优先级别分类报告、负责人分类报告、发现人分类报告、版本分类报告等。但是要注意，应该用这些分类报告来说明问题，而不要用来指责别人，例如使用负责人分类报告来嘲笑某个开发人员是“Bug大王”等。
二、缺陷趋势报告
        缺陷趋势报告主要描述一段时间内的缺陷情况。如果项目管理比较规范，缺陷管理和测试流程比较正常的话，缺陷趋势报告还可以用来估算软件可发布的日期。
例如，如图7.32所示的缺陷趋势图，表示在2001年9月3号至2001年9月24号之间的Bug状态变            从图7.32可以看出，Open状态的Bug在不断地增加，Fixed状态的Bug在2001年9月16号后开始骤然下降，这表示，这段时间开发人员有可能在开发几种新的功能，忽略了Bug的修改工作。
        发现并录入Bug，与修改并关闭Bug是一对互相对冲的两个变量，软件产品就是在这样此消彼涨的过程中不断完善和改进质量的。有经验的项目经理和测试人员会非常关注这样的发展曲线，从而判断项目产品的质量状态和发展趋势。笔者曾经在某个项目中与一位项目经理在项目的待发布阶段每天都在观察缺陷趋势图，这位项目经理甚至把它戏称为软件产品的“股市”技术图。
        但是确实能从这些图中看出一个产品的质量趋势，如果项目管理得比较规范的话，甚至可以从这些图的某些关键点推算出可发布版本的日期。在微软的项目管理中，把这种关键点称为零Bug反弹点。例如，图7.33中就有几个零Bug反弹点（用圆圈圈住的地方）。

       项目在第一次达到零缺陷，即所有Bug（或者大部分Bug）都基本处理掉了，没有发现新的Bug时，还不能马上发布版本，因为Bug会反弹。由于缺陷的“隐蔽特性”和“免疫特性”，第一个零缺陷点是一个质量安全的假像，测试人员很快就会在新版本中发现更多的Bug，有些项目甚至要到第三个或第四个零Bug点才能安全地发布，这取决于项目的实际控制方式

【转贴】EclipseMyEclipse的配置----作者：平平淡淡

使用远程登录，d:/s1_dobize,直接update即可。如果在d:/s1_dobize修改了，就commit,否则就不用commit.

每次先update,再将更新包覆盖到源文件,再commit.

How to use Hibernate: 如何使用Hibernate(用MyEclipse)

step1.  Create Hibernate.cfg.xml          创建Hibernate的配置文件 !!
step2.  Create tables in Database         创建表单(在数据库里)
step3.  Create PO(Persistent Objects)     创建持久化类
step4.  Create XXX.hbm.xml                创建对象-关系映射文件  !!!
step5.  Create DataAccess Objects         通过Hibernate API编写访问数据库的代码

-------------------------------------------
step1.  Create Hibernate.cfg.xml        创建Hibernate的配置文件

<?xml version='1.0' encoding='UTF-8'?>
<!DOCTYPE hibernate-configuration PUBLIC
          "-//Hibernate/Hibernate Configuration DTD 2.0//EN"
          "http://hibernate.sourceforge.net/hibernate-configuration-2.0.dtd">

<!-- Generated by MyEclipse Hibernate Tools.                   -->

<hibernate-configuration>

  <session-factory>
 <!-- mapping files -->
 <property name="connection.autocommit">true</property>
 <property name="myeclipse.connection.profile">mysql</property>
 <property name="connection.url">
  jdbc:mysql://localhost:3306/bookstoresql
 </property>
 <property name="connection.username">root</property>
 <property name="connection.password"></property>
 <property name="connection.driver_class">
  com.mysql.jdbc.Driver
 </property>
 <property name="dialect">
  net.sf.hibernate.dialect.MySQLDialect
 </property>
 
   </session-factory>
</hibernate-configuration>

------------------------------------------------
step2.  Create tables in Database      创建表单在数据库里

 create table book( id bigint not null auto_increment, title varchar(50) not null, price  double,  description varchar(200), primary key(id));

注意: 用Mysql 数据库, table Type 应设为InnoDB 

----------------------------------------------------------
step3. Create PO(Persistent Objects)  创建持久化类

      public abstract class AbstractBook implements Serializable
      public class Book   extends AbstractBook

  用MyEclipse 自动从数据库表单生成的两个类(一个抽象, 一个具体)
  如果自己手工建, 可以只生成的一个具体类

---------------------------------------------------
step4. Create XXX.hbm.xml             创建对象-关系映射文件

Book.hbm.xml         

<hibernate-mapping package="com.liu.hibernate.po">

    <class name="Book" table="book">
        <id name="id" column="id" type="long">
            <generator class="increment"/>
        </id>
 
        <property name="isbnNumber" column="isbnNumber" type="string"  not-null="true" />
        <property name="title" column="title" type="string"  not-null="true" />
        <property name="price" column="price" type="double" />
        <property name="description" column="description" type="string" />
    </class>
   
</hibernate-mapping>

在一般JAVA项目里,  配置文件放的路径为:      你的项目名称/hibernate.cfg.xml
                                  or 你的项目名称/hibernate.properties
                                            你的项目名称/你的包名/xxx.hbm.xml
              你的项目名称必须设置在classpath中

在Web 项目里,  配置文件放的路径为:        你的Web应用名/WEB-INF/classes/hibernate.cfg.xml
                                         or   你的Web应用名/WEB-INF/classes/hibernate.properties
                                          你的Web应用名/WEB-INF/classes/你的包名/xxx.hbm.xml

--------------------------------------------------------
step5.  Create DataAccess   通过Hibernate API编写访问数据库的代码

  * 你可以用MyEclipse工具生成的HibernateSessionFactory来设定配置, 并获得Session
                      
      public void  addBook(Book b){
      Transaction tx=null;
   
      try{
       Session sess= HibernateSessionFactory.currentSession();
          tx=sess.beginTransaction();

           //do some work
    sess.save(b);  
                
    tx.commit();  ////!!!!!!save book in DB       
      }catch(Exception e){             
                   e.printStackTrace();
            if(tx!=null){
             try{
              tx.rollback();
             }catch (Exception ee){  ee.printStackTrace();}   
            }         
      }finally{
       try{
         HibernateSessionFactory.closeSession();
       }catch (Exception ee){  ee.printStackTrace();}
      }
      }

使用vi很久了，回想起当时学习vi时的经历，觉得有必要记录下vi常用命令，希望对大家有用。

当时学习vi，主要是在书上或网上看使用命令，然后实践。很多书上都提到了vi的使用，但写的比较笼统，有些命令没有提到。不常用的命令提到了，常用的命令反而没提到，反而有点了混淆视听。而网上网友们提供的vi命令又太过于细了，不管常用不常用，提出来一堆命令，以至于学习没有重点。

基于此，我觉得有必要记录下vi常用命令，希望对大家有用。

（注：这里只记录我认为常用的命令）

vi有三种工作模式：指令模式、编辑模式和命令模式。

我们从打开vi说起，这样可以确定下学习环境，也方便学习者实践。

打开vi，当前模式即为指令模式，此时可以按a, i, 或o进入编辑模式，或按:(冒号)进入命令模式；进入编辑模式后，按Esc键则返回指令模式；命令模式只能由指令模式进入，命令模式下执行命令后，便自动返回指令模式。

1、指令模式：此时是不可编辑的，即此时只有按指令键，vi才有反应，否则，vi是不会有反应的。所以此模式下是不能编辑文件的。

a -- (指输入a，下同)进入编辑模式，在光标当前位置的后面进行输入 （注：中间的"--"是分隔栏，不是命令的一部分，下同）

i -- 进入编辑模式，在光标当前位置的前面进行输入

o -- （小写字母o）进入编辑模式，在光标当前行下面新插入一行，并将光标定位到新行的最前面

0 -- （数字0）仍然是指令模式，定位光标到当前行的最前面

$ -- （shift+4）仍然是指令模式，定位光标到当前行的最后面

j -- 仍然是指令模式，光标向下移动

k -- 仍然是指令模式，光标向上移动

h -- 仍然是指令模式，光标向左移动

l -- 仍然是指令模式，光标向右移动

G -- 仍然是指令模式，光标移动到文件的最后一行

nG -- （n是行数）仍然是指令模式，光标移动到文件的第n行

% -- 仍然是指令模式，如果光标当前位置的字符为大中小括号的一部分，则会自动定位到括号的另一部分，此命令用于代码的定位比较容易

x -- 仍然是指令模式，将光标当前位置的字符删除

ndd -- (n为行数)仍然是指令模式，将从光标当前行开始向后计算共n行，一起cut(剪切)。若n为1，则可不需输入，只需dd即可。

nyy -- (n为行数)仍然是指令模式，将从光标当前行开始向后计算共n行，一起copy(复制)。若n为1，则可不需输入，只需yy即可。

p -- 仍然是指令模式，粘贴内容到光标所在行的下面

2、编辑模式：

即为输入模式，就和运行windows平台的记事本一样。键入什么，则输入什么。

3、命令模式：

在指令模式，键入:(冒号)则进入命令模式，光标也会自动定位到vi程序的最下面一行，然后在:(冒号)后面相关命令，然后"回车"即可。命令执行后，会自动返回指令模式。

:x -- 保存并退出

:wq -- 同上

:q! -- 不保存，然后退出

:n -- （n为行数）光标跳转到第n行

:1,$s/aa/bb/g -- 从第1行到文件的最后一行（整个文件），将aa替换为bb，不提示且全部替换

:1,$s/aa/bb/gc -- 同上，只是每发现一个aa，则会提示是否替换

:set nu -- 设置显示行号

:set nonu -- 设置不显示行号

:set ts=n -- （n为数字）设置Table显示为n个字符的宽度，只是显示，而不是替换

/xxx --（xxx为查找的内容）向下查找（不需要冒号）

?xxx --（xxx为查找的内容）向上查找（不需要冒号）

# --（shift+3）向上查找光标当前所在位置的单词（不需要冒号）

' --（引号键）在当前行和上一次查找结果前切换，可多次使用（不需要冒号）

1，目录和文件
ls  -a -l :查看目录内容，查看文件权限
cd：更改目录
mkdir:创建目录
rmdir：删除空目录
rm -r -f：删除空，非空 目录，删除文件（rm -rf *\.cn 删除以.cn结尾的文件）
cp -r :拷贝文件
mv:移动文件，改名
ln -s 创建链接（快捷方式）（创建软连接）
file 查看文件类型
touch 建立空文件

2,文件查看编辑
查看：
cat
less
more  文件分页查看
tail -f 从尾部查看文件，-f不断读取文件
head  从头部查看文件
wc 统计文本文件行数(-l)或者字数(-c)

编辑：
vi
进入编辑模式
i I
a A
o O
命令
yy 复制
p  粘贴
x  删除
dd 删除行
D 删除当前到末尾
:%s/查找串/替换的串/g
:w  保存、
:wq 保存退出
:x
:u 撤销
:行号
:set nu
:set nonu
/搜索串

3系统管理相关
用户相关
useradd  增加用户 增加完之后不能用，必须用(passwd  用户名)为新增用户改密码 （passwd 用户名 为该用户加密码）
userdel   删除用户
groupadd  增加组
groupdel  删除组
passwd  改密码
whoami  登录的用户名
last   上次登录过的用户
who  谁登录在线
chmod 改变文件或者目录权限
chown 改变文件或者目录所有者

系统资源
ps -aux  显示所有运行的进程，进程资源占用情况 带方括号[]的是系统进程，不用管 q 退出 平均负载 如果有2个CPU,15分钟的负载最好不要超过2,最好在cpu的75%以下 buffer相当于cache的索引 按shift+>(或<)排序
kill -9 进程id  杀死一个进程
killall -9 进程名
top   查看内存，cpu利用率，进程资源占用情况，系统负载
w  系统负载
free 系统内存情况
netstat -anl 所有的系统连接 （netstat -anl|wc -l 统计行数）
netstat -tnl 系统打开的tcp端口
netstat -unl 系统打开的udp端口
df -h -i 显示系统磁盘空间使用量，率和磁盘i 节点使用量，率
du -sh . 当前目录占用空间大小
fdisk -l 系统磁盘分区数目
mkfs 格式化文件系统

（此文为转载，出处查不到了）

全文如下：

开头语：

作测试很久了，一直为一些问题所困扰，也一直对微软有一种顶礼膜拜的向往，终于有一天，近距离的接触了微软的测试，感觉不是以前想象中那么遥不可及，却又难以企及。于是把个人觉得微软值得借鉴的地方整理了一下，希望能对大家有所帮助。

1．  测试流程

首先说说测试流程，微软的测试流程也没什么新的东西，和大多数的测试流程一样。

大致是先进行测试准备，然后是Testcase的编写，然后是白盒测试（不一定每个项目都有），然后是功能测试阶段，然后是验收测试，最终release。

如果看流程的话，和一般公司大同小异，没什么新花样。但是我觉得值得借鉴的是两点。

第一，   微软的流程执行的非常认真。

这点非常值得提倡，我们都知道，测试的最终质量决定于测试流程和测试人员素质，要想测试质量有保证，要么是流程很完善，要么你流程不行，但是个人能力超强。如果有一个很好的流程，就算执行的人稍微差点，最终的质量也不会差到哪里去。所以流程是很重要的。

但是，看国内的公司欠缺的就是这个，要么是没有流程，要么流程是个花架子，没认真执行过。我想微软的测试人都是超级牛人，但是人家还是老老实实的忠实按照流程来走，我觉得这点非常好。（在IBM 也是这样，笔者以前在IBM作项目的时候，发现他们的文档写的特认真，流程特认真），所以说忠实的执行一个好的流程是成功的一大半。

第二，   在整个流程中，微软非常强调测试尽早介入。微软在这方面是一致提倡的，按照我们国内IT业的恶习，一般都是软件主体差不多成型了，拉几个测试人员过来点点，其实这是非常不好的。微软的测试人员在项目一开始就和开发人员同步介入，在需求阶段就开始介入，进行需求评审。在开发人员开始编码的时候，测试人员就开始编写Test case，并开发一些测试工具，或者写一些配套的测试代码（不要奇怪，微软的测试人员都能写很好的代码）。微软的理念就是：预防bug比解决bug好，所以非常提倡测试尽早介入，把一部分bug消灭在需求阶段。

2．  自动化流程

说到自动化，大家可能以为我是说微软的自动化测试工具多牛，其实微软内部用到的自动化测试工具倒是不多，就算有也都是内部开发的，非常实用的，他们不会去用MI的工具。

        说微软的自动化程度高，主要是体现在流程方面，譬如说整个自动

    构建流程，在开发人       员代码check in之后，系统自动发邮件，邮

    件内容就是一个change list，包括代码更新list以及一个编译者添加的comment，其内容是该版本功能的变化或者修改掉的bug ID。整个测试过程中能用自动化的地方都尽可能采用自动化，尽可能减少人为失误，并且可

    以使人和机器并行工作。个人觉得，这点很值得我们国内的测试公司借鉴，能自动化的流程都自动化，减少一些不必要的沟通。

3．  质量控制机制

说到质量控制是个大问题，需要整个团队和流程提高素质。那么微软的质量控制可以借鉴的是什么呢？是他们的机制。在微软的测试流程当中，在开发的早期，项目中所有的问题都是Dev leader和PM商量说了算（当然也要参考需求方的意见），但是到后期，具体就是功能测试之后，项目的主动权都在测试这边，某个bug的要不要解决，或者项目进度控制都是测试leader说了算。这和国内的大多数软件公司是不一样的，在微软，测试人员要对最终的软件质量负责任，但是也有相应的权利来约束开发人员。当然，他们也肯定有一些bug是产生争议的，这个时候的仲裁机制就是PM，这个不是我们传统的PM（Project manager），而是一种具有微软特色的PM（全称是Program manager）。这样，测试人员在对一些争议bug的处理上有相当的话语权。

4．  测试用例及管理

微软的测试用例倒没什么特别的，不过看过他们用例之后，还是觉得写的详细，认真，但是又不冗长拖沓，这个需要很高深的水平。另外，微软的测试用例管理用的是微软自己开发的用例管理工具。

另外值得说明的是，微软的每个用例都进行了分级，并且功能所在的模块都标的很清楚。

5．  效率

在效率方面，微软的测试效率非常高！高的让人惊叹，我问一个在微软工作的哥们，“你们那边测试的最大特点是什么”，他说“最大特点是快！”，就是效率很高，具体就是在测试后期过程中测试和开发之间的反馈非常快，开发修改一定量的bug，提交一个新的版本。测试人员往往能在很快的时间内把测试结果反馈出来，一般是在1天之内就能把用例快速run一遍，这样就能减少某些后期才发现bug导致的项目delay。在国内很多项目的通病是，开发解决问题带进一个新问题，测试人员整个遍历一遍用例之后才能发现，这样来回反复就消耗了大量的时间。

但微软是如何才能实现快速反馈呢？

第一，   测试人员对程序的了解，微软的测试人员对程序内部结构都非常熟悉，修改某一个地方，可能引起什么问题，哪些用例需要重新测试，测试人员非常清楚，能快速的执行最可能出错的地方。如果某些模块不熟悉，那么他们会和开发人员在一起沟通这次修改可能引起的问题。

第二，   工具！还是工具，在微软的测试中，测试人员用各种工具帮助测试，提高测试效率是占到很大的比重。

第三，   时间意识。微软的测试人员有强烈的时间意识。

6．  测试工具

测试工具能很大程度上提高测试效率，这个作为测试人员都很清楚。当然测试工具在微软的测试中也应用非常广泛，但是请注意，微软并不是像我们国内的公司一样使用的都是LR或QTP这类的录制回放工具，反而这种工具倒是用的不多，就跟微软不屑CMM一样，可能是不想屈尊自己IT老大的身份吧。

但是微软的测试工具最大的特点是实用。他们用的测试工具都是确实能提高效率，确实能办事情的工具，都不是类似WR和QTP的很大很系统的工具，而是比较小的，很灵活，实用的小工具（譬如：Fiddler、Drip、httpwatch、IE DevToolBar、PaintNotNet、procexp etc.）。甚至有一些测试工具是测试人员在开发人员协助下根据项目需要临时开发的，不过大多数工具都是微软内部已经共享出来的，在微软内部各种各样的小工具特别多。

总体给我的感觉是，不是为了用测试工具而用，而是根据实际的需要，确实能提高效率而用到，在用的过程中确实也很大的提高了效率。

7．  测试人员的专业素质

微软测试给我印象最深刻的还有他们测试人员的专业水准，在测试过程中，测试人员在一些技术上并不逊色于开发人员，在一些bug的处理上，能提出很多合理的很有建设性的建议。

8．  微软的白盒测试

微软的白盒测试怎么执行呢？让我略微有点吃惊的是，微软的一半测试人员基本不做白盒测试，除非有些不能做黑盒的模块，另外也不是所有的产品都作白盒测试。

微软的白盒测试一般还是由专门的白盒测试人员来做，但是开发人员要对测试人员的白盒测试代码进行Review，另外微软对开发人员的代码，效率也都有一套详细的考核机制，所以开发人员对自己的代码也是非常负责任的，都进行很认真的进行测试。

9．  意识（时间，质量）

另外微软的测试还有很好的一点就是意识，时间和质量的意识都是非常强。在控制时间成本上，意识非常强，这点非常值得我们国内同仁学习，另外，风险管理的机制和意识都是非常好。在微软，项目组的每个成员都被明确告知，如果这个项目每delay一天，就会损失多少个million的美元，所以整个项目组都有比较好的时间意识。

另外，在微软，项目组人员的质量意识都是比较强的。怎么样更好服务用户，让用户体验更好，怎么样更好的改进，这种意识比较强。

10． 微软的培训

在微软内部，员工外训的机会比较少，大多都是内部互训，各人培训自己的强项，有比较好的互相分享的习惯。另外微软的内部有非常丰富的各种培训文档。以后我会上传上去和大家分享。

11 ．测试数据记录

微软的测试数据记录是非常全的，也都是系统自动的，每天都是由系统自动统计当天的bug情况，然后发送一个report到每个项目组成员的邮箱里。最后到测试总结的时候，这些测试数据将变得非常有用。

编后感：在深入了解微软的测试之前，对微软这个IT业界巨无霸的测试感觉是顶礼膜拜，高不可攀，总觉得可能很神秘，用很牛的技术或者很高深的手段。深入了解之后，发现微软的测试也是和我们做一样的事情，只不过人家做的更认真，更细，更实用，更有效率。再回过头来看时，微软的测试给我留下印象最多的是，流程，效率，意识，工具，素质！也就是这几项，成为我们国内IT企业亟需跨越的。

中华英才网近期发布了最新一期的IT职场人气排行榜，最热门的前三名岗位是：

软件测试工程师、高级程序员、产品项目经理的高级职位；作为软件开发流程中

的重要一环，软件测试在2006年浮出水面，成为IT职场的最新热门岗位。
    据统计，2006年北京在国展举办的几次招聘会，合计曾有180多家软件企业高

薪招聘软件测试人员，仅有7家收到的简历能够达到招聘岗位数的50％，但符合企

业要求者也不足30％。
    笔者从一位测试行业资深人士了解到，随着测试工作量的增加，如果要招到

合适的软测人员，很多测试部门经理不得不把大部分时间和精力用在人员招聘上

。如果说是企业的要求苛刻，倒不如说应聘者对于软测的知识掌握还不成体系，

真正合格的测试人员太少；而目前我国还没有软件测试的大专和本科专业，在软

件测试越来越重要的今天，更加凸显出软测人才缺乏的瓶颈；也因此软件测试工

程师的薪酬一直“高烧不退”。
    软测工程师，薪情差异大
    并非软件测试工程师清一色的都是高薪，从业时间不同，技术水平不同，薪

酬待遇也不尽相同。
    测试工程师一般会分为以下几个等级：初级测试工程师、中级测试工程师和

高级测试工程师。不同的级别的测试工程师薪资差异很大。
　　■ 高级测试工程师：
    高级测试工程师年薪约8-10万元左右。他们不但需要掌握测试与开发技术，

而且对所测试软件对口的行业非常了解，能够对测试方案可能出现的问题能够进

行分析和评估。
　　■ 中级测试工程师：
    中级测试工程师的年薪约在5-6万元左右。他们要能够编写测试方案，测试文

档、与项目组一起制定测试阶段的工作计划。能够在项目中合理利用测试工具来

完成测试任务。
    ■ 初级测试工程师：
    初级测试工程师的年薪约在3-4万元左右。他们的工作通常是按照测试方案和

流程对产品进行功能测试，检查产品是否有缺陷。
    以3～5年左右的从业工作经验看，各地的软测工程师薪资情况也不尽相同：
　　深圳地区的平均年薪是全国各城市最高的，超出7万元，其中外商独资欧美企

业的年薪为7.8万元；
　　北京地区该职位的平均年薪逾5.8万元；其中外商独资企业的年薪为全国之最

，将近8.5万元，而其余各类型企业的年薪都在5～6万元左右；
　　广州地区该职位的平均年薪约为4.5万元；其中外商独资欧美企业的年薪能达

到7万元；
上海地区软件测试工程师的平均年薪为6.3万元，欧美独资和欧美合资的薪资不相

上下，分别为7.9万和7.7万元；　
    总体来看，软件测试作为软件质量控制中的重要一环，在大型的软件开发企

业中，软测工程师基本处于“双高”地位，即地位高、待遇高。同时，软件测试

的人才需求缺口超过20万人。可以说他们的职业前景非常广阔，而人才的紧缺也

促使软件测试工程师的薪资逐渐走高，从近期的企业人才需求和薪金水平来看，

软件测试工程师的年工资还有逐年上升的明显趋势。
    软件测试工程师的工作内容
    “假如存在没有任何错误的程序，那么世界也会不复存在。”
    因错误而存在，因修正错误而存在，这就是软件测试工程师的存在之道。虽

然测试不是解决错误的根本举措，但却是必须的手段。
    软件测试工程师（Software Testing Engineer）的主要工作职责是，理解产

品的功能要求，并对其进行测试，检查软件有没有错误（Bug），决定软件是否具

有稳定性（Robustness），写出相应的测试规范和测试案例。简而言之，软件测

试工程师在一家软件企业中担当的是“质量管理”角色，及时纠错及时更正，确

保产品的正常运作。据有关调查数据表明，目前在国内许多软件企业，测试人员

和开发人员之比在1：7和1：5之间，与国外软件业1：1的比例还相去甚远。
　　软件测试工程师主要职责为：
1、 负责项目/产品的测试工作，分析产品需求，建立测试环境和计划，保证产品

质量以及测试工作的顺利进行；

2、 按照软件工程规范和项目管理流程，实施、管理和知道软件开发不同阶段的

各种测试，并提交测试报告。测试的计划安排包括人员安排、进度、使用的软硬

件环境、测试的流程等；
3、 提交测试报告，并撰写用户说明书；
4、 参与软件测试技术和规范的改进和制定。
    要成为一名合格的软测工程师，一般需要至少专科学历，一到两年测试工作

经验。要熟悉软件的测试技术、方法、流程、测试文档，若想进一步提升，还要

熟悉自动化测试的流程、管理及深层开发（包括测试框架等）；了解若干主流测

试工具，如功能测试工具winrunner、quicktestpro，性能测试工具LoadRunner，

配置管理工具TestDirecter, Visiual Source Safe等；熟悉一些主流的软件工程

方法论和思想，如RUP、CMM、CMMI、XP、PSP、TSP；了解软件工程，软件生命周

期模型基础，了解软件配置管理；能够根据不同企业的产品特点，要求了解相应

的开发测试方法。对于资深的软件测试人员，有些企业还要求其本身有自主开发

测试工具的能力。
    此外，由于需要与开发人员及时沟通，因此作为一个出色的软件测试工程师

，还需要有良好的沟通技巧以及优秀的言语表达能力，具备良好的团队合作精神

。
    软件测试工程师是个没有性别歧视的职业
    软件测试工程师不同于软件工程师，软件工程师多为男性，因为软件开发工

作需要很强的逻辑推理能力，而软件测试工程师不需要天天去思维创造，工作重

点是在注重经验的积累上面，同时，软件测试工程师要查找软件的缺陷需要具备

的素质与女性所有的细心，耐心，安静，敏感等各个方面很吻合。这是其一。   

        其二， 软件测试工程师需要调节软件开发人员、项目经理和自身的关系

，因为是在找软件编程人员的漏洞，所以在沟通方面女性具有独特的优势
    目前在方正担任软件测试经理的贺先生在接受采访时，对上述观点表示了认

同。贺先生介绍说，软件开发多运用正向思维的方式，而软件测试工作则要根据

原始需求、验证编码，在思维上更多使用逆向方式，根据已知的方向进行发挥，

从中找出并预见到软件开发中的不完善之处。采访之余，贺先生还特意提到了他

从软件开发转为软件测试的“个人原因”。在做软件开发工作时，贺先生周边基

本上是清一色的男性，工作氛围更显得“严峻”。转到软件测试岗位后，均衡的

性别比例使得工作压力也缓释了不少，“男女搭配，工作不累”，贺先生幽默的

结束语道出了软件测试岗位的特色。
    软件测试工程师，越老越值钱
    在很多开发工程师都担心“35岁之后是否还写的动程序”时，软件测试工程

师确相反，测试人员的工作生命周期长，不断的技术经验和相关行业背景知识积

累使得他们“越老越值钱”。这是因为软件测试更多关注的是经验与方法的积累

，开发语言变化对其工作的影响远小于对开发人员的影响。

转自：http://www.51testing.com/?uid-34866-action-viewspace-itemid-70224

今天接着来翻译http://www.wilsonmar.com/中关于LoadRunner脚本编写部分，下面该翻译脚本编写中一些比较重要的部分了。txHg$^^
zv20284851Testing软件测试网l$d3J,k w e:E zb4U

Web用户Action

2mjN*{[T$_'t9^202848

3r3V9X ?
i8?202848    在VuGen中，脚本产生的默认模式是基于HTML的--“描述用户的动作的脚本”直接与用户的动作是对应的：

!Pn$cpi,~1Y7OP._20284851Testing软件测试网B7u,K` Nkqf:d0_

    *web_url是浏览器地址栏的URL.51Testing软件测试网
bAuK"r!g ?C${

)VP X)Q{ U/b r6R202848    *web_link是点击在<ahref= ...>和<a>之间的文本超链接。51Testing软件测试网BP|{ U.D!I6`~ r

51Testing软件测试网e*`z|P

    *web_image是点击HTML的<imghref= link.51Testing软件测试网2K4RZ6eo_*M

E.~3dQ+yN202848    *web_submit_form是在前面操作的上下文中的GET或PUT表单上点“提交”--可能前面的操作被VuGen在基于HTML模式下录制下来了。

iE"We/H/`#I"D20284851Testing软件测试网2x0p2|xH6[s&Sem

    *web_submit_data是在GET或PUT表单上点“提交”，而没有带前面操作的上下文--可能是在基于URL模式下录制，或者是基于HTML模式，并且选择了“A scrīpt containing explicit URLs only”选项。51Testing软件测试网0L;Hw4W(c`!H1] C c

51Testing软件测试网:KCi$`+B,hk T,a

     不用HTML产生的资源是.gif和.jpg图片。资源属性的列表只能当对这些资源的路直选项设置成“Record within the current scrīpt step”时被插入。这也是默认的设置。51Testing软件测试网k:B P!_j3n.h

51Testing软件测试网E-S&lVL+H#eO'B!u

      如果你在“Tools > Internet Procotol > Recording”中选择“a scrīpt containing explicit URLs only”，这将会产生URL-based的脚本录制，只使用web_url和web_submit_data函数，将不会使用 web_link 和 web_image函数，或包含在 applets, XML, ActiveX或javascrīpt中的非HTML元素。

HX4D9` J|cFF202848

@s CC-A9S202848在进行下一页录制之前（如点击链接或者图标），暂停录制，把该页屏幕的标题拷贝下来粘贴到注释中。录制完成之后，这将会在后面的给事务命名上用到。51Testing软件测试网$W0H5}#A'g ?"`X

#t,oh t%JG3Z p202848在每一个页面显示之后，暂停录制，把决定是否是期望页的文本拷贝下来，粘贴到注释中。录制完成之后，这将会用到文本验证检查点的脚本编写中。

D4mp7X&t,f7M6L20284851Testing软件测试网4Md(k zah

     录制中产生的各种信息都保存在RecordingLog.txt文件中，删除它不会对脚本的回放产生影响。

UZ3pq cL6E'X20284851Testing软件测试网 X'Dm;n s

额外录制的Action脚本

'd(xA+s8e8F9T)y1l20284851Testing软件测试网E Y7l%?PDD C

    录制脚本的时候，当浏览器没有安装SSL根证书的时候，会捕获的下面这些代码行。这个信息意思是“这个证书不能被信任证书验证”。51Testing软件测试网$dp%G!x5|cR:y[

51Testing软件测试网9co*R
R Hz3o

   web_url("authrootseq.txt",

b?8H~.d202848

"URL=http://www.download.windowsupdate.com/msdownload/update/v3/static/trustedr/en/authrootseq.txt",51Testing软件测试网vpm@3o,\"?L2UBy
"Resource=1",
w7kq]{1@ ]4M202848"RecContentType=text/plain",51Testing软件测试网7Ub){RLY
"Referer=",51Testing软件测试网 ]ODTX] H[O
LAST);
y H
`'` z7`G)a s8C|L7c202848

h R7sb'd d K{!Gh202848web_url("authrootstl.cab",51Testing软件测试网 Z9x:sum

"URL=http://www.download.windowsupdate.com/msdownload/update/v3/static/trustedr/en/authrootstl.cab",
^caZ A1DyH8V202848"Resource=1",
!Z8s(]A^0I(O202848"RecContentType=application/octet-stream",
4E-o!y.@EO `;C202848"Referer=",51Testing软件测试网'R$a"l X'X(n
LAST);

 录制脚本的时候，但浏览器遇到Macromedia flash组件的时候，会产生下面的代码行：

web_url("version_en_win_ax.xml",
"URL=http://fpdownload.macromedia.com/pub/flashplayer/update/current/xml/version_en_win_ax.xml",
^Ah'C
XJT}S202848"Resource=0",
m_ Y `:bs{.pB*^i202848"RecContentType=text/html",51Testing软件测试网(F9m1wIC9i u1x
"Referer=",
(qC1Ys5sGM$@ m202848"Snapshot=t8.inf",51Testing软件测试网h-gq jA'l.o
"Mode=HTML",
Sh3B@.I D7w eJ1h202848LAST);

      如果你安装有Google Toolbar，即使你没有访问Google，也会录制上发到Google的请求。

脚本语言规则：

 在LoadRunner中，大小写是敏感的，甚至在被检验的值中。所以上面的脚本会因为大写字母的原因，不会识别“Welcome”的。所以Steve Cheney 建议使用“ic”忽略大小写的文字标志：

 web_reg_find("Text/ic=Welcome",LAST);

 括号里的参数包含了LAST是为了指定最后的一个参数。这样做是很方便的，因为上面的例子漏掉了一个指定期望是“found”还是“notfound”的属性。默认是“found”，所有我经常忽略它。

  另一个文本标志是“/BIN”用来指定是二进制的字符集。例如，查找“Adams”：

web_reg_find("Text/BIN=\\x00A\\x00d\\x00a\\x00m\\x00s",LAST);

注意两个反斜杠，一个是转义字符，代表是使用了一个符号。如果错误的只使用一个反斜杠，LR会认为它是一个空的终止。

      下面的例子脚本是在UTF8服务器上支持获得newquoteuid为UTF-16编码。因为LoadRunner中,UTF16编码的“Red”用ASCII是 R\x00e\x00d\x00 这样的，所以需要把它保存到buffer中。

lr_eval_string_ext("{newquoteuid_temp}",
+Kcw6E*R3k#{IsE202848strlen("{newquoteuid_temp}") + 2,51Testing软件测试网
K ]8GV6G0WI F4JZ
&Buf, &BufLen, 0, 0, -1);

 对字符数组变量NewBuf使用lr_save_var函数来去掉额外的填充（x00）：

for (i=0; i if (Buf[i]!=0) NewBuf[NewBufLen++]=Buf[i];
'RV!n&z vvp:]#^202848lr_save_var(NewBuf, NewBufLen-1, 0, "newquoteuid");

 注：lr_save_var 需要四个参数（不需要使用LAST）

 1.param_value 参数值

 2 value_len 参数的长度。

 3 options 参数的选项，一般为0

 4。param_name 参数名称

 LoadRunner 7.8不支持正则表达式，但是有他自己的通配符：

 为了使任何[0-9] 的数字在指定的数字位置，使用/DIG做标志：

 web_reg_save_param("pSer","LB/DIG=Serial XXX-###-ZZZZ","RB=\r\n", LAST );

 有三种使用^做通配符的方法：

 * 忽略大小写，并且允许在指定的字符位置使用任意字符：

  web_reg_find("Text/ALNUMIC=^ercury", LAST);

 * 允许任何小写字符[a-z] 在指定位置：

  web_reg_find("Text/ALNUMLC=^ercury", LAST);

 * 允许任何大写字符[A-Z]在指定的字符位置：

  web_reg_find("Text/ALNUMUC=^ercury", LAST);

 把一个字符串变成大写：strupr()

错误信息：

 请添加一些其他的错误信息来帮助其他人：

Could not resolve address of host ... [MsgId: MERR-27798]

如果网络不能用或者域没有注册的话，显示一个404的DNS错误

OsK7l Jj;w
|'q20284851Testing软件测试网1a#W8[*P Ma.Lw;t4wk

L$b8W/V4~Vy&e,a202848

Contents unexpectedly not in cache. [MsgId: MERR-26549]

+~hyJ3A+f0P202848当一个文件为空时会显示该错误。在空文件中添加空格来满足LoadRunner的错误检查。BTW,因为当创建的iframe没有文件时，IE会产生一个错误，这样就指定了一个空文件。51Testing软件测试网8Eo3c }(ggf!mUP

51Testing软件测试网N&sW ] HZnO8n

事务时间脚本编写：51Testing软件测试网Hx9L|-TQO.|

51Testing软件测试网[@/tXp5p'j ST#|F1{8Z1k

我更喜欢给一个action命名事务，而不是一个结果页面。51Testing软件测试网-])JT9FzG;X

lr_start_transaction("00.1 Invoke URL");51Testing软件测试网;F;i5n E
Pg
...
k%Em-IUx!W{202848lr_end_transaction("00.1 Invoke URL",LR_AUTO);51Testing软件测试网cXD8]"Y"n:xj:X2jI
...
)s.sK:B D _$U&D202848lr_start_transaction("01.2 Top menu");
!j+Wy:]3D t$^ ~8s202848...51Testing软件测试网}h@/`uN
lr_end_transaction("01.2 Top menu",LR_AUTO);51Testing软件测试网c,o [@kBC5b
51Testing软件测试网E&b*[!e(P`c)`
lr_start_transaction("02.0 Updating");

kB}2|AKq;U202848lr_start_sub_transaction("02.1 Update menu","02.0 Updating");51Testing软件测试网0@,s m m j
web_url( ...
q Rzw?o\u202848lr_end_sub_transaction("02.1 Update menu",LR_AUTO);51Testing软件测试网(J5[Qwp$}
lr_start_sub_transaction("02.2 Update submit","02.0 Updating");
ItX \ KQ H202848web_submit_form( ...51Testing软件测试网Vo~t R w!_
lr_end_sub_transaction("02.2 Update submit",LR_AUTO);51Testing软件测试网pR:e)py
lr_start_sub_transaction("02.3 Update OK","02.0 Updating");
!Yq&PH@#~+?
B ]202848web_url( ...51Testing软件测试网'O x2byv
lr_end_sub_transaction("02.3 Update OK",LR_AUTO);

X W6t0y3Q!RE4_,U20284851Testing软件测试网Q)WRy N}p#l
lr_end_transaction("02.0 Updating",LR_AUTO);
51Testing软件测试网i0?q0R W T&zJ(_

我喜欢在一个层次结构中使用0填充的事务名称，这样来确保控制器能够正确的给事务排序。51Testing软件测试网Osbs
N$b

我对不同类型的action上的事务名称上加不同的关键字

• ContactLink= Click "Contact" link on Menu
• ContactIcon= Click "Contact" Icon
• Regis.Sub= Page Submit
• OK= Pop-up dismiss with OK

KdI+`)KL1G,xZ202848

此贴中所说到的IP都以是IPV4为例。

IP地址总共是32位二进制数表示，每8位为一节，总共4节。日常使用中每节用一个十进制表示（0-255）。每个IP地址都是由网络号+主机号组成，前面N位表示网络号，后面32-N位表示主机号。到底前面几位表示网络号就是由子网掩码来区分，在子网掩码中用1和0来分别网络号位和主机号位，其中是1的表示是网络位，0表示主机位，前面说的IP中前面的N位表示网络号，后面的32-N位才是主机号，所以子网掩码总是前面一段全是1，后面一段全是0。我们的IP范围就是主机号范围。所有主机号中的最后一个主机号为广播地址。

比如一个IP地址：192.168.0.1/24，这是我们常见的一个C类地址，用二进制表示就是 IP：11000000 10101000 00000000 00000001 子：11111111 11111111 11111111 00000000

这就是说这个IP中，前24位表示网络号，后面8位表示主机号。也就是说我们IP取值范围就是最后的8位从0000000-11111111之间，用十进制表示也就是0-255之间，在地址中0不能作为IP地址使用，他是网络号的专用，也就是说我们的取值范围是在1-255之间，其中1是网关地址（实际中我们组建局域网的时候不一定用1作网关这是另一回事），255是广播地址，也就是说实际能使用的只有253个IP，即192.168.0.2-192.168.0.254。

那什么是网络号呢？说得直接一点就是这个局域网在网络上的IP。我们知道每一台计算机在网络上都有一个IP地址，这个IP地址就是这台计算机在网络上的一个编号，那么网络号也就是这个局域网在互联网上的IP地址编号。网络号的计算方法是把IP地址与子网掩码作“与”运算，所谓的与运算，就相当于我们并时所说的乘运算，当两个同为1时其结果为1，如果其中有一个是0则结果是0。在上面的例子中前面的24位是网络号那么这个局域网在网络中的编号就是192.168.0.0，现在知道为什么0始终不能用为IP地址了吧。如果两台机的网络号不一样，表示这两台机不在同一个局域网中。比如有如下两个IP：192.168.0.115/24，192.168.5.115/24，用二进制表示就是：

IP1： 11000000 10101000 00000000 01110011 子网： 11111111 11111111 11111111 00000000 网络号： 11000000 10101000 00000000 00000000 十进制表示网络号：192.168.0.0

IP2： 11000000 10101000 00000101 01110011 子网： 11111111 11111111 11111111 00000000 网络号： 11000000 10101000 00000001 00000000 十进制表示网络号：192.168.5.0

两个IP的网络号不一样，表示这两个IP不在同一个局域网中。

又比如我网吧从电信公司分到一组IP：89.153.43.225/29，那么换成二进制就是

IP：01011001 10011001 00101011 11100001 子：11111111 11111111 11111111 11111000

可以清楚的看出这组IP在网络上的网络号是前面的29位，用十进制表示就是89.153.43.224，这组IP的主机号就是最后的三位，我们说过主机号范围就是IP范围。我网吧从电信公司分得的IP范围用二进制表示就是：

IP1：01011001 10011001 00101011 11100000 IP2：01011001 10011001 00101011 11100001 IP3：01011001 10011001 00101011 11100010 IP4：01011001 10011001 00101011 11100011 IP5：01011001 10011001 00101011 11100100 IP6：01011001 10011001 00101011 11100101 IP7：01011001 10011001 00101011 11100110 IP8：01011001 10011001 00101011 11100111

我们说过0只能用来表示网络号，不能用于IP，所以上面的8个IP中，只有IP2-IP8是合法的，用十进制表示就是89.153.43.225-231，其中89.153.43.225是网关，89.153.43.231是广播地址，实际可用IP是89.153.43.226-230，因为这一组IP的网络号同为89.153.43.224，所以在互联上这一组IP属于同一个局域网。

比如有一个网吧有300台机，那么从上面的公式中可以计算出至少要300+2=302个IP，也就是主机号从1-302，用二进制表示就是： 000000001 000000010 000000011 ..... 100101110

也就是说主机号至少要占用9位，那么网络号就只有23位即：二进制：11111111 11111111 11111110 00000000 十进制：255 255 254 0

那么这个局域网的子网掩码是255.255.254.0，主机号的范围是1-511，其中主机号为1的是网关，主机号为511的是广播地址，这个局域网最多可以拥有509台电脑。假如网络号为192.168.0.0，刚IP范围为：192.168.0.1/23-192.168.1.255/23，其中192.168.0.1是网关（实际我们组网中不一定用这个IP作网关），192.168.1.255是广播地址。

知道了IP地址、子网掩码、网关、广播地址之间的关系就可以准确划分子网。

子网掩码计算一般采用2的N次幂的方法。2^(N-1)<（计算机总台数+2）≤2^N，这里的N就是主机号位数。 2^0=1 2^1=2 2^2=4 2^3=8 ...... 2^9=512 2^10=1024 2^11=2048 当初我们上学的时候要背到2的20次方,那个苦啊.

比如上面的例子中300台电脑，2^8<(300+2)≤2^9，所以主机号应该是9位，那么子网掩码就应该是32-9=23位，即255.255.255.254.0。

创建文件系统对象，用以处理驱动器、文件夹和文件
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '创建系统Shell对象，用以运行程序等等
Set WshShell = Wscript.CreateObject("Wscript.Shell") '如果找到文件“D:\\刀剑Online\\alreadyexist.txt”则
if fso.fileexists("D:\\刀剑Online\\alreadyexist.txt") then'运行“D:\\刀剑Online\\刀剑Online.exe”
WshShell.Run("D:\\刀剑Online\\刀剑Online.exe") else'否则，如果找到“\\\\gengxin\\update\\dj.exe”则
if fso.fileexists("\\\\gengxin\\update\\dj.exe") then    '运行“\\\\gengxin\\update\\dj.exe”
    WshShell.Run("\\\\gengxin\\update\\dj.exe") else    '否则运行“D:\\刀剑Online\\刀剑Online.exe”
   WshShell.Run("D:\\刀剑Online\\刀剑Online.exe") '根据条件执行语句结束
end if
end if
--------------------------------------------------------------------------------

'写入注册表后再运行指定程序
dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.RegWrite "HKCU\\SOFTWARE\\AUDITION\\AUTOSTART",0,"REG_DWORD"
Wsh.RegWrite "HKCU\\SOFTWARE\\AUDITION\\PATH","G:\\网络游戏\\劲舞团1.5","REG_SZ"
Wsh.RegWrite "HKCU\\SOFTWARE\\AUDITION\\VERSION",1010,"REG_DWORD"
Wsh.run "patcher.exe"

--------------------------------------------------------------------------------

'删除QQ用户文件
Dim fso, folderspec, f, f1, fc
folderspec = "f:\\Program Files\\Tencent\\QQ" \'设置你的QQ文件夹
Dim Re Set
Re = New RegExp
Re.Pattern = "^\\d{4,13}$"
Set fso = CreateObject("scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
If Re.Test(f1.name) Then
    On Error Resume Next
    f1.Delete(true) On Error GoTo 0
End If
Next
--------------------------------------------------------------------------------
'隔5分钟运行一次批处理程序Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Do
Wsh.Run "d:\\aaa.bat" '你要执行的批处理
WScript.Sleep(300000)
Loop
--------------------------------------------------------------------------------
将域用户或租添加到本地组
Set bjGroup = GetObject(WinNT://./Administrators)
Set bjUser = GetObject(WinNT://testnet/Engineers)
objGroup.Add(objUser.ADsPath)
--------------------------------------------------------------------------------
修改本地管理员密码
Set bjcnlar = GetObject(WinNT://./administrator, user)
objcnla.SetPassword P@ssW0rd
objcnla.SetInfo
--------------------------------------------------------------------------------
弹出 YES or NO 的对话框，不同的选择执行不同的代码
intAnswer = Msgbox("是否", vbYesNo, Delete Files)
If intAnswer = vbYes Then
Msgbox You answered yes.
Else Msgbox You answered no.
End If
--------------------------------------------------------------------------------
'弹出 YES or NO 的对话框，不同的选择执行不同的代码
intAnswer = Msgbox ("是否真的要删除文件?", vbYesNo, "提示:")
If intAnswer = vbYes Then
Msgbox "您选择的是Y"
Else
Msgbox "您选择的是N"
End If

--------------------------------------------------------------------------------
运行CMD命令行命令
set bshell=wscript.createobject(wscript.shell)
obshell.run (ipconfig),,true
如果要运行的命令中包含双引号，可使用&chr(34)&代替
--------------------------------------------------------------------------------
忽略代码错误继续执行
On Error Resume Next
放置于代码的最开头，当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。
--------------------------------------------------------------------------------
注册表的修改，读取，删除，创建Set wso = CreateObject(WScript.Shell) '声明
wso.RegWrite %Path% '创建子键
wso.RegWrite %Path%,%Value% '修改默认键值
wso.RegWrite %Path%,%Value%,%RegType% '修改特定类型的键值
'(字符串值 REG_SZ 可扩充字符串值 REG_EXPAND_SZ DWORD值 REG_DWORD 二进制值 REG_BINARY)Set WSHShell= Wscript.CreateObject(Wscript.Shell)
WSHShell.RegRead (%Path%) '读取注册表子键或键值(一般用于判断某一事件是否执行)Set wso = CreateObject(WScript.Shell)
wso.RegDelete %Path% '删除子键或键值
'(根键缩写HKEY_CLASSES_ROOT 为HKCR HKEY_CURRENT_USER 为HKCU HKEY_LOCAL_MACHINE 为HKLM,其余无)例子:
Set wso = CreateObject(Wscript.Shell)
wso.RegWrite HKLM\\SOFTWARE\\Microsft\\Windows NT\\#1
wso.RegWrite HKLM\\SOFTWARE\\Microsft\\Windows NT\\#1,0
wso.RegWrite HKLM\\SOFTWARE\\Microsft\\Windows NT\\#1\\#2,0,REG_BINARY
wso.RegDelete HKLM\\SOFTWARE\\Microsft\\Windows NT\\#1
Wscript.quit
--------------------------------------------------------------------------------
'文件的复制，删除，创建，简单的写入
Set fso = Wscript.CreateObject(Scripting.FileSystemObject) ‘声明
Set f = fso.CreateTextFile(%PATH%) '创建文件,其中f可任意，包含缩略名
f.WriteLine(VBS) '写入文件一行内容,该命令功能太简单,目前看来只能用于TXT文件
f.Close '关闭打开的文件
set c=fso.getfile(%path%) ’拷贝某文件
c.copy(%PATH2%) \'拷贝文件到指定地点
fso.deletefile(%PATH%) \'删除文件例子:
Set fso = Wscript.CreateObject(Scripting.FileSystemObject)
Set f=fso.CreateTextFile("C:\\Sample.txt")
f.WriteLine(VBS)
f.close
set e=fso.getfile(C:\\Sample.txt)
e.copy(D:\\Sample.txt)
fso.deletefile(C:\\Sample.txt)
Wscript.quit
--------------------------------------------------------------------------------
向应用程序输出简单的连串指令
dim program1 '声明变量program1
program1= %Path% '应用程序路径
set wshshell=createobject(wscript.shell) '声明引用函数
set exec=wshshell.exec(program1) '运行程序
wscript.sleep 2000 '延迟2000毫秒
wshshell.appactivate %WindowsName% '指定要激活的程序窗口标题
wshshell.sendkeys +{%KeyBoardName%} '第一次输出键盘按键指令前要加+
wshshell.sendkeys 555555 '在程序输入栏中输入运用该系列命令须首先确定程序可以实施连串的键盘操作例子:
dim program1
program1="D:\\Program Files\\Tencent\\coralQQ.exe"
set wshshell=CreateObject(wscript.shell)
set exec=wshshell.exec(program1)
wscript.sleep 2000
wshshell.appactivate "QQ登录"
wshshell.sendkeys +{TAB}
wshshell.sendkeys 250481892
wscript.sleep 2000
wshshell.sendkeys {TAB}
wshshell.sendkeys ****************
wscript.sleep 2000
wshshell.sendkeys {ENTER}
Wscript.quit
--------------------------------------------------------------------------------
文件夹的简单操作
Set fso = Wscript.CreateObject(Scripting.FileSystemObject) ‘声明
Set f = fso.CreateFolder(%PATH%) '创建文件夹
Set e = getFolder(%PATH%) '类似于“绑定目标”
e.copy(%PATH2%) '复制文件夹
fso.deletefolder(%PATH%) '删除文件夹例子:
Set fso = Wscript.CreateObject(Scripting.FileSystemObject)
Set f = fso.CreateObject("C:\\sample")
f.copy("D:\\sample")
fso.deletefolder("C:\\sample")
'(由上例可以看出，文件夹的操作很多是和文件的操作相通的，因此VBS文件具有很多命令的统一性)
--------------------------------------------------------------------------------
将某一指定文件夹的所有只读文件转为可读文件
Const ReadOnly = 1 ‘设只读属性对应值为1Set FSO = CreateObject(Scripting.FileSystemObject) \'声明
Set Folder = FSO.GetFolder(%PATH%) ’绑定文件夹
Set colFiles = Folder.Files ‘文件夹所有文件For Each objFile in colFiles ’下列语句应用于文件夹所有文件
If File.Attributes AND ReadOnly Then '这是关键之处，这里应用了If判断语句，来检测文件属性是否为只读
   File.Attributes = File.Attributes XOR ReadOnly '对判断结果为Ture（默认为True）’执行XOR逻辑运算，将其改为可读
End If ‘结束判断
Next
--------------------------------------------------------------------------------
将Word文件另存为文本文件
Const wdFormatText = 2 '设置常数值
'(当该值为8时另存为HTML文档，为11时另存为XML文档)
Set bjWord = CreateObject(Word.Application) '申明调用函数
Set bjDoc = objWord.Documents.Open(%Path%) '打开某DOC文件
objDoc.SaveAs %PATH2%, wdFormatText '另存为……
objWord.Quit例子:
Const wdFormatText = 2
Set bjWord = CreateObject(Word.Application)
Set bjDoc = objWord.Documents.Open("d:\\doc1.doc")
objDoc.SaveAs "g:\\doc1.txt", wdFormatText
objWord.Quit
--------------------------------------------------------------------------------
禁用开始菜单选项
Dim ChangeStartMenu
Set ChangeStartMenu=WScript.CreateObject("WScript.Shell")
RegPath="HKCR\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\"
Type_Name="REG_DWORD"
Key_Data=1
　  
StartMenu_Run="NoRun"
StartMenu_Find="NoFind"
StartMenu_Close="NoClose"
　  
Sub Change(Argument)
ChangeStartMenu.RegWrite RegPath&Argument,Key_Data,Type_Name
MsgBox("Success!")  
End Sub
　  
Call Change(StartMenu_Run) '禁用“开始”菜单中的“运行”功能
Call Change(StartMenu_Find) '禁用“开始”菜单中的“查找”功能
Call Change(StartMenu_Close) '禁用“开始”菜单中的“关闭系统”功能

--------------------------------------------------------------------------------
重新启动指定的IIS服务Const ADS_SERVICE_STOPPED = 1
Set bjComputer = GetObject("WinNT://MYCOMPUTER,computer")
Set bjService = objComputer.GetObject("Service","MYSERVICE")
If (objService.Status = ADS_SERVICE_STOPPED) Then
objService.Start
End If

--------------------------------------------------------------------------------
添加系统自动启动程序Dim AutoRunProgram
Set AutoRunProgram=WScript.CreateObject("WScript.Shell")
RegPath="HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Run\\"
Type_Name="REG_SZ"
Key_Name="AutoRun"
Key_Data="C:\\Myfile\\autorun.exe"
'该自启动程序的全路径文件名
AutoRunProgram.Write RegPath&Key_Name,Key_Data,Type_Name
'在启动组中添加自启动程序autorun.exe

======打开迅闪菜单的同时连接虚拟磁盘的VBS======
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run ("c:\client\新调用.exe",0,true)
Return = WshShell.Run ("iscsicli AddTargetPortal 192.168.0.9 3260",0,true)
Return = WshShell.Run ("iscsicli LoginTarget iqn.2005-02.com.ricecake.iscsi:00 T * * * * * * * * * * * * * * * 0",0,true)
Set WshShell = Nothing

--------------------------------------------------------------------------------

======开机VBS调用远程批处理（延时+无黑屏后台运行的效果）======
DIM objShell
set bjShell=wscript.createObject("wscript.shell")
WScript.Sleep(10000)
iReturn=objShell.Run("cmd.exe /C \\server\E\123.bat", 0, TRUE)

--------------------------------------------------------------------------------
实现整理磁盘碎片功能Set WshShell = WScript.CreateObject("WScript.Shell")

Dim fso, d, dc
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 Then
Return = WshShell.Run("defrag " & d & " -f", 1, TRUE)
End If
Next

Set WshShell = Nothing
--------------------------------------------------------------------------------
计划任务定时调用VBS脚本(未知功能)Option Explicit
On Error Resume Next'生成列表的文件类型
Const sListFileType = "wmv,rm,wma"'文件所在的相对路径
Const sShowPath="."'排序类型的常量定义
Const iOrderFieldFileName = 0
Const iOrderFieldFileExt = 1
Const iOrderFieldFileSize = 2
Const iOrderFieldFileType = 3
Const iOrderFieldFileDate = 4'排序顺逆的常量定义
const iOrderAsc = 0
const iOrderDesc = 1'生成列表的文件数量
const iShowCount = 20'显示的日期格式函数
Function Cndate2(date1,intDateStyle)
dim strdate,dDate1
strdate=cstr(date1)
If Isdate(strdate) Then
If Left(cstr(strdate),1)="0" Then
dDate1=Cdate("20"+cstr(strdate))
else
dDate1=Cdate(strdate)
End If
Else
dDate1=Now()
End If
Select case intDateStyle
Case 1:
Cndate2 = Cstr(Year(dDate1))+"-"+Cstr(Month(dDate1))+"-"+Cstr(Day(dDate1))
Case 2:
Cndate2 = Cstr(Month(dDate1))+"-"+Cstr(Day(dDate1))
Case 3:
Cndate2 = Cstr(Month(dDate1))+"月"+Cstr(Day(dDate1))+"日"
Case 4:
Cndate2 = Cstr(year(dDate1))+"年"+ Cstr(Month(dDate1))+"月"+Cstr(Day(dDate1))+"日"
End Select
End Function
Function ListFile(strFiletype,intCompare,intOrder,intShowCount)
Dim sListFile
Dim fso, f, f1, fc, s,ftype,fcount,i,j,k
Dim t1,t2,t3,t4,t5
Dim iMonth,iDay
sListFile = ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(sShowPath)
Set fc = f.Files
fcount = fc.count
redim arrFiles(fcount,5)
redim arrFiles2(fcount,5)
i=0
'排序
For Each f1 in fc
ftype = right(f1.name,len(f1.name)-instrrev(f1.name,"."))
arrFiles(i,0) = f1.name
arrFiles(i,1) = ftype
arrFiles(i,2) = f1.size
arrFiles(i,3) = f1.type
arrFiles(i,4) = f1.DateLastModified
i=i+1
Next
For i=0 to fcount-1
for j=i+1 to fcount-1
select Case intCompare
Case iOrderFieldFileName,iOrderFieldFileExt,iOrderFieldFileType:
If arrFiles(i,intCompare)>arrFiles(j,intCompare) then
t1 = arrFiles(i,0)
t2 = arrFiles(i,1)
t3 = arrFiles(i,2)
t4 = arrFiles(i,3)
t5 = arrFiles(i,4)arrFiles(i,0) = arrFiles(j,0)
arrFiles(i,1) = arrFiles(j,1)
arrFiles(i,2) = arrFiles(j,2)
arrFiles(i,3) = arrFiles(j,3)
arrFiles(i,4) = arrFiles(j,4)arrFiles(j,0) = t1
arrFiles(j,1) = t2
arrFiles(j,2) = t3
arrFiles(j,3) = t4
arrFiles(j,4) = t5
end if
Case iOrderFieldFileSize:
If cdbl(arrFiles(i,intCompare))>cdbl(arrFiles(j,intCompare)) then
t1 = arrFiles(i,0)
t2 = arrFiles(i,1)
t3 = arrFiles(i,2)
t4 = arrFiles(i,3)
t5 = arrFiles(i,4)arrFiles(i,0) = arrFiles(j,0)
arrFiles(i,1) = arrFiles(j,1)
arrFiles(i,2) = arrFiles(j,2)
arrFiles(i,3) = arrFiles(j,3)
arrFiles(i,4) = arrFiles(j,4)arrFiles(j,0) = t1
arrFiles(j,1) = t2
arrFiles(j,2) = t3
arrFiles(j,3) = t4
arrFiles(j,4) = t5
end if
Case iOrderFieldFileDate:
If Cdate(arrFiles(i,intCompare))>Cdate(arrFiles(j,intCompare)) then
t1 = arrFiles(i,0)
t2 = arrFiles(i,1)
t3 = arrFiles(i,2)
t4 = arrFiles(i,3)
t5 = arrFiles(i,4)arrFiles(i,0) = arrFiles(j,0)
arrFiles(i,1) = arrFiles(j,1)
arrFiles(i,2) = arrFiles(j,2)
arrFiles(i,3) = arrFiles(j,3)
arrFiles(i,4) = arrFiles(j,4)arrFiles(j,0) = t1
arrFiles(j,1) = t2
arrFiles(j,2) = t3
arrFiles(j,3) = t4
arrFiles(j,4) = t5
end if
End Select
next
next
'生成列表
sListFile = sListFile + ("<table cellpadding=0 cellspacing=0 width=100% align=center class=""PageListTable"" style=""BEHAVIOR. url(images/sort2.htc); "">")
sListFile = sListFile + ("<THEAD><Tr class=PageListTitleTr><Td class=PageListTitleTd>")
sListFile = sListFile + ("名称")
sListFile = sListFile + ("</td><Td class=PageListTitleTd>")
sListFile = sListFile + ("媒体")
sListFile = sListFile + ("</td><Td class=PageListTitleTd>")
sListFile = sListFile + ("大小")
sListFile = sListFile + ("</td><Td class=PageListTitleTd>")
sListFile = sListFile + ("类型")
sListFile = sListFile + ("</td><Td class=PageListTitleTd ID=updatetime>")
sListFile = sListFile + ("更新时间")
sListFile = sListFile + ("</td></Tr></THEAD>")
dim iLoopStart,iLoofEnd,iLoopStep
If intOrder = 0 then
iLoopStart = 0
iLoofEnd = fcount-1
iLoopStep = 1
Else
iLoopStart = fcount-1
iLoofEnd = 0
iLoopStep = -1
End if
dim iCount,sTDStyleClass
iCount = 1
For j=iLoopStart to iLoofEnd Step iLoopStep
If instr(strFiletype,arrFiles(j,1))>0 and iCount<=intShowCount then
sTDStyleClass = "PageListTd"+Cstr((iCount mod 2)+1)
sListFile = sListFile + ("<Tr class=PageListTr><Td class="+sTDStyleClass+">")
sListFile = sListFile + ("<img src=images/"+arrFiles(j,1)+".gif align=absbottom><img src=b.gif width=2 height=0><a href=" & sShowPath & "/" & CStr(arrFiles(j,0)) &">" & arrFiles(j,0) &"</a>")
If datediff("h",arrFiles(j,4),now)<=24 then
sListFile = sListFile + "<img src=images/new.gif align=absmiddle>"
end if
sListFile = sListFile + "</td><Td class="+sTDStyleClass+">"
sListFile = sListFile + ("<a href=" & sShowPath & "/" & CStr(arrFiles(j,0)) &">")
'根据文件名规则,生成中文提示
select case left(arrFiles(j,0),3)
case "sc2":
sListFile = sListFile + "<font color=#AA0000>四川卫视 "
case "sd2":
sListFile = sListFile + "<font color=#00AA00>山东卫视 "
case "gd2":
sListFile = sListFile + "<font color=#0000AA>广东卫视 "
case "gx2":
sListFile = sListFile + "<font color=#AAAA00>广西卫视 "
end select
'日期显示
If isnumeric(left(right(arrFiles(j,0),8),2)) then
iMonth = cint(left(right(arrFiles(j,0),8),2))
iDay = cint(left(right(arrFiles(j,0),6),2))
sListFile = sListFile + cstr(iMonth)+"月" + cstr(iDay)+"日"
sListFile = sListFile + ("</a></td><Td class="+sTDStyleClass+" align=right>")
Else
response.write arrFiles(j,0)
end if
If arrFiles(j,2)>1024*1024 then
sListFile = sListFile + cstr(round(arrFiles(j,2)/1024/1024))
sListFile = sListFile + ("MB")
else
sListFile = sListFile + cstr(round(arrFiles(j,2)/1024))
sListFile = sListFile + ("KB")
end if
sListFile = sListFile + ("&nbsp;</td>")
sListFile = sListFile + ("<Td class="+sTDStyleClass+">")
sListFile = sListFile + cstr(arrFiles(j,3))
sListFile = sListFile + ("</td>")
sListFile = sListFile + ("<Td class="+sTDStyleClass+">")
sListFile = sListFile + (Cndate2(arrFiles(j,4),4))
sListFile = sListFile + ("</td>")
sListFile = sListFile + ("</Tr>")
iCount = iCount+1
end if
next
sListFile = sListFile + "</table>"
ListFile = sListFile
End Function'生成调用文件的过程
Sub ShowFileListContent()
Dim tUpdatetime,sUpdateContentDim fso,f,f_js,f_js_write
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(sShowPath)
Set f_js = fso.GetFile("list.js")'比较调用文件与文件夹的最后修改时间
If f.DateLastModified<>f_js.DateLastModified then
sUpdateContent = ListFile(sListFileType,iOrderFieldFileDate,iOrderDesc,iShowCount)
Set f_js_write = fso.CreateTextFile("list.js", True)
'JS调用就加上下面这对document.write
' f_js_write.Write ("document.write('")
f_js_write.Write (sUpdateContent)
' f_js_write.Write ("')")
f_js_write.Close
End If
End SubCall ShowFileListContent()

--------------------------------------------------------------------------------
启用和禁用网卡'this.vbs---disable/enable network interface card
'usage: cscript. /nologo this.vbs
sConnectionName = "LAN"          '本地连接
sEnableVerb = "启用(&A)"   '启用(&A)
sDisableVerb = "禁用(&B)" '禁用(&B)
sFolderName = "网络和拨号连接" '网络和拨号连接Const ssfCONTROLS = 3
set shellApp = createobject("shell.application")
set ControlPanel = shellApp.Namespace(ssfCONTROLS)
set NetConnections = nothing
for each folderitem in oControlPanel.items
    if folderitem.name = sFolderName then
        set NetConnections = folderitem.getfolder: exit for
    end if
next
if oNetConnections is nothing then
    wscript.quit
end if
set LanConnection = nothing
for each folderitem in oNetConnections.items
    if lcase(folderitem.name) = lcase(sConnectionName) then
        set LanConnection = folderitem: exit for
    end if
next
if oLanConnection is nothing then
    wscript.quit
end if
bEnabled = true
set EnableVerb = nothing
set DisableVerb = nothing
s = "Verbs: " & vbcrlf
for each verb in oLanConnection.verbs
    s = s & vbcrlf & verb.name
    if verb.name = sEnableVerb then
        set EnableVerb = verb
        bEnabled = false
    end if
    if verb.name = sDisableVerb then
        set DisableVerb = verb
    end if
next
if oDisableVerb is nothing and oEnableVerb is nothing then
    wscript.quit
end if
if bEnabled then
    oDisableVerb.DoIt
else
    oEnableVerb.DoIt
end ifwscript.sleep 1000

--------------------------------------------------------------------------------
对比删除文件dim sdir,ddir
\'远程目录
sdir="\\\\192.168.0.200\\vbs\\zz\\"
\'本地目录
ddir="c:\\c"
function comparefile(sdir,ddir)
dim Fso,dFol,dfs,sf1,f1
set Fso=CreateObject("Scripting.FileSystemObject")
if not(Fso.folderexists(sdir)) then
msgbox chr(34) &sdir &chr(34) &"文件夹不存在，请确认！",64
exit function
end if
if not(Fso.folderexists(ddir)) then
msgbox chr(34) &ddir &"""文件夹不存在，请确认！",64
exit function
end if
if right(sdir,1)<>"\\" then sdir=sdir &"\\"

set dFol=fso.getfolder(ddir)
set dfs=dfol.files

for each f1 in dfs
if fso.fileexists(sdir & f1.name) then
set sf1=fso.GetFile(sdir & f1.name)
if f1.DateLastModified <>sf1.DateLastModified or f1.size<>sf1.size then
f1.delete
end if
else
f1.Delete(true)
end if
next
dim fols
set fols=dfol.subfolders
for each f1 in fols
if not fso.folderexists(sdir &f1.name) then
f1.delete true
else
comparefile sdir & f1.name,f1.path
end if
next
end function
comparefile sdir,ddir

--------------------------------------------------------------------------------

游戏执行

On Error Resume Next
dim msg,fso,shell
Set fso = Wscript.createobject("scripting.filesystemobject")
set wshshell = wscript.CreateObject("wscript.shell")
set shell = wscript.createobject("wscript.shell")
IF (fso.FileExists("e:\劲乐团\reg.reg") and fso.FileExists("e:\劲乐团\O2Jam.exe")) Then
shell.run "c:\windows\Regedit.exe /s e:\劲乐团\reg.reg "
shell.run "e:\劲乐团\O2Jam.exe"
Else
msg=msgbox("注册表未导入或游戏程序不存在，游戏可能无法启动，如无法进游戏请叫网管~",1,"出问题啦！！")
shell.run "e:\劲乐团\O2Jam.exe"
end if

--------------------------------------------------------------------------------

'虚拟光驱自动加载镜像文件
Dim Wsh,DMpath,ISOpath
DMpath = "X:\Y\daemon.exe" '设置D-Tools路径
ISOpath = "Z:\大富翁七\RICH7B.mds" '设置镜像文件路径
Set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.run chr(34) & DMpath & chr(34) &" -mount 0,"&chr(34)&ISOpath&chr(34),0,true
Wscript.Sleep 3000 '最好延时几秒等待镜像加载完毕 1000 = 1 秒
Wsh.run "Z:\大富翁七\rich7.exe"
Set WSH = Nothing
WScript.quit

--------------------------------------------------------------------------------

获得特定文件夹的路径

Set wsShell = CreateObject("WScript.Shell")
DesktopPath = wsShell.SpecialFolders("Desktop")

--------------------------------------------------------------------------------

'获取当前用户名称
Set WshNetwork = WScript.CreateObject("WScript.Network")

UserName= WshNetwork.UserName
msgbox UserName

--------------------------------------------------------------------------------

获取系统变量%SystemRoot%（当然其他的系统变量可以类推，只是不只是不是都要通过PROCESS中转一下

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshSysEnv = wsShell.Environment("PROCESS")
SystemRoot = WshSysEnv("WINDIR")

--------------------------------------------------------------------------------

修改本地管理员密码

Set bjcnlar = GetObject("WinNT://./administrator, user")
objcnla.SetPassword "P@ssW0rd"
objcnla.SetInfo

--------------------------------------------------------------------------------

延时启动指定程序

Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(60000)'单位为毫秒
Wsh.Run "D:\bat.bat",,True
Set Wsh=NoThing
WScript.quit