系统管理脚本

Escape sequence to abort traceroute command

noreply@blogger.com (FANG Sheng) — Fri, 29 Jun 2007 12:14:00 +0100

The traceroute command terminates when the destination responds, when the hop limit is exceeded, or when the user interrupts the trace with the escape sequence. By default, to invoke the escape sequence, type Ctrl-^ X—by simultaneously pressing and releasing the Ctrl, Shift, and 6 keys, and then pressing the X key.

IPSec基础－IPSec策略

noreply@blogger.com (FANG Sheng) — Sat, 16 Jun 2007 10:55:00 +0100

IPSec本身没有为策略定义标准，策略的定义和表示由具体实施方案解决，以下对IPSec策略的介绍以Windows 2000为例。

在Windows 2000中，IPSec策略包括一系列规则（规则规定哪些数据流可以接受，哪些数据流不能接受）和过滤器（过滤器规定数据流的源和目标地址），以便提供一定程度的安全级别。在Windows 2000的IPSec实现中，既有多种预置策略可供用户选择，也可以让用户根据企业安全需求自行创建策略。IPSec策略的实施有两种基本方法，一是在本地计算机上指定策略，二是使用Windows 2000 "组策略"对象，由其来实施策略。IPSec策略可适用于单机、域、路由器、网站或各种自定义组织单元等多种场合。

一、规则

规则规定IPSec策略何时以及如何保护IP通信。根据IP数据流的类型、源和目的地址，规则应该具有触发和控制安全通信的能力。每一条规则包含一张IP过滤器列表和与之相匹配的安全设置，这些安全设置有：1）过滤器动作 2）认证方法 3）IP隧道设置 4）连接类型。

一个IPSec策略包含一至多条规则，这些规则可以同时处于激活状态。例如，用户为某网站路由器指定安全策略，但对经过该路由器的Intranet和Internet通信有不同的安全要求，那么，这个策略就可以包含多条规则，分别对应于Intranet和Internet的不同场景。IPSec实现中针对各种基于客户机和服务器的通信提供了许多预置规则，用户可根据实际需求使用或修改。

二、过滤器和过滤器动作

规则具有根据IP数据流的类型以及源和目的地址为通信触发安全协商的能力，这一过程也称为IP包过滤。应用包过滤技术，可以精确地定义哪些IP数据流需要受保护，哪些数据流需要被拦截，哪些则可以绕过IPSec应用（即无须受保护）。

一个过滤器由以下几个参数决定：IP包的源和目的地址；包所使用的传输协议类型；TCP和UDP协议的源和目的端口号。一个过滤器对应于一种特定类型的数据流。过滤器动作为需要受保护的IP通信设置安全需求，这些安全需求包括安全算法，安全协议和使用的密钥属性等等。

除了为需要受保护的IP通信设置过滤器动作外，还可以将过滤器动作配置成：

·绕过策略，即某些IP通信可以绕过IPSec，不受其安全保护。这类通信主要有以下三种情况：1）远程主机无法启用IPSec，2）非敏感数据流无须受保护，3）数据流本身自带安全措施（例如使用Kerberos v5、SSL或 PPTP协议）。

·拦截策略，用于拦截来自特定地址的通信。

三、连接类型

每一条规则都需要指明连接类型，用以规定IPSec策略的适用范围：如拨号适配器或网卡等。规则的连接属性决定该规则将应用于单种连接还是多种连接。例如，用户可以指明某条安全需求特别高的规则，只应用于拨号连接，而不应用于LAN连接。

四、认证

一条规则可以指定多种认证方法。IPSec支持的认证方法主要有：

·Kerberos v5：Windows 2000的缺省认证协议。该认证方法适用于任何运行Kerberos v5协议的客户机（无论该客户机是否基于Windows）。

·公钥证书认证：该认证方法适用于Internet访问、远程访问、基于L2TP的通信或不运行Kerberos v5协议的主机，要求至少配置一个受信赖的认证中心CA。 Windows 2000的IKE可以和Microsoft、Entrust和VeriSign等多家公司提供的认证系统相兼容，但不推荐使用预置共享密钥认证，因为该认证方法不受IPSec策略保护，为避免使用预置共享密钥认证可能带来的风险，一般建议使用Kerberos v5认证或公钥证书认证。

来源：赛迪网综合报道

IPSec基础－IPSec概览

noreply@blogger.com (FANG Sheng) — Sat, 16 Jun 2007 10:51:00 +0100

IP网络安全问题 IP网络安全一直是一个倍受关注的领域，如果缺乏一定的安全保障，无论是公共网络还是企业专用网络都难以抵挡网络攻击和非法入侵。对于某个特定的企业内部网Intranet来说，网络攻击既可能来自网络内部，也可能来自外部的Internet或Extranet，其结果均可能导致企业内部网络毫无安全性可言。单靠口令访问控制不足以保证数据在网络传输过程中的安全性。

几中常见的网络攻击

如果没有适当的安全措施和安全的访问控制方法，在网络上传输的数据很容易受到各式各样的攻击。网络攻击既有被动型的，也有主动型的。被动攻击通常指信息受到非法侦听，而主动攻击则往往意味着对数据甚至网络本身恶意的篡改和破坏。以下列举几种常见的网络攻击类型：

1）窃听

一般情况下，绝大多数网络通信都以一种不安全的"明文"形式进行，这就给攻击者很大的机会，只要获取数据通信路径，就可轻易"侦听"或者"解读"明文数据流。"侦听"型攻击者，虽然不破坏数据，却可能造成通信信息外泄，甚至危及敏感数据安全。对于多数普通企业来说，这类网络窃听行为已经构成了网管员所面临的最大的网络安全问题。

2）数据篡改

网络攻击者在非法读取数据后，下一步通常就会想去篡改它，而且这种篡改一般可以做得让数据包的发送方和接收方无知无觉。但作为网络通信用户，即使并非所有的通信数据都是高度机密的，也不想看到数据在传输过程中遭至任何差错。比如在网上购物，一旦我们提交了购物定单，谁也不会希望定单中任何内容被人肆意篡改。

3）身份欺骗（IP地址欺骗）

大多数网络操作系统使用IP地址来标识网络主机。然而，在一些情况下，貌似合法的IP地址很有可能是经过伪装的，这就是所谓IP地址欺骗，也就是身份欺骗。另外网络攻击者还可以使用一些特殊的程序，对某个从合法地址传来的数据包做些手脚，借此合法地址来非法侵入某个目标网络。

4）盗用口令攻击（Password-Based Attacks）

基于口令的访问控制是一种最常见的安全措施。这意味着我们对某台主机或网络资源的访问权限决定于我们是谁，也就是说，这种访问权是基于我们的用户名和帐号密码的。

攻击者可以通过多种途径获取用户合法帐号，一旦他们拥有了合法帐号，也就拥有了与合法用户同等的网络访问权限。因此，假设帐号被盗的用户具有网管权限的话，攻击者甚至可以借机给自己再创建一个合法帐号以备后用。在有了合法帐号进入目标网络后，攻击者也就可以随心所欲地盗取合法用户信息以及网络信息；修改服务器和网络配置，包括访问控制方式和路由表；篡改、重定向、删除数据等等。

5）拒绝服务攻击（Denial-of-Service Attack）与盗用口令攻击不同，拒绝服务攻击的目的不在于窃取信息，而是要使某个设备或网络无法正常运作。在非法侵入目标网络后，这类攻击者惯用的攻击手法有：

a. 首先设法转移网管员注意力，使之无法立刻察觉有人入侵，从而给攻击者自己争取时间

b. 向某个应用系统或网络服务系统发送非法指令，至使系统出现异常行为或异常终止

c. 向某台主机或整个网络发送大量数据洪流，导致网络因不堪过载而瘫痪

d. 拦截数据流，使授权用户无法取得网络资源

6）中间人攻击（Man-in-the-Middle Attack）

顾名思义，中间人攻击发生在我们与通信对象之间，即通信过程以及通信数据遭到第三方的监视、截取和控制，例如攻击者可以对数据交换进行重定向等等。如果通信中使用网络低层协议，通信两端的主机是很难区分出不同的对象的，因此也不大容易察觉这类攻击。中间人攻击有点类似于身份欺骗。

7）盗取密钥攻击（Compromised-Key Attack）

虽然一般说来，盗取密钥是很困难的，但并非不可能。通常我们把被攻击者盗取的密钥称为"已泄密的密钥"。攻击者可以利用这个已泄密的密钥对数据进行解密和修改，甚至还能试图利用该密钥计算其他密钥，以获取更多加密信息。

8）Sniffer 攻击（Sniffer Attack）

Sniffer指能解读、监视、拦截网络数据交换以及可以阅读数据包的程序或设备。如果数据包没有经过加密，Sniffer可以将该数据包中的所有数据信息一览无余。即使经过封装的隧道数据包，Sniffer也可以在对其进行解封装后再进行读取，除非该隧道数据经过加密而攻击者没有得到解密所需要的密钥。利用Sniffer，攻击者除了可以读取通信数据外，还可以对目标网络进行分析，进一步获取所需资源，甚至可以导致目标网络的崩溃或瘫痪。

9）应用层攻击（Application-Layer Attack）

应用层攻击直接将目标对准应用系统服务器，应用层攻击的攻击者往往就是设计该应用系统的程序员。所谓应用层攻击是指攻击者故意在服务器操作系统或应用系统中制造一个后门，以便可以绕过正常的访问控制。特洛依木马就是一个非常典型的应用层攻击程序，攻击者利用这个后门，可以控制整个用户应用系统，还可以：

a. 阅读、添加、删除、修改用户数据或操作系统

b. 在用户应用系统中引入病毒程序

c. 引入Sniffer，对用户网络进行分析，以获取所需信息，并导致用户网络的崩溃或瘫痪

d. 引起用户应用系统的异常终止

e. 解除用户系统中的其他安全控制，为其新一轮攻击打开方便之门

IPSec概述

IPSec (Internet 协议安全)是一个工业标准网络安全协议，为 IP 网络通信提供透明的安全服务，保护 TCP/IP 通信免遭窃听和篡改，可以有效抵御网络攻击，同时保持易用性。IPSec有两个基本目标：1）保护IP数据包安全；2）为抵御网络攻击提供防护措施。

IPSec结合密码保护服务、安全协议组和动态密钥管理三者来实现上述两个目标，不仅能为企业局域网与拨号用户、域、网站、远程站点以及Extranet之间的通信提供强有力且灵活的保护，而且还能用来筛选特定数据流。 IPSec基于一种端-对-端的安全模式。这种模式有一个基本前提假设，就是假定数据通信的传输媒介是不安全的，因此通信数据必须经过加密，而掌握加解密方法的只有数据流的发送端和接收端，两者各自负责相应的数据加解密处理，而网络中其他只负责转发数据的路由器或主机无须支持IPSec。该特性有助于企业用户在下列方案中成功地配置IPSec：

·局域网：C/S模式，对等模式

·广域网：路由器-对-路由器模式，网关-对-网关模式

·远程访问：拨号客户机，专网对Internet的访问

一、纵深防御

众所周知，网络攻击常常可能导致系统崩溃以及敏感数据的外泄，因此数据资源必须受到足够的保护，以防被侦听，篡改，或非法访问。

常规网络保护策略有使用防火墙、安全路由器（安全网关）以及对拨号用户进行身份认证等。这些措施通常被称为"边界保护"，往往只着重于抵御来自网络外部的攻击，但不能阻止网络内部的攻击行为。

智能卡或Kerberos

用户认证等的访问控制法，单纯依赖用户名和口令，也不足以抵御大多数网络攻击。例如，一台主机由多个用户共享，往往会发生人不在了，而机器却仍处于登录状态的情况，从而导致系统出现不安全因素。访问控制法最大的缺陷是一旦用户帐号被窃，根本无法阻止攻击者盗取网络资源。

还有一种比较少见的保护策略是物理级保护，就是保护实际的网络线路和网络访问节点，禁止任何未经授权的使用。但这种保护方式，当数据需要从数据源通过网络传输到目的地时，无法做到保证数据的全程安全。

IPSec采用端-对-端加密模式，其基本工作原理是：发送方在数据传输前（即到达网线之前）对数据实施加密，在整个传输过程中，报文都是以密文方式传输，直到数据到达目的节点，才由接收端对其进行解密。IPSec对数据的加密以数据包而不是整个数据流为单位，这不仅更灵活，也有助于进一步提高IP数据包的安全性。通过提供强有力的加密保护，IPSec可以有效防范网络攻击，保证专用数据在公共网络环境下的安全性。

一个完善的企业安全计划，应该是多种安全策略的有机组合，将IPSec与用户访问控制、边界保护以及物理层保护相结合，可以为企业数据通信提供更高层次的纵深防护。

二、用IPSec抵御网络攻击

网络攻击者要破译经过IPSec加密的数据，即使不是完全不可能，也是非常困难的。根据不同类别数据对于保密需求的不同，IPSec策略中有多种等级的安全强度可供选择。使用IPSec可以显著地减少或防范前面谈到过的几种网络攻击。

·Sniffer：Sniffer可以读取数据包中的任何信息，因此对抗Sniffer，最有效的方法就是对数据进行加密。 IPSec的封装安全载荷ESP协议通过对IP包进行加密来保证数据的私密性

·数据篡改：IPSec用密钥为每个IP包生成一个数字检查和，该密钥为且仅为数据的发送方和接收方共享。对数据包的任何篡改，都会改变检查和，从而可以让接收方得知包在传输过程中遭到了修改。

·身份欺骗，盗用口令，应用层攻击：IPSec的身份交换和认证机制不会暴露任何信息，不给攻击者有可趁之机，双向认证在通信系统之间建立信任关系，只有可信赖的系统才能彼此通信。

·中间人攻击：IPSec结合双向认证和共享密钥，足以抵御中间人攻击。

·拒绝服务攻击：IPSec使用IP包过滤法，依据IP地址范围、协议、甚至特定的协议端口号来决定哪些数据流需要受到保护，哪些数据流可以被允许通过，哪些需要拦截。

三、第三层保护的优点

通常IPSec提供的保护需要对系统做一定的修改。但是IPSec在IP传输层即第三层的"策略执行"（strategic implementation）几乎不需要什么额外开销就可以实现为绝大多数应用系统、服务和上层协议提供较高级别的保护；为现有的应用系统和操作系统配置IPSec几乎无须做任何修改，安全策略可以在Active Directory里集中定义也可以在某台主机上进行本地化管理。

IPSec策略在ISO参考模型第三层即网络层上实施的安全保护，其范围几乎涵盖了TCP/IP协议簇中所有IP协议和上层协议，如TCP、UDP、ICMP，Raw（第255号协议）、甚至包括在网络层发送数据的客户自定义协议。在第三层上提供数据安全保护的主要优点就在于：所有使用IP协议进行数据传输的应用系统和服务都可以使用IPSec，而不必对这些应用系统和服务本身做任何修改。

运作于第三层以上的其他一些安全机制，如安全套接层SSL，仅对知道如何使用SSL的应用系统（如Web浏览器）提供保护，这极大地限制了SSL的应用范围；而运作于第三层以下的安全机制，如链路层加密，通常只保护了特定链路间的数据传输，而无法做到在数据路径所经过的所有链路间提供安全保护，这使得链接层加密无法适用于 Internet 或路由 Intranet 方案中的端对端数据保护。

四、基于策略的安全保护

加密技术作为一种强有力的安全保护措施，一方面它能给予数据通信以全方位的保护，另一方面也会大幅增加管理开销。IPSec基于策略的管理则有效地避免了这一缺陷。 IPSec组策略用于配置IPSec安全服务（IPSec不必在API或操作系统中配置），这些策略为大多数现有网络中不同类别的数据流提供了各种级别的保护。针对个人用户、工作组、应用系统、域、站点或跨国企业等不同的安全要求，网络安全管理员可以配置多种 IPSec 策略以分别满足其需求。例如Windows 2000的 "IPSec 策略管理"，既可以在Active Directory中为域成员集中定义IPSec策略，也可以为非域成员定义IPSec本地计算机策略。

来源：赛迪网综合报道

IPSec基础－IPSec服务

noreply@blogger.com (FANG Sheng) — Sat, 16 Jun 2007 10:38:00 +0100

IPSec 协议不是一个单独的协议，它给出了应用于IP层上网络数据安全的一整套体系结构，包括网络认证协议 Authentication Header（AH）、封装安全载荷协议Encapsulating Security Payload（ESP）、密钥管理协议Internet Key Exchange （IKE）和用于网络认证及加密的一些算法等。IPSec 规定了如何在对等层之间选择安全协议、确定安全算法和密钥交换，向上提供了访问控制、数据源认证、数据加密等网络安全服务。

一、安全特性

IPSec的安全特性主要有：

·不可否认性 "不可否认性"可以证实消息发送方是唯一可能的发送者，发送者不能否认发送过消息。"不可否认性"是采用公钥技术的一个特征，当使用公钥技术时，发送方用私钥产生一个数字签名随消息一起发送，接收方用发送者的公钥来验证数字签名。由于在理论上只有发送者才唯一拥有私钥，也只有发送者才可能产生该数字签名，所以只要数字签名通过验证，发送者就不能否认曾发送过该消息。但"不可否认性"不是基于认证的共享密钥技术的特征，因为在基于认证的共享密钥技术中，发送方和接收方掌握相同的密钥。

·反重播性 "反重播"确保每个IP包的唯一性，保证信息万一被截取复制后，不能再被重新利用、重新传输回目的地址。该特性可以防止攻击者截取破译信息后，再用相同的信息包冒取非法访问权（即使这种冒取行为发生在数月之后）。

·数据完整性 防止传输过程中数据被篡改，确保发出数据和接收数据的一致性。IPSec利用Hash函数为每个数据包产生一个加密检查和，接收方在打开包前先计算检查和，若包遭篡改导致检查和不相符，数据包即被丢弃。

·数据可靠性（加密） 在传输前，对数据进行加密，可以保证在传输过程中，即使数据包遭截取，信息也无法被读。该特性在IPSec中为可选项，与IPSec策略的具体设置相关。

·认证数据源发送信任状，由接收方验证信任状的合法性，只有通过认证的系统才可以建立通信连接。

二、基于电子证书的公钥认证

一个架构良好的公钥体系，在信任状的传递中不造成任何信息外泄，能解决很多安全问题。IPSec与特定的公钥体系相结合，可以提供基于电子证书的认证。公钥证书认证在Windows 2000中，适用于对非Windows 2000主机、独立主机，非信任域成员的客户机、或者不运行Kerberos v5认证协议的主机进行身份认证。

三、预置共享密钥认证

IPSec也可以使用预置共享密钥进行认证。预共享意味着通信双方必须在IPSec策略设置中就共享的密钥达成一致。之后在安全协商过程中，信息在传输前使用共享密钥加密，接收端使用同样的密钥解密，如果接收方能够解密，即被认为可以通过认证。但在Windows 2000 IPSec策略中，这种认证方式被认为不够安全而一般不推荐使用。

四、公钥加密

IPSec的公钥加密用于身份认证和密钥交换。公钥加密，也被称为"不对称加密法"，即加解密过程需要两把不同的密钥，一把用来产生数字签名和加密数据，另一把用来验证数字签名和对数据进行解密。

使用公钥加密法，每个用户拥有一个密钥对，其中私钥仅为其个人所知，公钥则可分发给任意需要与之进行加密通信的人。例如：A想要发送加密信息给B，则A需要用B的公钥加密信息，之后只有B才能用他的私钥对该加密信息进行解密。虽然密钥对中两把钥匙彼此相关，但要想从其中一把来推导出另一把，以目前计算机的运算能力来看，这种做法几乎完全不现实。因此，在这种加密法中，公钥可以广为分发，而私钥则需要仔细地妥善保管。

五、Hash函数和数据完整性

Hash信息验证码HMAC（Hash message authentication codes）验证接收消息和发送消息的完全一致性（完整性）。这在数据交换中非常关键，尤其当传输媒介如公共网络中不提供安全保证时更显其重要性。

HMAC结合hash算法和共享密钥提供完整性。Hash散列通常也被当成是数字签名，但这种说法不够准确，两者的区别在于：Hash散列使用共享密钥，而数字签名基于公钥技术。hash算法也称为消息摘要或单向转换。称它为单向转换是因为：

1）双方必须在通信的两个端头处各自执行Hash函数计算；

2）使用Hash函数很容易从消息计算出消息摘要，但其逆向反演过程以目前计算机的运算能力几乎不可实现。

Hash散列本身就是所谓加密检查和或消息完整性编码MIC（Message Integrity Code），通信双方必须各自执行函数计算来验证消息。举例来说，发送方首先使用HMAC算法和共享密钥计算消息检查和，然后将计算结果A封装进数据包中一起发送；接收方再对所接收的消息执行HMAC计算得出结果B，并将B与A进行比较。如果消息在传输中遭篡改致使B与A不一致，接收方丢弃该数据包。

有两种最常用的hash函数：

·HMAC-MD5 MD5（消息摘要5）基于RFC1321。MD5对MD4做了改进，计算速度比MD4稍慢，但安全性能得到了进一步改善。MD5在计算中使用了64个32位常数，最终生成一个128位的完整性检查和。

·HMAC-SHA 安全Hash算法定义在NIST FIPS 180-1，其算法以MD5为原型。 SHA在计算中使用了79个32位常数，最终产生一个160位完整性检查和。SHA检查和长度比MD5更长，因此安全性也更高。

六、加密和数据可靠性

IPSec使用的数据加密算法是DES--Data Encryption Standard（数据加密标准）。DES密钥长度为56位，在形式上是一个64位数。DES以64位（8字节）为分组对数据加密，每64位明文，经过16轮置换生成64位密文，其中每字节有1位用于奇偶校验，所以实际有效密钥长度是56位。 IPSec还支持3DES算法，3DES可提供更高的安全性，但相应地，计算速度更慢。

七、密钥管理

·动态密钥更新

IPSec策略使用"动态密钥更新"法来决定在一次通信中，新密钥产生的频率。动态密钥指在通信过程中，数据流被划分成一个个"数据块"，每一个"数据块"都使用不同的密钥加密，这可以保证万一攻击者中途截取了部分通信数据流和相应的密钥后，也不会危及到所有其余的通信信息的安全。动态密钥更新服务由Internet密钥交换IKE（Internet Key Exchange）提供，详见IKE介绍部分。

IPSec策略允许专家级用户自定义密钥生命周期。如果该值没有设置，则按缺省时间间隔自动生成新密钥。

·密钥长度

密钥长度每增加一位，可能的密钥数就会增加一倍，相应地，破解密钥的难度也会随之成指数级加大。IPSec策略提供多种加密算法，可生成多种长度不等的密钥，用户可根据不同的安全需求加以选择。

·Diffie-Hellman算法

要启动安全通讯，通信两端必须首先得到相同的共享密钥（主密钥），但共享密钥不能通过网络相互发送，因为这种做法极易泄密。

Diffie-Hellman算法是用于密钥交换的最早最安全的算法之一。DH算法的基本工作原理是：通信双方公开或半公开交换一些准备用来生成密钥的"材料数据"，在彼此交换过密钥生成"材料"后，两端可以各自生成出完全一样的共享密钥。在任何时候，双方都绝不交换真正的密钥。

通信双方交换的密钥生成"材料"，长度不等，"材料"长度越长，所生成的密钥强度也就越高，密钥破译就越困难。除进行密钥交换外，IPSec还使用DH算法生成所有其他加密密钥。

来源：赛迪网综合报道

针对不同VLAN执行不同的任务脚本

noreply@blogger.com (FANG Sheng) — Thu, 14 Jun 2007 16:45:00 +0100

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
Set objShell = CreateObject("Wscript.Shell")

For Each objAdapter In colAdapters 
  If Not IsNull(objAdapter.IPAddress) Then 
    For i = LBound(objAdapter.IPAddress) To UBound(objAdapter.IPAddress)
      address = objAdapter.IPAddress(i)
      VLAN30 = instr(address, "10.14.3.")
      VLAN40 = instr(address, "10.14.4.")
      VLAN80 = instr(address, "10.14.8.")
      VLANHighSecurity  = instr(address, "10.14.15.")
      If VLAN40 = 1 Then
        objShell.Run "\\DCServer\NetLogon\Z001.bat", 0, TRUE
      End If
      If VLAN30 = 1 Then
        objShell.Run "\\DCServer\NetLogon\Z002.bat", 0, TRUE
      End If
      If VLAN50 = 1 Then
        objShell.Run "\\DCServer\NetLogon\Z003.bat", 0, TRUE
      End If
      If VLANHighSecurity = 1 Then
        S = split(address, ".")
        H = S(3)
          If H > 0  AND H < 32 Then 
            objShell.Run "\\DCServer\NetLogon\Z004.bat", 0, TRUE
          End If
          If H > 32 AND H < 64 Then 
            objShell.Run "\\DCServer\NetLogon\Z005.bat", 0, TRUE
          End If
          If H > 64 AND H < 96 Then 
            objShell.Run "\\DCServer\NetLogon\Z006.bat", 0, TRUE
          End If
          If H > 96 AND H < 128 Then 
            objShell.Run "\\DCServer\NetLogon\Z007.bat", 0, TRUE
          End If
      End If
    Next
  End If
Next

批量按照邮件清单发送邮件

noreply@blogger.com (FANG Sheng) — Sun, 3 Jun 2007 15:50:00 +0100

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
  ("E:\Mailinglist.xls") '指向姓名和邮件地址列表的路径

intRow = 1

Do Until objExcel.Cells(intRow,1).Value = ""

 Set objEmail = CreateObject("CDO.Message")

 objEmail.From = """发件人姓名"" "
 objEmail.To = objExcel.Cells(intRow, 2).Value
 objEmail.Subject = "邮件主题"  
 objEmail.Textbody = "邮件文本部分的内容"
 objEmail.AddAttachment "E:\Contenu.doc" '附件所在的路径

 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
 ' 1 = cdoSendUsingPickup; 2 = cdoSendUsingPort; 3 = cdoSendUsingExchange
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = "contact@sender.com"
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpaccountname") = "contact@sender.com"
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "发件人姓名"
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
 ' objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/postusername") = "发件人姓名"
 ' objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/postpassword") = ""
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sender.com" 
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'SMTP端口

 objEmail.Configuration.Fields.Update

 objEmail.Send

intRow = intRow + 1

Loop
objExcel.Quit

轻重缓急

noreply@blogger.com (FANG Sheng) — Sun, 20 May 2007 00:17:00 +0100

一定有其他的办法

noreply@blogger.com (FANG Sheng) — Sun, 20 May 2007 00:11:00 +0100

养气

noreply@blogger.com (FANG Sheng) — Sun, 20 May 2007 00:10:00 +0100

Occam's Razor

noreply@blogger.com (FANG Sheng) — Sun, 20 May 2007 00:06:00 +0100

修改IE标题栏

noreply@blogger.com (FANG Sheng) — Fri, 18 May 2007 21:36:00 +0100

REGEDIT4

;功能:恢复IE标题栏
;注意:需要把IE窗口全部关闭后生效
[HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Main]
"Window Title"="Microsoft Internet Explorer"

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"Window Title"="Microsoft Internet Explorer"

常用注册表优化

noreply@blogger.com (FANG Sheng) — Fri, 18 May 2007 21:33:00 +0100

Windows Registry Editor Version 5.00 
;现在将给“我的电脑”的右键菜单中添加“服务”命令 
[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\services] 
@="服务设置"
"SuppressionPolicy"=dword:4000003c 
[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\services\command] 
@=hex(2):25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25,00,5c,00,73,00,79,00,73, 00,74,00,65,00,6d,00,33,00,32,00,5c,00,6d,00,6d,00,63,00,2e,00,65,00,78,00, 65,00,20,00,2f,00,73,00,20,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52, 00,6f,00,6f,00,74,00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00, 32,00,5c,00,73,00,65,00,72,00,76,00,69,00,63,00,65,00,73,00,2e,00,6d,00,73, 00,63,00,20,00,2f,00,73,00,00,00
;现在将给文件夹的右键菜单中添加“在这里打开命令行窗口”的命令
[HKEY_CLASSES_ROOT\Directory\shell\cmd]
@="在这里打开命令行窗口"
[HKEY_CLASSES_ROOT\Directory\shell\cmd\command]
@="cmd.exe /k \"cd %L\""
;在BSOD事件中禁用自动重启动
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl]
"AutoReboot"=dword:00000000
;禁用桌面清理向导
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz]
"NoRun"=dword:00000001
;禁用错误报告但在发生严重错误时通知我
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting]
"DoReport"=dword:00000000
;禁用IMAPi光盘刻录服务
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ImapiService]
"Start"=dword:00000004
;禁用Messenger服务（是为了过滤垃圾信息，不会影响到MSN Messenger或者Windows Messenger软件）
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Messenger]
"Start"=dword:00000004
;禁用Remote Registry 服务
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\RemoteRegistry]
"Start"=dword:00000004
;禁用Windows Time 服务
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time]
"Start"=dword:00000004
;Disable Alerter
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Alerter]
"Start"=dword:00000004
;Disable Background Intelligent Transfer Service
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\BITS]
"Start"=dword:00000004
;Disable ClipBook
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ClipSrv]
"Start"=dword:00000004
;Disable TCP/IP NetBIOS Helper
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LmHosts]
"Start"=dword:00000004
;Disable NVIDIA Driver Helper
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\NVSvc]
"Start"=dword:00000004
;Disable Remote Desktop Help Session Manager
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\RDSessMgr]
"Start"=dword:00000004
;Disable Secondary Log-on
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\seclogon]
"Start"=dword:00000004
;Disable Performance Logs & Alerts
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SysmonLog]
"Start"=dword:00000004
;Disable Automatic Updates
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\wuauserv]
"Start"=dword:00000004
;Disable Help and Support
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\helpsvc]
"Start"=dword:00000004
;Set Print Spooler to "Manual"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Spooler]
"Start"=dword:00000003
;为Internet Explorer添加搜索引擎（以Microsoft Knowledge Base, Altavista, Google, MSN, FileMirrors为序）
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchUrl\MSKB]
@="http://support.microsoft.com/?kbid=%s"
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchUrl\AV]
@="http://www.altavista.com/sites/search/web?q=%s"
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchUrl\GGL]
@="http://www.google.com/search?q=%s"
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchUrl\MSN]
@="http://search.msn.com/results.asp?q=%s"
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchUrl\FM]
@="http://www.filemirrors.com/search.src?file=%s"
;Prevents Internet Explorer windows from being reused
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"AllowWindowReuse"=dword:00000000
;移除语言栏
[-HKEY_CLASSES_ROOT\CLSID\{540D8A8B-1C3F-4E32-8132-530F6A502090}]
@="Language bar"
"MenuTextPUI"="@%SystemRoot%\\System32\\msutb.dll,-325"
;把Internet Explorer可同时下载的文件数目增大到10（默认是2）
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
"MaxConnectionsPer1_0Server"=dword:0000000a
"MaxConnectionsPerServer"=dword:0000000a
;改变菜单显示延迟（加快开始菜单的显示速度）
[HKEY_CURRENT_USER\Control Panel\Desktop]
"MenuShowDelay"="2"
;从我的电脑中删除共享文档文件夹
[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\DelegateFolders\{59031a47-3f72-44a7-89c5-5595fe6b30ee}]
;删除快捷方式的箭头
[HKEY_CLASSES_ROOT\lnkfile]
"IsShortcut"=-
;允许为回收站重命名
HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\ShellFolder]
"Attributes"=hex:50,01,00,20
"CallForAttributes"=dword:00000000
;禁用漫游Windows XP 窗口
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Tour]
"RunCount"=dword:00000000
[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Applets\Tour]
"RunCount"=dword:00000000
;NoLowDiskSpaceChecks 会禁用磁盘剩余空间低的警告
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoLowDiskSpaceChecks"=dword:00000001
;NoRecentDocsmenu 会删除开始菜单中的最近打开的文档菜单
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoRecentDocsMenu"=dword:00000001

右键添加“复制到”和“移动到”选项

noreply@blogger.com (FANG Sheng) — Fri, 18 May 2007 21:29:00 +0100

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers]

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Copy To]
@="{7BA4C740-9E81-11CF-99D3-00AA004AE837}"

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Move To]
@="{C2FBB631-2971-11D1-A18c-00C04FD75D13}"

资源管理器选项的扩展

noreply@blogger.com (FANG Sheng) — Fri, 18 May 2007 21:24:00 +0100

REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\AutoPlay]
"Text"="自动播放"
"Type"="group"
"Bitmap"="C:\\windows\\system\\shell32.dll,12"
"HelpID"="iexplore.hlp#50041"

;Set Autorun
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\AutoPlay\Unknown]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="未知驱动器"
"Type"="checkbox"
"CheckedValue"=dword:00000000
"UncheckedValue"=dword:00000001
"ValueName"="NoDriveTypeAutoRun"
"DefaultValue"=dword:00000000
"HKeyRoot"=dword:80000001
"Mask"=dword:00000001
;"HelpID"="iexplore.hlp#50184"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\AutoPlay\RootDir]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="根目录"
"Type"="checkbox"
"CheckedValue"=dword:00000000
"UncheckedValue"=dword:00000002
"ValueName"="NoDriveTypeAutoRun"
"DefaultValue"=dword:0000002
"HKeyRoot"=dword:80000001
"Mask"=dword:00000002
;"HelpID"="iexplore.hlp#50184"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Autoplay\Floppy]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="软盘"
"Type"="checkbox"
"CheckedValue"=dword:00000000
"UncheckedValue"=dword:00000004
"ValueName"="NoDriveTypeAutoRun"
"DefaultValue"=dword:00000000
"HKeyRoot"=dword:80000001
"Mask"=dword:00000004
;"HelpID"="iexplore.hlp#50184"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\AutoPlay\HardDrive]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="硬盘"
"Type"="checkbox"
"CheckedValue"=dword:00000000
"UncheckedValue"=dword:00000008
"ValueName"="NoDriveTypeAutoRun"
"DefaultValue"=dword:00000008
"HKeyRoot"=dword:80000001
"Mask"=dword:00000008
;"HelpID"="iexplore.hlp#50184"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\AutoPlay\RemoteDrive]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="远程磁盘"
"Type"="checkbox"
"CheckedValue"=dword:00000000
"UncheckedValue"=dword:00000010
"ValueName"="NoDriveTypeAutoRun"
"DefaultValue"=dword:00000000
"HKeyRoot"=dword:80000001
"Mask"=dword:00000010
;"HelpID"="iexplore.hlp#50184"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\AutoPlay\CDRom]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="CD-Rom"
"Type"="checkbox"
"CheckedValue"=dword:00000000
"UncheckedValue"=dword:00000020
"ValueName"="NoDriveTypeAutoRun"
"DefaultValue"=dword:00000020
"HKeyRoot"=dword:80000001
"Mask"=dword:00000020
;"HelpID"="iexplore.hlp#50184"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\AutoPlay\RAMDrive]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="RAM 磁盘"
"Type"="checkbox"
"CheckedValue"=dword:00000000
"UncheckedValue"=dword:00000040
"ValueName"="NoDriveTypeAutoRun"
"DefaultValue"=dword:00000040
"HKeyRoot"=dword:80000001
"Mask"=dword:00000040
;"HelpID"="iexplore.hlp#50184"

;Group - Desktop 
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Desktop]
"Text"="桌面"
"Type"="group"
"Bitmap"="C:\\Windows\\System\\Shell32.dll,35"
"HelpID"="iexplore.hlp#50041"

;Sets Windows version displayed on desktop.
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Desktop\VersionOnDesktop]
"RegPath"="Control Panel\\desktop"
"Text"="在桌面显示 Windows 版本"
"Type"="checkbox"
"CheckedValue"="1"
"UncheckedValue"="0"
"DefaultValue"="1"
"ValueName"="PaintDesktopVersion"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

;Sets Hide Desktop
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Desktop\HideDesktop]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="隐藏桌面内容"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoDesktop"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

;Prevent shell toolbars from being closed
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Desktop\KeepToolbars]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\ActiveDesktop"
"Text"="防止外壳工具栏被关闭"
"Type"="checkbox"
"CheckedValue"=dword:1
"UncheckedValue"=dword:0
"DefaultValue"=dword:0
"ValueName"="NoCloseDragDropBands"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

;Prevent shell toolbars from being moved
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Desktop\LockToolbars]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\ActiveDesktop"
"Text"="防止外壳工具栏被移动"
"Type"="checkbox"
"CheckedValue"=dword:1
"UncheckedValue"=dword:0
"DefaultValue"=dword:0
"ValueName"="NoMovingBands"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

;Active Desktop
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Desktop\AddComp]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\ActiveDesktop"
"Text"="禁止添加组件到活动桌面"
"Type"="checkbox"
"CheckedValue"=dword:1
"UncheckedValue"=dword:0
"DefaultValue"=dword:0
"ValueName"="NoAddingComponents"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Desktop\DelComp]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\ActiveDesktop"
"Text"="禁止从活动桌面删除组件"
"Type"="checkbox"
"CheckedValue"=dword:1
"UncheckedValue"=dword:0
"DefaultValue"=dword:0
"ValueName"="NoDeletingComponents"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Desktop\EditComp]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\ActiveDesktop"
"Text"="禁止编辑活动桌面组件"
"Type"="checkbox"
"CheckedValue"=dword:1
"UncheckedValue"=dword:0
"DefaultValue"=dword:0
"ValueName"="NoEditingComponents"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Desktop\CloseComp]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\ActiveDesktop"
"Text"="禁止关闭活动桌面组件"
"Type"="checkbox"
"CheckedValue"=dword:1
"UncheckedValue"=dword:0
"DefaultValue"=dword:0
"ValueName"="NoClosingComponents"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Desktop\HTMLWallpaper]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\ActiveDesktop"
"Text"="禁用 HTML 墙纸"
"Type"="checkbox"
"CheckedValue"=dword:1
"UncheckedValue"=dword:0
"DefaultValue"=dword:0
"ValueName"="NoHTMLWallPaper"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Desktop\ChangeWallpaper]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\ActiveDesktop"
"Text"="禁止更改墙纸"
"Type"="checkbox"
"CheckedValue"=dword:1
"UncheckedValue"=dword:0
"DefaultValue"=dword:0
"ValueName"="NoChangingWallPaper"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Desktop\INETIcon]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="禁用桌面的 Internet 图标"
"Type"="checkbox"
"CheckedValue"=dword:1
"UncheckedValue"=dword:0
"DefaultValue"=dword:0
"ValueName"="NoInternetIcon"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Desktop\StartInMyDocs]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Documents"
"Text"="禁止在我的文档中打开 (许多程序可能会忽略本设置)"
"Type"="checkbox"
"CheckedValue"=dword:1
"UncheckedValue"=dword:0
"DefaultValue"=dword:0
"ValueName"="DisableStartInMyDocs"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

;Group Explorers Options.
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Explorer]
"Text"="资源管理器选项"
"Type"="group"
"Bitmap"="C:\\Windows\\System\\Shell32.dll,46"
"HelpID"="iexplore.hlp#50041"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Explorer\LinkTracking]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="禁止链接文件跟踪 (忽略 UNC)"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="LinkResolveIgnoreLinkInfo"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Explorer\ShellSecurity]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="只运行确定的外壳扩展名"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="EnforceShellExtensionSecurity"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Explorer\SaveSettings]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="不保存资源管理器设置"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoSaveSettings"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Explorer\BrowseNewProcess]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer"
"Text"="减少资源管理器的崩溃"
"Type"="checkbox"
"CheckedValue"=dword:1
"UncheckedValue"=dword:0
"ValueName"="DesktopProcess"
"DefaultValue"=dword:0
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50048"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Explorer\BrowseNewProcessIE]
"RegPath"="SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\BrowseNewProcess"
"Text"="减少 IE 的崩溃"
"Type"="checkbox"
"CheckedValue"="yes"
"UncheckedValue"="no"
"ValueName"="BrowseNewProcess"
"DefaultValue"="yes"
"HKeyRoot"=dword:80000001
"HelpID"="iexplore.hlp#50178"
"PlugUIText"="@inetcplc.dll,-4733"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Explorer\UnloadDLL]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer"
"Text"="暂未使用动态链接库立即移出内存"
"Type"="checkbox"
"CheckedValue"="1"
"UncheckedValue"="0"
"ValueName"="AlwaysUnloadDLL"
"DefaultValue"="0"
"HKeyRoot"=dword:80000002
;"HelpID"="iexplore.hlp#50048"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Explorer\DblClick]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced"
"Text"="检测意外的双击"
"Type"="checkbox"
"CheckedValue"="1"
"UncheckedValue"="0"
"ValueName"="UseDoubleClickTimer"
"DefaultValue"="1"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50048"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Explorer\AUTOCOMPLETE]
"RegPath"="SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\AutoComplete"
"Text"="在外壳中使用自动完成功能"
"PlugUIText"="@inetcplc.dll,-4842"
"Type"="checkbox"
"CheckedValue"="yes"
"UncheckedValue"="no"
"ValueName"="Use AutoComplete"
"DefaultValue"="yes"
"HKeyRoot"=dword:80000001
"HelpID"="iexplore.hlp#50539"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Explorer\AUTORefresh]
"RegPath"="System\\CurrentControlSet\\Control\\Update"
"Text"="加快文件列表的刷新速度"
"Type"="checkbox"
"CheckedValue"=hex:00,00,00,00
"UncheckedValue"=hex:01,00,00,00
"ValueName"="UpdateMode"
"DefaultValue"=hex:01,00,00,00
"HKeyRoot"=dword:80000002
;"HelpID"="iexplore.hlp#50539"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Explorer\Shortcut]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer"
"Text"="禁止在快捷方式前面添加快捷方式的字样"
"Type"="checkbox"
"CheckedValue"=hex:00, 00, 00, 00
"UncheckedValue"=hex:16, 00, 00, 00
"ValueName"="Link"
"DefaultValue"=hex:00, 00, 00, 00
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50539"

;Group - Icons
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Icons]
"Text"="图标"
"Type"="group"
"Bitmap"=",207"
"HelpID"="iexplore.hlp#50041"

;Set icons title wrap
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Icons\TitleWrap]
"RegPath"="Control Panel\\desktop\\WindowMetrics"
"Text"="图标下的文本允许换行"
"Type"="checkbox"
"CheckedValue"="1"
"UncheckedValue"="0"
"DefaultValue"="1"
"ValueName"="IconTitleWrap"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

;Group - Sound 
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Sound]
"Text"="声音"
"Type"="group"
"Bitmap"="C:\\WINDOWS\\SYSTEM\\SYSTRAY.DLL,1"
"HelpID"="iexplore.hlp#50041"

;Set beep on error
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Sound\Beep]
"RegPath"="Control Panel\\Sound"
"Text"="错误时蜂鸣"
"Type"="checkbox"
"CheckedValue"="Yes"
"UncheckedValue"="No"
"ValueName"="Beep"
"DefaultValue"="no"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50048"

;Group Toolbar
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\TB]
"Text"="工具栏"
"Type"="group"
"Bitmap"=",207"
"HelpID"="iexplore.hlp#50041"

;Set small icons for the toolbar
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\TB\SMALL_ICONS]
"RegPath"="SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\SmallIcons"
"Text"="小图标"
"Type"="checkbox"
"CheckedValue"="yes"
"UncheckedValue"="no"
"ValueName"="SmallIcons"
"DefaultValue"="no"
"HKeyRoot"=dword:80000001
"HelpID"="iexplore.hlp#50048"

;Group - Visual Settings 
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Visual]
"Text"="可视化设置"
"Type"="group"
"Bitmap"="C:\\WINDOWS\\SYSTEM\\SHDOC401.DLL,6"
"HelpID"="iexplore.hlp#50041"

;Set smooth scrolling option in Folder Options - View - Advanced 
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Visual\SmoothScroll]
"RegPath"="Control Panel\\desktop"
"Text"="平滑滚动"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000001
"ValueName"="SmoothScroll"
"HKeyRoot"=dword:80000001
"HelpID"="iexplore.hlp#50107"

;Set minimise animation
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Visual\MinAnimate]
"RegPath"="Control Panel\\desktop\\WindowMetrics"
"Text"="动画方式打开关闭窗口"
"Type"="checkbox"
"CheckedValue"="1"
"UncheckedValue"="0"
"DefaultValue"="1"
"ValueName"="MinAnimate"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Visual\DragFullWin]
"Type"="checkbox"
"Text"="拖动时显示窗口内容"
"HKeyRoot"=dword:80000001
"RegPath"="Control Panel\\Desktop"
"ValueName"="DragFullWindows"
"CheckedValue"="1"
"UncheckedValue"="0"
"DefaultValue"="1"
"SPIAction"=dword:00000025
"HelpID"="update.hlp#51074"

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Visual\FontSmooth]
"Type"="checkbox"
"Text"="平滑屏幕字体边缘"
"HKeyRoot"=dword:80000001
"RegPath"="Control Panel\\Desktop"
"ValueName"="FontSmoothing"
"CheckedValueNT"="2"
"CheckedValueW95"="1"
"UncheckedValue"="0"
"DefaultValue"="0"
"SPIAction"=dword:0000004b
"SPIParamON"=dword:00000002
"HelpID"="update.hlp#51073"

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Visual\HideIcons]
"Type"="checkbox"
"Text"="以 WEB 页方式查看时隐藏桌面图标"
"HKeyRoot"=dword:80000001
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced"
"ValueName"="HideIcons"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"="0"
"HelpID"="update.hlp#51106"

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Visual\ExtraToolTips]
"RegPath"="Control Panel\\desktop"
"Text"="附加工具提示"
"Type"="checkbox"
"CheckedValue"=dword:00000080
"UncheckedValue"=dword:00000000
"ValueName"="UserPreferenceMask"
"DefaultValue"=dword:00000080
"HKeyRoot"=dword:80000001
"Mask"=dword:00000080
;"HelpID"="iexplore.hlp#50184"

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Visual\Combobox]
"RegPath"="Control Panel\\desktop"
"Text"="组合框动画效果"
"Type"="checkbox"
"CheckedValue"=dword:00000008
"UncheckedValue"=dword:00000000
"ValueName"="UserPreferenceMask"
"DefaultValue"=dword:00000008
"HKeyRoot"=dword:80000001
"Mask"=dword:00000008
;"HelpID"="iexplore.hlp#50184"

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Visual\Listbox]
"RegPath"="Control Panel\\desktop"
"Text"="列表框动画效果"
"Type"="checkbox"
"CheckedValue"=dword:00000010
"UncheckedValue"=dword:00000000
"ValueName"="UserPreferenceMask"
"DefaultValue"=dword:00000010
"HKeyRoot"=dword:80000001
"Mask"=dword:00000010
;"HelpID"="iexplore.hlp#50184"


;==========================================================================
;==========================================================================

;Group - Mouse 
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Mouse]
"Text"="鼠标"
"Type"="group"
"Bitmap"="C:\\windows\\system\\main.cpl,0"
"HelpID"="iexplore.hlp#50041"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Mouse\Wheel]
"Text"="鼠标中键滚屏"
"Type"="group"
"Bitmap"="C:\\windows\\system\\main.cpl,0"
"HelpID"="iexplore.hlp#50041"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Mouse\Wheel\0]
"RegPath"="Control Panel\\desktop"
"Text"="不滚动"
"Type"="radio"
"CheckedValue"="0"
"ValueName"="WheelScrollLines"
"DefaultValue"="3"
"HKeyRoot"=dword:80000001
;"HelpID"="update.hlp#51104"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Mouse\Wheel\1]
"RegPath"="Control Panel\\desktop"
"Text"="1 行"
"Type"="radio"
"CheckedValue"="1"
"ValueName"="WheelScrollLines"
"DefaultValue"="3"
"HKeyRoot"=dword:80000001
;"HelpID"="update.hlp#51104"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Mouse\Wheel\2]
"RegPath"="Control Panel\\desktop"
"Text"="3 行 (默认)"
"Type"="radio"
"CheckedValue"="3"
"ValueName"="WheelScrollLines"
"DefaultValue"="3"
"HKeyRoot"=dword:80000001
;"HelpID"="update.hlp#51104"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Mouse\Wheel\3]
"RegPath"="Control Panel\\desktop"
"Text"="5 行"
"Type"="radio"
"CheckedValue"="5"
"ValueName"="WheelScrollLines"
"DefaultValue"="3"
"HKeyRoot"=dword:80000001
;"HelpID"="update.hlp#51104"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Mouse\Wheel\4]
"RegPath"="Control Panel\\desktop"
"Text"="9 行"
"Type"="radio"
"CheckedValue"="9"
"ValueName"="WheelScrollLines"
"DefaultValue"="3"
"HKeyRoot"=dword:80000001
;"HelpID"="update.hlp#51104"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Mouse\Wheel\5]
"RegPath"="Control Panel\\desktop"
"Text"="一页"
"Type"="radio"
"CheckedValue"="-1"
"ValueName"="WheelScrollLines"
"DefaultValue"="3"
"HKeyRoot"=dword:80000001
;"HelpID"="update.hlp#51104"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Mouse\Wheel\6]
"RegPath"="Control Panel\\desktop"
"Text"="两页"
"Type"="radio"
"CheckedValue"="-2"
"ValueName"="WheelScrollLines"
"DefaultValue"="3"
"HKeyRoot"=dword:80000001
;"HelpID"="update.hlp#51104"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Mouse\xmouse]
"Text"="X-鼠标"
"Type"="group"
"Bitmap"="C:\\windows\\system\\main.cpl,0"
"HelpID"="iexplore.hlp#50041"

;Turn on X-Mouse
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Mouse\xmouse\xmouse]
"RegPath"="Control Panel\\desktop"
"Text"="X-鼠标"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"ValueName"="UserPreferenceMask"
"DefaultValue"=dword:00000000
"HKeyRoot"=dword:80000001
"Mask"=dword:00000001
;"HelpID"="iexplore.hlp#50184"

;If on bring active window to the top
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Mouse\xmouse\xmouseoption]
"Text"="X-鼠标选项"
"Type"="group"
"Bitmap"="C:\\windows\\system\\main.cpl,0"
"HelpID"="iexplore.hlp#50041"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Mouse\xmouse\xmouseoption\AutoRaise]
"RegPath"="Control Panel\\desktop"
"Text"="将窗口带到上层 (xmouse)"
"Type"="checkbox"
"CheckedValue"=dword:00000040
"UncheckedValue"=dword:00000000
"ValueName"="UserPreferenceMask"
"DefaultValue"=dword:00000000
"HKeyRoot"=dword:80000001
"Mask"=dword:00000040
;"HelpID"="iexplore.hlp#50184"

;==========================================================================
;==========================================================================

;Group - StartMenu 
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu]
;Group - StartMenu 
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu]
"Text"="开始菜单"
"Type"="group"
"Bitmap"="C:\\windows\\system\\shell32.dll,40"
"HelpID"="iexplore.hlp#50041"

;Set menu animation
;--------------------------------------------------------------------------
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\Animation]
"RegPath"="Control Panel\\desktop"
"Text"="菜单动画"
"Type"="checkbox"
"CheckedValue"=dword:00000002
"UncheckedValue"=dword:00000000
"ValueName"="UserPreferenceMask"
"DefaultValue"=dword:00000002
"HKeyRoot"=dword:80000001
"Mask"=dword:00000002
;"HelpID"="iexplore.hlp#50184"

;Set menu Underlines
;--------------------------------------------------------------------------
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\Underline]
"RegPath"="Control Panel\\desktop"
"Text"="菜单下划线"
"Type"="checkbox"
"CheckedValue"=dword:00000020
"UncheckedValue"=dword:00000000
"ValueName"="UserPreferenceMask"
"DefaultValue"=dword:00000020
"HKeyRoot"=dword:80000001
"Mask"=dword:00000020
;"HelpID"="iexplore.hlp#50184"

;Lock Start Menu
;--------------------------------------------------------------------------
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\LockStartMenu]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="防止开始菜单程序组被更改"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoChangeStartMenu"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

;Cascade Start Menu
;--------------------------------------------------------------------------
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\Cascade]
"Type"="checkbox"
"Text"="层叠开始菜单(类似 Win95) 仅支持 IE5"
"HKeyRoot"=dword:80000001
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced"
"ValueName"="StartMenuScrollPrograms"
"CheckedValue"="false"
"UncheckedValue"="true"
"DefaultValue"="true"
"HelpID"="iexplore.hlp#50107"

;Set animated "Click here to begin"
;--------------------------------------------------------------------------
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\StartBanner]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="禁止开始菜单栏 (Win 95)"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoStartBanner"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

;Set Menus drop Left
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\MenuDrop]
"RegPath"="Control Panel\\Desktop"
"Text"="菜单层叠到右侧"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000001
"ValueName"="MenuDropAlignment"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

;Group - StartMenu - Speed 
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\Speed]
"Text"="鼠标速度"
"Type"="group"
"Bitmap"="C:\\windows\\system\\shell32.dll,40"
"HelpID"="iexplore.hlp#50041"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\Speed\Max]
"RegPath"="Control Panel\\desktop"
"Text"="最快"
"Type"="radio"
"CheckedValue"="0"
"ValueName"="MenuShowDelay"
"DefaultValue"="400"
"HKeyRoot"=dword:80000001
;"HelpID"="update.hlp#51104"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\Speed\Quick]
"RegPath"="Control Panel\\desktop"
"Text"="较快"
"Type"="radio"
"CheckedValue"="150"
"ValueName"="MenuShowDelay"
"DefaultValue"="400"
"HKeyRoot"=dword:80000001
;"HelpID"="update.hlp#51104"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\Speed\Standard]
"RegPath"="Control Panel\\desktop"
"Text"="默认"
"Type"="radio"
"CheckedValue"="400"
"ValueName"="MenuShowDelay"
"DefaultValue"="400"
"HKeyRoot"=dword:80000001
;"HelpID"="update.hlp#51104"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\Speed\Slow]
"RegPath"="Control Panel\\desktop"
"Text"="较慢"
"Type"="radio"
"CheckedValue"="600"
"ValueName"="MenuShowDelay"
"DefaultValue"="400"
"HKeyRoot"=dword:80000001
;"HelpID"="update.hlp#51104"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\Speed\Slowest]
"RegPath"="Control Panel\\desktop"
"Text"="必需单击弹出菜单"
"Type"="radio"
"CheckedValue"="600"
"ValueName"="MenuShowDelay"
"DefaultValue"="1000"
"HKeyRoot"=dword:80000001
;"HelpID"="update.hlp#51104"

;Group - StartMenu - Inbuilt Menus
;--------------------------------------------------------------------------

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus]
"Text"="子菜单"
"Type"="group"
"Bitmap"="C:\\windows\\system\\shell32.dll,20"
"HelpID"="iexplore.hlp#50041"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Favourite]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="隐藏收藏夹菜单"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoFavoritesMenu"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Documents]
"Text"="文档菜单"
"Type"="group"
"Bitmap"="C:\\windows\\system\\shell32.dll,21"
"HelpID"="iexplore.hlp#50041"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Documents\Documents]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="隐藏文档菜单"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoRecentDocsMenu"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Documents\DontAdd]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="不添加到文档菜单"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoRecentDocsHistory"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Documents\ClearDocs]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="退出时清除文档菜单"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="ClearRecentDocsOnExit"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Find]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="隐藏查找菜单"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoFind"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Run]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="隐藏运行菜单项目"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoRun"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Logoff]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="隐藏注销菜单项目"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoLogoff"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Settings]
"Text"="菜单设置"
"Type"="group"
"Bitmap"="C:\\windows\\system\\shell32.dll,22"
"HelpID"="iexplore.hlp#50041"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Settings\SetFolders]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="禁用控制面板和打印机"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoSetFolders"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Settings\SetTaskbar]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="禁用任务栏和开始菜单"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoSetTaskbar"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Settings\NoFoldersOptions]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="禁用文件夹选项"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoFolderOptions"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Settings\NoActiveDesktop]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="禁用活动桌面"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoSetActiveDesktop"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Settings\NoWindowsUpdate]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="禁用 Windows 更新"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoWindowsUpdate"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\StartMenu\InbuiltMenus\Settings\NoWindowsUpdateDeviceManager]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer"
"Text"="在设备管理器中禁用 Windows 更新"
"Type"="checkbox"
"CheckedValue"=dword:00000001
"UncheckedValue"=dword:00000000
"DefaultValue"=dword:00000000
"ValueName"="NoDevMgrUpdate"
"HKeyRoot"=dword:80000001
;"HelpID"="iexplore.hlp#50107"

自动清除内存中多余的DLL资料

noreply@blogger.com (FANG Sheng) — Fri, 18 May 2007 21:21:00 +0100

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer]
"AlwaysUnloadDLL"=dword:00000001

取消IE自动缩放图片功能

noreply@blogger.com (FANG Sheng) — Fri, 18 May 2007 21:20:00 +0100

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]

"Enable AutoImageResize"="no"

检测域中电脑所安装软件清单

noreply@blogger.com (FANG Sheng) — Fri, 18 May 2007 21:19:00 +0100

strDomainName = InputBox ("Please enter the internal Domain Name:","Enter the Internal Domain Name","Sitename.local")
arrDomLevels = Split(strDomainName, ".")
strADsPath = "dc=" & Join(arrDomLevels, ",dc=")


Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE

strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
strEntry1a = "DisplayName"
strEntry1b = "QuietDisplayName"
strEntry3 = "VersionMajor"
strEntry4 = "VersionMinor"
 
Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
    "Select Name, Location from 'LDAP://"&strADsPath&"' " _
        & "Where objectClass='computer'"  
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set of = oFSO.CreateTextFile("c:\scripts\pcsoft.txt", True, True)

Do Until objRecordSet.EOF
    On Error Resume Next
    sPC = objRecordSet.Fields("Name").Value
    Set objReg = GetObject("winmgmts://" & sPC & _
  "/root/default:StdRegProv")
 objReg.EnumKey HKLM, strKey, arrSubkeys
 of.writeline " "
 of.writeline "### "&sPC&" ###"
 of.writeline " "
 For Each strSubkey In arrSubkeys
   sName = ""
   intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
    strEntry1a, strValue1)
   If intRet1 <> 0 Then
     objReg.GetStringValue HKLM, strKey & strSubkey, _
     strEntry1b, strValue1
   End If
   If strValue1 <> "" Then
      If InStr(strValue1,"Hotfix") <> 0 Or InStr(strValue1,"Update for Windows")<> 0  Then 
     Else  
        
      sName = strValue1
    objReg.GetDWORDValue HKLM, strKey & strSubkey, _
      strEntry3, intValue3
     objReg.GetDWORDValue HKLM, strKey & strSubkey, _
     strEntry4, intValue4
    If intValue3 <> "" Then
       sName =  sName&" (Version: "& intValue3 & "." & intValue4&")"
      End If  
         of.writeline sName
      
  End If  
    End If
    
Next
objRecordSet.MoveNext
Loop

of.close
MsgBox "Done!"

电脑硬件基本信息搜集

noreply@blogger.com (FANG Sheng) — Fri, 18 May 2007 21:13:00 +0100

'本脚本的功能是检测硬件的信息。
On Error Resume Next
temp=0
set wshshell=wscript.createobject("wscript.shell")
'启动WMI服务
wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,True
wshshell.run ("%comspec% /c sc config  winmgmt start= auto"),0,True
wshshell.run ("%comspec% /c net start winmgmt"),0
'用一个文本来记录硬件信息
Set WshNetwork = WScript.Createobject("WScript.Network")
computername=WshNetwork.ComputerName

set fso=createobject("scripting.filesystemobject")
tempfilter="\\server\hardware\"& computername &".txt"
'\\server\hardware\是服务器存放配件表的位置。共享要完全享
set tempfile=fso.createtextfile(tempfilter)

strComputer = "."
Set objWMIService = Getobject("winmgmts:\\" & strComputer & "\root\cimv2")
'主板
set board =objwmiservice.execQuery("select * from win32_baseboard")
for each item in board
  board2="主板:" & item.Product
next
'CPU
set cpu =objwmiservice.execQuery("select * from win32_processor")
for each item in cpu
  cpu2= "CPU:" & item.Name
next
'内存
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)
For Each objItem in colItems
  a=objitem.capacity/1048576
  temp=temp+objitem.capacity
  n=n+1
Next
memory=temp/1048576
if n=1 then
  memory2= "内存: " & n & "条" &a&"M"
else
  memory2= "内存: " & n & "条" &a&"M"&" 总计"&memory&"M"
end if
'硬盘
set disk =objwmiservice.execQuery("select * from win32_diskdrive")
for each item in disk
  disk2= "硬盘: " &  item.Model
next
'显卡
set video =objwmiservice.execQuery("select * from win32_videocontroller",,48)
for each item in video
  video2= "显卡: " & item.Description
next
'网卡
set network =objwmiservice.execQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
for each item in network
  lan="网卡:" & item.description
next

tempfile.writeline(board2)
tempfile.writeline(cpu2)
tempfile.writeline(memory2)
tempfile.writeline(disk2)
tempfile.writeline(video2)
tempfile.writeline(lan)

域中电脑软硬件基本信息统计

noreply@blogger.com (FANG Sheng) — Fri, 18 May 2007 21:01:00 +0100

strDomainName = InputBox ("Please enter the internal Domain Name:","Script 

for auditting machines on Domain","Sitename.local")
arrDomLevels = Split(strDomainName, ".")
strADsPath = "dc=" & Join(arrDomLevels, ",dc=")


Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"'

Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
   "Select Name, Location from 'LDAP://"&strADsPath&"' " _
      & "Where objectClass='computer'"  
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set of = oFSO.CreateTextFile("E:\DomainPCs.txt", True, True)

Do Until objRecordSet.EOF
   On Error Resume Next
   sPC = objRecordSet.Fields("Name").Value
    of.writeline " "
 of.writeline "### "&sPC&" ###"
 of.writeline " "

 
 Set objWMILocator = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & sPC & "\root\cimv2")
    
    If Err = 0 Then 
    
    
 Set col =  objWMILocator.ExecQuery _
    ("Select * from win32_computersystem")
 
 For Each item In col
  of.writeline  "General Info"
  of.writeline  " Name: "&item.Caption 
  of.writeline  " Username: "&item.username
  of.writeline  " Domain: "&item.Domain
  of.writeline  " Role: "&fDomainRole(item.domainrole) 
  of.writeline  " Manufacturer: "&fCheckValue

(item.manufacturer, Empty, Empty) 
  of.writeline  " Model: "&fCheckValue(item.model, Empty, 

Empty) 
  of.writeline  " Type: "&item.systemtype 
  of.writeline  " Processors: "&item.numberofprocessors 
  of.writeline  " Memory: "&fFormatNum

(item.totalphysicalmemory,True) 
 Next
 Set col = Nothing
 Set objWMIInstance = objWMILocator.ExecQuery _
  ("select * from win32_operatingsystem",,48)
 For Each item In objWMIInstance
  If InStr(1, item.Caption, "2000") Then
   strOS = "2000"
    
  Elseif InStr(1, item.caption, "XP") Then
   strOS = "XP"
    
  Elseif InStr(1, item.caption, "2003") Then
   strOS = "2003"
    
  Else
   strOS = "WinNT9x"
    
  End If
   
  If strOS = "2003" Then
    of.writeline " OS: "&Replace(item.Caption, 

"Microsoft(R) Windows(R)", "")
  Else
   of.writeline " OS: "&Replace(item.Caption, 

"Microsoft Windows", "")
  End If
  of.writeline " Version: "&item.Version 
  of.writeline " SP: "&item.csdversion 
  of.writeline " OS Lang: "&fLangVers(Hex

(item.oslanguage)) 
  of.writeline " Serial #: "&item.serialnumber 
 Next
 Set objWMIInstance = Nothing
 
 of.writeline "  "
 of.writeline  "System Info"
 Set objWMIInstance = objWMILocator.ExecQuery _
  ("select * from win32_BIOS",,48)
 
 For Each item In objWMIInstance
  of.writeline " BIOS Name: "&item.Name
  of.writeline " BIOS Version: "&item.SMBIOSBIOSVersion 
  of.writeline " Serial #: "&item.SerialNumber 
 Next
 Set objWMIInstance = Nothing
 
 Set objWMIInstance = objWMILocator.ExecQuery _
  ("select buildversion from win32_wmisetting",,48)
 For Each item In objWMIInstance
  of.writeline " WMI Version: "&item.buildversion
 Next
 Set objWMIInstance = Nothing
 
 
 
 Set objWMIInstance = objWMILocator.ExecQuery _
  ("select tag, description, devicetype, enabled from 

win32_onboarddevice")
  
  i = 0
  For Each item In objWMIInstance
   i =i + 1
 Next
  
  of.writeline  " Onboard Devices: "&i
 For Each item In objWMIInstance
  of.writeline  "  Description: "&item.description 
  of.writeline  "  Enabled: "&item.enabled 
 Next
 Set objWMIInstance = Nothing
 
 of.writeline "  "
 of.writeline "Processor Infomation"
 Set objWMIInstance = objWMILocator.ExecQuery _
  ("select * from win32_processor")
 of.writeline " Total processor slots: "&objWMIInstance.Count
 For Each item In objWMIInstance
   If item.ProcessorID <>"0000000000000000" Then 
   of.writeline "  "

   of.writeline " Processor ID: "&item.deviceID
   of.writeline " Name: "&item.Name
    
   of.writeline " Type: "&item.Description 
    
   of.writeline " Family: "&fProcFamily(item.family) 
    
   of.writeline " Speed: "&item.currentclockspeed & " 

Mhz" 
   of.writeline " Cache Size: "&fCheckValue

(item.l2cachesize, Empty, " Kb") 
   of.writeline " Cache Speed: "&fCheckValue

(item.l2cachespeed, Empty, " Mhz") 
   of.writeline " External Clock: "&fCheckValue

(item.extClock, Empty, " Mhz") 
   of.writeline " Interface: "&fProcUpgrademethod

(item.upgrademethod)
   of.writeline " CPU Load: "&fCheckValue

(item.loadpercentage, Empty, "%") 
   'of.writeline item.processorid
   End If
 Next
 Set objWMIInstance = Nothing
 of.writeline "  "
 of.writeline "Memory Infomation"
 
 Set objWMIInstance = objWMILocator.ExecQuery _
  ("Select memorydevices from Win32_PhysicalMemoryArray",,48)
  marry = 0
 For Each item In objWMIInstance
 marry = marry + item.memorydevices
 Next
 of.writeline " Total Memory Slots: "&marry
 Set objWMIInstance = Nothing
 query = "select capacity, formfactor, memorytype, banklabel, 

devicelocator " _
   & "from win32_physicalmemory"
 Set objWMIInstance = objWMILocator.ExecQuery(query)
 a = objWMIInstance.Count
 of.writeline " Used memory slots: "&a
 bcounter =0
 For Each item In objWMIInstance
   
   of.writeline "  "

  If item.BankLabel="" Then
   b = item.DeviceLocator
  Else
   b = item.BankLabel
  End If
  
  of.writeline "  Bank Name: "&b
  of.writeline "  Memory Size: "&fFormatNum

(item.Capacity, True)
  of.writeline "  Memory Form: "&fMemoryForm

(item.FormFactor)
  of.writeline "  Memory Tpye: "&fMemoryType

(item.MemoryType)
  
 Next
 Set objWMIInstance = Nothing
 of.writeline "  "
 of.writeline "Disk Info"
 Set objWMIInstance = objWMILocator.ExecQuery _
  ("select manufacturer, description, caption, interfacetype, 

partitions, size, scsibus, scsitargetid, status from win32_diskdrive")
 ttlDisks = objWMIInstance.Count
 of.writeline " Total Disks: "&ttlDisks
 
 For Each item In objWMIInstance
   of.writeline "  "

   If strOS = "2000" Then
       strDiskDescription = item.Caption
   Elseif strOS = "2003" Then
       strDiskDescription = item.Caption 
   Elseif strOS = "XP" Then
       strDiskDescription = item.Caption 
   Else
       strDiskDescription = item.manufacturer & " " & 

item.Description
   End If
   
   of.writeline " "&(Replace(item.deviceID, "\\.\", "") 

& " - " & strDiskDescription) & " - " & item.interfacetype
   of.writeline " Status: "&item.Status 
   of.writeline " Partitions: "&item.partitions 
   of.writeline " Type: "&item.interfacetype 
   of.writeline " Size: "&fFormatNum(item.Size, 

False) 
   If item.interfacetype = "IDE" Then
    of.writeline " IDE Bus#: 

"&item.scsibus 
    of.writeline " IDE ID: "&item.scsitargetid 
   Else
    of.writeline " SCSI Bus#: 

"&item.scsibus 
    of.writeline " SCSI ID: 

"&item.scsitargetid 
   End If
   
   Set objPartitionSet = item.Associators_

("Win32_DiskDriveToDiskPartition", "Win32_DiskPartition")
   For Each objPartition In objPartitionSet
    Set objDriveSet = objPartition.Associators_

("Win32_LogicalDiskToPartition", "Win32_LogicalDisk")
    
    For Each objDrive In objDriveSet
     If objPartition.bootpartition Then
      of.writeline " Drive: 

"&objDrive.Caption & " - Boot Partition"
     Else
      of.writeline " Drive: 

"&objDrive.Caption 
     End If
     of.writeline " Label: 

"&objDrive.VolumeName 
     of.writeline " File Sys: 

"&objDrive.FileSystem 
     of.writeline " Size: "&fFormatNum

(objDrive.Size, False) 
     of.writeline " Free: "&fFormatNum

(objDrive.FreeSpace, False) 
     of.writeline " S/N: "& 

fCheckValue(objDrive.VolumeSerialNumber, Empty, Empty) 
      
     
    Next
   Next
   
  Next
 Set objWMIInstance = Nothing
 
 of.writeline "  "
 of.writeline "Other Info"
  Set objWMIInstance = objWMILocator.ExecQuery _
  ("select * from Win32_CDROMDrive")
 of.writeline "  "

 of.writeline " Total CDROM Drives: "&objWMIInstance.Count
 For Each item In objWMIInstance
    of.writeline " Name: "&item.Caption
    of.writeline " Drive: "&item.id
 Next
 Set objWMIInstance = Nothing
 Set objWMIInstance = objWMILocator.ExecQuery _
  ("select * from Win32_FloppyDrive")
 of.writeline "  "

 of.writeline " Total FloppyDrives: "&objWMIInstance.Count
 For Each item In objWMIInstance
    of.writeline " Name: "&item.Caption
   ' of.writeline " Drive: "&item.DeviceID
 Next
 Set objWMIInstance = Nothing
 of.writeline "  "

 
 
 Set objWMIInstance = objWMILocator.ExecQuery _
  ("select * from Win32_TapeDrive")
 
 of.writeline " Tape Drives: "&objWMIInstance.Count
 For Each item In objWMIInstance
    of.writeline " Name: "&item.Caption
   ' of.writeline " Drive: "&item.id
 Next
 Set objWMIInstance = Nothing
 of.writeline "  "
 
 Set objWMIInstance = objWMILocator.ExecQuery _
  ("select * from Win32_Keyboard")
 For Each item In objWMIInstance
    of.writeline " Keyboard Type: "&item.Caption
    
 Next
 Set objWMIInstance = Nothing
  of.writeline "  "
 
 
 
 Set objWMIInstance = objWMILocator.ExecQuery _
  ("select * from Win32_DesktopMonitor")
  
 For Each item In objWMIInstance
    of.writeline " Monitor Type: "&item.Caption
    
 Next
 Set objWMIInstance = Nothing
  of.writeline "  "
 
 Set objWMIInstance = objWMILocator.ExecQuery _
  ("select * from win32_networkadapterconfiguration WHERE 

IPEnabled='TRUE' AND ServiceName<>'AsyncMac' AND ServiceName<>'VMnetx' " _
  & "AND ServiceName<>'VMnetadapter' AND ServiceName<>'Rasl2tp' 

AND ServiceName<>'PptpMiniport' AND ServiceName<>'Raspti' " _
  & "AND ServiceName<>'NDISWan' AND ServiceName<>'RasPppoe' AND 

ServiceName<>'NdisIP' AND ServiceName<>''")

 of.writeline " Network Adapters: "&objWMIInstance.Count
 
 For Each item In objWMIInstance
  If UCase(item.ipenabled)="TRUE" Then
   blnIPState = "(Enabled)"
  Else
   blnIPState = "(Disabled)"
  End If
  of.writeline " Adapter Name: "&fCheckValue

(item.Description & " - " & blnIPState, Empty, Empty)
    
 Next
 Set objWMIInstance = Nothing
  of.writeline "  "
 





End If

objRecordSet.MoveNext
Loop


Function fMemoryType(value)
 Dim dictMemType
 Set dictMemType = CreateObject("scripting.dictionary")
 dictMemType.Add "0","Unknown"
 dictMemType.Add "1","Other"
 dictMemType.Add "2","DRAM"
 dictMemType.Add "3","Synchronous DRAM"
 dictMemType.Add "4","Cache DRAM"
 dictMemType.Add "5","EDO"
 dictMemType.Add "6","EDRAM"
 dictMemType.Add "7","VRAM"
 dictMemType.Add "8","SRAM"
 dictMemType.Add "9","RAM"
 dictMemType.Add "10","ROM"
 dictMemType.Add "11","Flash"
 dictMemType.Add "12","EEPROM"
 dictMemType.Add "13","FEPROM"
 dictMemType.Add "14","EPROM"
 dictMemType.Add "15","CDRAM"
 dictMemType.Add "16","3DRAM"
 dictMemType.Add "17","SDRAM"
 dictMemType.Add "18","SGRAM"
 dictMemType.Add "19","RDRAM"
 dictMemType.Add "20","DDR"
 fMemoryType = dictMemType.Item(CStr(value))
 Set dictMemType = Nothing
End Function



Function fMemoryForm(value)
 Dim dictMemForm
 Set dictMemForm = CreateObject("scripting.dictionary")
 dictMemForm.Add "0","Unknown"
 dictMemForm.Add "1","Other"
 dictMemForm.Add "2","SIP"
 dictMemForm.Add "3","DIP"
 dictMemForm.Add "4","ZIP"
 dictMemForm.Add "5","SOJ"
 dictMemForm.Add "6","Proprietary"
 dictMemForm.Add "7","SIMM"
 dictMemForm.Add "8","DIMM"
 dictMemForm.Add "9","TSOP"
 dictMemForm.Add "10","PAG"
 dictMemForm.Add "11","RIMM"
 dictMemForm.Add "12","SODIMM"
 dictMemForm.Add "13","SRIMM"
 dictMemForm.Add "14","SMD"
 dictMemForm.Add "15","SSMP"
 dictMemForm.Add "16","QFD"
 dictMemForm.Add "17","TQFP"
 dictMemForm.Add "18","SOIC"
 dictMemForm.Add "19","LCC"
 dictMemForm.Add "20","PLCC"
 dictMemForm.Add "21","BGA"
 dictMemForm.Add "22","FPBGA"
 dictMemForm.Add "23","LGA"
 fMemoryForm = dictMemForm.Item(CStr(value))
 Set dictMemForm = Nothing
End Function

Function fProcUpgradeMethod(value)
 Dim dictInterface
 Set dictInterface = CreateObject("scripting.dictionary")
 dictInterface.Add "1","Other"
 dictInterface.Add "2","Unknown"
 dictInterface.Add "3","Daughter Board"
 dictInterface.Add "4","ZIF Socket"
 dictInterface.Add "5","Replacement/Piggy Back"
 dictInterface.Add "6","None"
 dictInterface.Add "7","LIF Socket"
 dictInterface.Add "8","Slot 1"
 dictInterface.Add "9","Slot 2"
 dictInterface.Add "10","370 Pin Socket"
 dictInterface.Add "11","Slot A"
 dictInterface.Add "12","Slot M"
 fProcUpgradeMethod = dictInterface.Item(CStr(value))
 Set dictInterface = Nothing
End Function


Function fProcFamily(value)
 Dim dictProc
 Set dictProc = CreateObject("scripting.dictionary")
 dictProc.Add "1", "Other"
 dictProc.Add "2", "Unknown"
 dictProc.Add "3", "8086"
 dictProc.Add "4", "80286"
 dictProc.Add "5", "80386"
 dictProc.Add "6", "80486"
 dictProc.Add "7", "8087"
 dictProc.Add "8", "80287"
 dictProc.Add "9", "80387"
 dictProc.Add "10", "80487"
 dictProc.Add "11", "Pentium brand"
 dictProc.Add "12", "Pentium Pro"
 dictProc.Add "13", "Pentium II"
 dictProc.Add "14", "Pentium processor with MMX technology"
 dictProc.Add "15", "Celeron"
 dictProc.Add "16", "Pentium II Xeon"
 dictProc.Add "17", "Pentium III"
 dictProc.Add "18", "M1 Family"
 dictProc.Add "19", "M2 Family"
 dictProc.Add "24", "K5 Family"
 dictProc.Add "25", "K6 Family"
 dictProc.Add "26", "K6-2"
 dictProc.Add "27", "K6-3"
 dictProc.Add "28", "AMD Athlon Processor Family"
 dictProc.Add "29", "AMD Duron Processor"
 dictProc.Add "30", "AMD2900 Family"
 dictProc.Add "31", "K6-2+"
 dictProc.Add "32", "Power PC Family"
 dictProc.Add "33", "Power PC 601"
 dictProc.Add "34", "Power PC 603"
 dictProc.Add "35", "Power PC 603+"
 dictProc.Add "36", "Power PC 604"
 dictProc.Add "37", "Power PC 620"
 dictProc.Add "38", "Power PC X704"
 dictProc.Add "39", "Power PC 750"
 dictProc.Add "48", "Alpha Family"
 dictProc.Add "49", "Alpha 21064"
 dictProc.Add "50", "Alpha 21066"
 dictProc.Add "51", "Alpha 21164"
 dictProc.Add "52", "Alpha 21164PC"
 dictProc.Add "53", "Alpha 21164a"
 dictProc.Add "54", "Alpha 21264"
 dictProc.Add "55", "Alpha 21364"
 dictProc.Add "64", "MIPS Family"
 dictProc.Add "65", "MIPS R4000"
 dictProc.Add "66", "MIPS R4200"
 dictProc.Add "67", "MIPS R4400"
 dictProc.Add "68", "MIPS R4600"
 dictProc.Add "69", "MIPS R10000"
 dictProc.Add "80", "SPARC Family"
 dictProc.Add "81", "SuperSPARC"
 dictProc.Add "82", "microSPARC II"
 dictProc.Add "83", "microSPARC IIep"
 dictProc.Add "84", "UltraSPARC"
 dictProc.Add "85", "UltraSPARC II"
 dictProc.Add "86", "UltraSPARC IIi"
 dictProc.Add "87", "UltraSPARC III"
 dictProc.Add "88", "UltraSPARC IIIi"
 dictProc.Add "96", "68040"
 dictProc.Add "97", "68xxx Family"
 dictProc.Add "98", "68000"
 dictProc.Add "99", "68010"
 dictProc.Add "100", "68020"
 dictProc.Add "101", "68030"
 dictProc.Add "112", "Hobbit Family"
 dictProc.Add "120", "Crusoe TM5000 Family"
 dictProc.Add "121", "Crusoe TM3000 Family"
 dictProc.Add "128", "Weitek"
 dictProc.Add "130", "Itanium Processor"
 dictProc.Add "144", "PA-RISC Family"
 dictProc.Add "145", "PA-RISC 8500"
 dictProc.Add "146", "PA-RISC 8000"
 dictProc.Add "147", "PA-RISC 7300LC"
 dictProc.Add "148", "PA-RISC 7200"
 dictProc.Add "149", "PA-RISC 7100LC"
 dictProc.Add "150", "PA-RISC 7100"
 dictProc.Add "160", "V30 Family"
 dictProc.Add "176", "Pentium III Xeon"
 dictProc.Add "177", "Pentium III Processor with Intel SpeedStep 

Technology"
 dictProc.Add "178", "Pentium 4"
 dictProc.Add "179", "Intel Xeon"
 dictProc.Add "180", "AS400 Family"
 dictProc.Add "181", "Intel Xeon processor MP"
 dictProc.Add "182", "AMD AthlonXP Family"
 dictProc.Add "183", "AMD AthlonMP Family"
 dictProc.Add "184", "Intel Itanium 2"
 dictProc.Add "185", "AMD Opteron Family"
 dictProc.Add "190", "K7"
 dictProc.Add "200", "IBM390 Family"
 dictProc.Add "201", "G4"
 dictProc.Add "202", "G5"
 dictProc.Add "250", "i860"
 dictProc.Add "251", "i960"
 dictProc.Add "260", "SH-3"
 dictProc.Add "261", "SH-4"
 dictProc.Add "280", "ARM"
 dictProc.Add "281", "StrongARM"
 dictProc.Add "300", "6x86"
 dictProc.Add "301", "MediaGX"
 dictProc.Add "302", "MII"
 dictProc.Add "320", "WinChip"
 dictProc.Add "350", "DSP"
 dictProc.Add "500", "Video Processor"

 fProcFamily = dictProc.Item(CStr(value))
 Set dictProc = Nothing
End Function


Function fLangVers(value)
 Dim dictLang
 Set dictLang = CreateObject("scripting.dictionary")
 dictLang.Add "409","English (US)"
 dictLang.add "809","English (Britain)"
 dictLang.Add "1009","English (Canada)I"
 dictLang.Add "1409","English (New Zealand)"
 dictLang.Add "0c09","English (Australian)"
 dictLang.Add "1809","English (Ireland)"
 dictLang.Add "1c09","English (South America)"
 dictLang.Add "2009","English (Jamaica)"
 dictLang.Add "2409","English (Caribbean)"
 dictLang.Add "40c","French (Standard)"
 dictLang.Add "80c","French (Belgian)"
 dictLang.Add "100c","French (Switzerland)"
 dictLang.Add "c0c","French (Canadian)"
 dictLang.Add "140c","French (Luxembourg)"
 dictLang.Add "407","German (Standard)"
 dictLang.Add "807","German (Switzerland)"
 dictLang.Add "c07","German (Austria)"
 dictLang.Add "1007","German (Luxembourg)"
 dictLang.Add "1407","German (Liechtenstein)"
 dictLang.Add "411","Japanese"
 dictLang.Add "80a","Spanish (Mexican)"
 dictLang.Add "40a","Spanish (Traditinal Sort)"
 dictLang.Add "c0a","Spanish (Modern Sort)"
 fLangVers = dictLang.item(Lcase(CStr(value)))
 Set dictLang = Nothing
End Function

Function fDomainRole(value)
 Dim dictDomRole
 Set dictDomRole = CreateObject("scripting.dictionary")
 dictDomRole.Add "0","Standalone Workstation"
 dictDomRole.Add "1","Member Workstation"
 dictDomRole.Add "2","Standalone Server"
 dictDomRole.Add "3","Member Server"
 dictDomRole.Add "4","Backup Domain Controller"
 dictDomRole.Add "5","Primary Domain Controller"
 fDomainRole = dictDomRole.Item(CStr(value))
 Set dictDomRole = Nothing
End Function

Function fCheckValue(varValue, prepender, appender)
 If IsNull(varValue) Or varValue = "" Then
  fCheckValue = "N/A"
 Else
  fCheckValue = CStr(prepender & varValue & appender)
 End If
End Function

Private Function fFormatNum(num, DropDecimal)
 Dim bytes
 Dim lngSize
 If IsNumeric(num) Then
  If Len(num) < 5 Then
   lngSize = FormatNumber((num /1024), 2, vbTrue, 

vbTrue, vbUseDefault)
   bytes = " Gb"
  Elseif Len(num) < 7 Then
   lngSize = FormatNumber((num / 1024), 2, vbTrue, 

vbTrue, vbUseDefault)
   bytes = " Kb"
  Elseif Len(num) < 10 Then
   lngSize = FormatNumber((num / 1024 ^ 2), 2, vbTrue, 

vbTrue, vbUseDefault)
   bytes = " Mb"
  Elseif Len(num) < 13 Then
   lngSize = FormatNumber((num / 1024 ^ 3), 2, vbTrue, 

vbTrue, vbUseDefault)
   bytes = " Gb"
  Elseif Len(num) < 16 Then
   lngSize = FormatNumber((num / 1024 ^ 4), 2, vbTrue, 

vbTrue, vbUseDefault)
   bytes = " Tb"
  Elseif Len(num) >= 16 Then
   lngSize = FormatNumber((num / 1024 ^ 5), 2, vbTrue, 

vbTrue, vbUseDefault)
   bytes = " Pb"
  End If
  If DropDecimal Or Right(lngSize, 2) = "00" Then
   fFormatNum = CStr(Round(lngSize, 0)) & bytes
  Else
   fFormatNum = CStr(lngSize) & bytes
  End If
 Else
  fFormatNum = num
 End If
End Function

of.close
MsgBox "Done!"

巨型LOGO

noreply@blogger.com (FANG Sheng) — Fri, 18 May 2007 09:04:00 +0100

跳到页首跳到篇首

noreply@blogger.com (FANG Sheng) — Thu, 17 May 2007 22:45:00 +0100

（一）查找下面的代码，并添加红色部分。

<b:includable id='post' var='post'>
<div class='post uncustomized-post-template' expr:id='"post-" + data:post.id' >

（二）在需要添加“跳到页首”和“跳到篇首”的地方添加以下代码。

<!-- 跳到页首 -->
<a href='javascript:scroll(0,0)' title='跳到页首'>跳到页首</a>
<!-- 跳到篇首 -->
<a expr:onclick='"javascript:document.getElementById(\"post-" + data:post.id + "\").scrollIntoView(true);"' href='javascript:void(0);' title='跳到篇首'>跳到篇首</a>

天气预报

noreply@blogger.com (FANG Sheng) — Thu, 17 May 2007 16:25:00 +0100

当幸福来敲门

noreply@blogger.com (FANG Sheng) — Wed, 16 May 2007 22:03:00 +0100

幸福的路总是艰辛的，没有韧性和坚定的决心和意志，是无法感觉到“幸福来敲门”的。

千古华山一条道，幸福的路也只有一条，只有不畏艰难险阻的人才能抵达，寻找幸福的同时也是被幸福拣择，只隔着一道门，叩门的勇气、决心和绝对的信念、意志，贯穿着无穷的纷扰、困窘、屈辱和沉沦。

You have a dream, you got to protect it.穷且益坚，不堕青云之志。无论在怎样的绝境里，总不忘掉心中的梦，为了一份爱的执着和责任，不放弃，不绝望，不逃避，含辛茹苦忍辱负重，才会有所建树，梦终究圆满，理想也会实现。

孟子说，“天将降大任于斯人也，必先苦其心志，劳其筋骨，饿其体肤，空乏其身，行拂乱其所为，所以动心忍性，增益其所不能。”孟子还说，“富贵不能淫，贫贱不能移，威武不能屈，此之谓大丈夫。”幸福的泪与辛酸的泪，男儿有泪不轻弹，成长与树立，总有血和泪。行百里者半九十，很多人都经历过不少艰难困苦的时候，只有少数人跨进了幸福的门槛。大多数人在经历几番风雨之后，最终毕竟了了无所作为，认定了的情感，认定了的事业，若不能慎终如始，往往多是“几成而败之”的结局。

无论怎样的热血热肠，即使有“十加仑的脑袋”，没有机遇，总是在困窘艰难的境遇里左支右绌，无安身立命之地。个体生存的价值在于为社会做出贡献，一旦丧失了服务于社会的机会，也就丧失了经济的来源，物质形体无所存身，则精神世界必无以立命。机遇作为幸福的使者和前导，需要有绝大的气魄做出决断，采取非常的行动。置之死地而后生，卧薪尝胆闻鸡起舞，百倍于他人的辛勤、诚恳和积极，终于有一天才能迈过最艰难的最后一天，而开始幸福的第一天，终于在饱尝屈辱辛酸中独立挺拔起来，开心的泪，沸腾的血，狂舞的心，叩开幸福的门。

精诚所至，金石为开。坚持，每一天都要坚持多一点。You have a dream, you got to protect it.

Google中国本土化的误区、困境和出路（四）

noreply@blogger.com (FANG Sheng) — Tue, 15 May 2007 23:31:00 +0100

Google中国本土化期待一幅五谷丰登的田园牧歌式的前现代古朴怀旧的诗意画卷，以最前卫最尖端代表最新潮流和时尚的后现代技术，在最充满骚动和叛逆意味的中国，做孤芳自赏曲高和寡的行为艺术表演。所以Google的中文名字冒天下之大不韪义无反顾地叫“谷歌”，即使已经到了进退维谷四面楚歌的境地。“谷歌重来”的高调也就越发有些凄怆、悲凉的意味。古龙的小说里常常说，来过、活过、爱过。无论面临怎样的生死抉择，毕竟有过某种刻骨铭心的烙印。“谷歌重来”似乎并非凤凰涅磐，浴火重生，更加生机勃勃斗志昂扬。恺撒的名言说，我来，我看，我取。如今Google来过，看过，何所取呢？中国的传统道家哲学认为，“欲固取之，必先予之”。Google到中国来，确实拿出了不少，却并没有给予什么，所以必然不能取得什么。摆出了很多东西，并不意味着给予与共享。摆足了架子，摆足了谱，却没有给出应有的谦恭、诚信与合作的态度。本以为无往而不胜的Google金字招牌下上演的大戏一定会赢得空前的满堂彩，事实上却是铺天盖地的斥责喝骂声。本是网络丛林中的王者之王，到了中国却沦落似过街老鼠人人喊打的局面。

谈到Google的中国本土化，不可能不谈到李开复先生。每个月甚至每周都会听到李开复将再一次以I need follow my heart的理直气壮而性情率直的理由告别Google，踏上新的征程。作为Google的中国总裁，作为一个公众人物，很容易成为街谈巷议茶余饭后的话题，要说Google中国本土化的得失问题，不能不谈谈李开复先生。从个人立场而言，他算是值得我恭敬崇仰的前辈。在这里的谈论或评论绝无丝毫不敬，所以为据的也是道听途说并非空穴来风的各类大众言论，我只是稍加整理而加以综述。细枝末节的零碎孤立的事件中往往隐藏着某种形象具体的事实可能。

李开复很重视人才。早在微软，他就提出“6P策略”。6P分别是研究人才（People）、合作项目（Programs）、学术著作（Publications）、发明专利（Patents）、技术原型（Prototypes）和技术转移（Product impact）。在这6P当中，没有哪一样离开了人，所以这是非常好的“以人为本”的思想。李开复自己也明确指出，6P之中，又以研究人才（People）为最重要。因为没有最优秀的人才，其他5P根本无法谈及。不过在操作过程中，却让人觉得他似乎在做戏，要不就是让人有太过于书生气的印象。比如向比尔•盖茨介绍到李劲的时候，他出示了少年李劲和邓小平在一起的照片。这一举动就比较戏剧化，比较微妙，比较有人情味，又比较有政治手腕的意味。照理来说，如果要介绍一位优秀的程序员，应该拿出其代码或者产品为例。从这里可以看出，李开复是很善于沟通和把捉时机和氛围的。作为Google中国区的总裁，他乐于和大学生交朋友，到各个大学巡回演讲，给大学生们写信，指导他们要“做最好的自己”。这样的一种亲和、谦恭的求才方式本也无可厚非，只是在严峻的Google事业拓展面前，显得本末倒置轻重不分。不能在最短的期限内在技术上打倒最大的竞争对手百度，那就是失败。李开复在广大校园招贤纳士的方式，五年十年后必见成效，然而形势不等人。李开复一直认为，Google在中国的发展要分四步走，招聘、技术、流量、收入。招聘找人是第一位的，并没有错。错就错在花费了太大的精力召集了一批需要时间培养锻炼的新手。他们将来有一天能够成为精锐之师，独当一面。但是现在让他们跟强劲的对手过招，让他们面临巨大的压力，尤其是可能的挫折能够损伤他们的士气。这从“谷歌拼音输入法”的出台引发的一系列事件可见一斑。其实Google在中国立脚之初，应该尽一切可能找到经验丰富、技巧娴熟的老手来打硬战。只有从技术的根本上超越百度这样的对手，才有足够闲暇的时间到校园里精挑细选优秀的人才。本来应该是百分之八十的时间用来挖掘竞争对手营垒里的精英，百分之二十的时间用于校园招聘，李开复恰恰颠倒了做。他更热衷于做一个年轻人的精神导师，而不是第一流的Google的第一流的老板。

我很欣赏李开复说的I need follow my heart，很性情，然而也很缺乏思虑，潜藏着太多的危险。因为它实际上就是“跟着感觉走”，不够理智。作为个体的行为或风格，跟着感觉走并没有什么不好。只是对一个大公司而言，尤其是重要的决定或部署，必须是深思熟虑无懈可击的。在“谷歌拼音输入法”事件中，让人感觉有不少直观的判断和决定，很多低级错误本可以避免的。无论是研发的人员选择配置、产品的推出，还是媒介的选择、公关的策略，都少不了需要李开复的签字或点头。两个实习生几天就开发了“谷歌拼音输入法”，被人揪住把柄以后，又是两三天就更新了词库，先是强词夺理死不认账，接着是据说借用奥美广告公司进行口水战，再接着不得已认栽认错，公关经理引咎辞职。一件件一桩桩都让人觉得如同儿戏，而无法相信是Google这样的公司能够做得这么拙劣、下流。

几个星期前，Google的全球CEO埃里克•施密特来华访问，公开力挺李开复在中国的贡献，他对李开复的业绩是这样评价的：“如果总分是20分，我得打18分到19分，我之所以给我们在中国的工作打如此高的分数，是因为我们进入到中国市场以后，发展速度是非常快的，这样的业绩在很大程度上要归功于李开复博士的领导。”同时埃里克•施密特还强调，要加大对中国的放权，在中国维持李开复单一总裁制的局面。媒体、报章、网络似乎一致认为，李开复是受到Google上层信任和支持的，“谷歌重来”看来并非虚幻之谈。李开复的离职传闻似乎也因此不攻自破。实际上只要稍微仔细推敲一下，这不正是“进退维谷四面楚歌”的信心和信任危机的体现吗？试想一下，堂堂一个总裁，在他自己所深信的招聘、技术、流量和收入四步骤上并不能拿出过硬的数据来支持自己的职责和身份，却要自己的上司来给自己打圆场。得不到业界和用户的认可，反而要公司内部来加以扶持。这不是十分奇怪的事情吗？埃里克•施密特说“如果总分20分，我得打18分到19分”这句话表面上是95%地肯定，实际上可以看作是100%的否定。行百里者半九十，差的那一两分正是问题的关键，这一两分的差距决定了Google中国本土化的困境和危机。九十五分实际上是零分。试想一下，再过几个月，或者是到了明年，Google中国不能有个象样的“重来”，即使李开复有更多的贡献，招揽再多优秀的人才，埃里克•施密特能给他打九十六分吗？

Google中国本土化的第一要务自始至终都是要打败中国最大的竞争对手百度，不能打败百度，那就是Google中国本土化的彻底失败。为了打败百度，Google本该可以和百度以外的所有竞争对手结成一体，尽可能大范围地化敌为友，集中一切力量，重点突破，理论上来说，不需要太多的时间就能达成目标的。然而Google中国喜欢创新求多贪多，不管哪方面都想争个第一，极大的贪心指望没有太多经验的团队来达成目标，怎么可能不出事？亚历山大解戈尔迪之结，锐利果断，解决问题的关键，跟解决全部的问题往往没有太大的差别。专注于问题的细部，战线越长越难取得战略上的突破。

列出域中用户密码设置改动的情况

noreply@blogger.com (FANG Sheng) — Fri, 11 May 2007 12:19:00 +0100

On Error Resume Next

Const ADS_PROPERTY_CLEAR = 1  
Const ADS_SCOPE_SUBTREE = 2
Const SEC_IN_DAY = 86400
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 

objCommand.CommandText = _
    "SELECT ADsPath FROM 'LDAP://dc=microsoft,dc=com,dc=cn' WHERE " _
        & "objectCategory='user'"  
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    strPath = objRecordSet.Fields("AdsPath").Value
    Set objUser = GetObject(strPath)
    intCurrentValue = objUser.Get("userAccountControl")

If intCurrentValue and ADS_UF_DONT_EXPIRE_PASSWD Then
    Wscript.Echo objUser.sAMAccountName & " : 密码永不过期！"
Else
    dtmValue = objUser.PasswordLastChanged 
    Wscript.Echo objUser.sAMAccountName & "上一次更改密码的时间是：" & _
        DateValue(dtmValue) & TimeValue(dtmValue) & VbCrLf & _
            "自密码更改到现在已经" & int(now - dtmValue) & "天！"
    intTimeInterval = int(now - dtmValue)
  
    Set objDomainNT = GetObject("WinNT://microsoft.com.cn")
    intMaxPwdAge = objDomainNT.Get("MaxPasswordAge")
    If intMaxPwdAge < 0 Then
        WScript.Echo "域安全策略中密码最大有效期设置为零。因此密码不过期。"
    Else
        intMaxPwdAge = (intMaxPwdAge/SEC_IN_DAY)
        Wscript.Echo "密码最大有效期为：" & intMaxPwdAge & "天。"
        If intTimeInterval >= intMaxPwdAge Then
          Wscript.Echo "密码已经过期！"
        Else
          Wscript.Echo "密码过期的时间是：" & _
              DateValue(dtmValue + intMaxPwdAge) & "离现在还有" & _
                  int((dtmValue + intMaxPwdAge) - now) & "天。"
        End If
    End If
End If
objRecordSet.MoveNext
Loop

系统 管理 脚本