为了隔离网络广播，我们可以使用VLAN技术将网络划分成虚拟局域网。但是，在同一VLAN内的PC，仍然处在一个广播域中，也就是说，同一VLAN内各PC之间的通信不受限制。

这时，可以使用基于MAC地址的访问控制列表，在每个端口做第二层过滤。

命令如下（神州数码S3926交换机配置命令）：

全局模式下创建访问列表1100：

access-list 1100  permit  [Sourcemac]  [Sourcemac-wildcard bits] [Destinationmac]  [Dourcemac-wildcard bits]

access-list 1100  deny    [Sourcemac]  [Sourcemac-wildcard bits] [Destinationmac]  [Dourcemac-wildcard bits]

全局模式下将访问列表1100应用到指定接口：

access-group   mac-acl  1100  in interface [interface name]

access-group   mac-acl  1100  in interface [interface name]

我们可以在交换机所有的接口启用如上的访问列表，可以做到基于MAC的精确过滤。

但是，这种方法配置需要查找到每个接入PC的MAC地址并输入到访问列表中，比较繁琐，同时，还有一个弊端，当PC更改MAC地址时，需要更改访问列表规则，不然将起不到应有的作用。

另外，还有这样一些情况，PC之间不允许通信，但所有PC允许与某一服务器或网关通信，拓扑如下图示：

实现如上的功能，使用基于MAC地址的访问控制可以实现，但是，操作起来比较繁琐。

此时，我们可以使用私有VLAN来实现如上功能：

 1、将连接服务器和路由器的交换机接口放置到VLAN 10中，设置VLAN 10为主VLAN：

      switch(Config)#vlan 10

      switch(Config-Vlan10)#private-vlan primary

2、将PC所在的接口放置到VLAN 20中，设置其为隔离VLAN：

     switch(Config)#vlan 20

     switch(Config-Vlan20)#private-vlan  isolated

3、在主VLAN 20中联合隔离VLAN 20，以便VLAN 20内接口可以和VLAN 20内接口通信：

    switch(Config-Vlan10)#private-vlan association 20

4、安装如上图的IP配置，即可实现PC间不可通信，PC与网关和服务器可以通信。

以太网端口有三种链路类型：access、trunk、hybird。

Access类型的端口只能属于1个VLAN，一般用于连接计算机的端口；
Trunk类型的端口可以允许多个VLAN通过，可以接收和发送多个VLAN的报文，一般用于交换机之间连接的端口；
Hybrid类型的端口可以允许多个VLAN通过，可以接收和发送多个VLAN的报文，可以用于交换机之间连接，也可以用于连接用户的计算机。
Hybrid端口和Trunk端口在接收数据时，处理方法是一样的，唯一不同之处在于发送数据时：Hybrid端口可以允许多个VLAN的报文发送时不打标签，而Trunk端口只允许缺省VLAN的报文发送时不打标签。

缺省VLAN：
Access端口只属于1个VLAN，所以它的缺省VLAN就是它所在的VLAN，不用设置；
Hybrid端口和Trunk端口属于多个VLAN，所以需要设置缺省VLAN ID。缺省情况下，Hybrid端口和Trunk端口的缺省VLAN为VLAN 1；
    如果设置了端口的缺省VLAN ID，当端口接收到不带VLAN Tag的报文后，则将报文转发到属于缺省VLAN的端口；当端口发送带有VLAN Tag的报文时，如果该报文的VLAN ID与端口缺省的VLAN ID相同，则系统将去掉报文的VLAN Tag，然后再发送该报文。
注：对于华为交换机缺省VLAN被称为“Pvid Vlan”， 对于思科交换机缺省VLAN被称为“Native Vlan”

交换机接口出入数据处理过程：
Acess端口收报文:
    收到一个报文,判断是否有VLAN信息：如果没有则打上端口的PVID，并进行交换转发,如果有则直接丢弃（缺省）
Acess端口发报文：
    将报文的VLAN信息剥离，直接发送出去
trunk端口收报文：
    收到一个报文，判断是否有VLAN信息：如果没有则打上端口的PVID，并进行交换转发，如果有判断该trunk端口是否允许该VLAN的数据进入：如果可以则转发，否则丢弃
trunk端口发报文：
    比较端口的PVID和将要发送报文的VLAN信息，如果两者相等则剥离VLAN信息，再发送，如果不相等则直接发送
hybrid端口收报文： 
    收到一个报文,判断是否有VLAN信息：如果没有则打上端口的PVID，并进行交换转发，如果有则判断该hybrid端口是否允许该VLAN的数据进入：如果可以则转发，否则丢弃(此时端口上的untag配置是不用考虑的，untag配置只对发送报文时起作用)
hybrid端口发报文：
    1、判断该VLAN在本端口的属性（disp interface 即可看到该端口对哪些VLAN是untag， 哪些VLAN是tag）
    2、如果是untag则剥离VLAN信息，再发送，如果是tag则直接发送

可以用此理论解释如下图示两台PC（属于两个VLAN，同一个网段）间可以通信的问题。

1、常吃宵夜，会得胃癌， 因为胃得不到休息
2、一个星期只能吃四颗蛋，吃太多，对身体不好
3、，鸡屁股含有致癌物, 不要吃较好
4、饭后吃水果是错误的观念， 应是饭前吃水果
5、女生月经来时，不要喝绿茶， 反正茶类不要喝就对了，多吃可以补血的东西
6、喝豆浆时不要加鸡蛋及糖， 也不要喝太多
7、空腹时不要吃蕃茄, 最好饭后吃
8、早上醒来，先喝一杯水， 预防结石
9、睡前三小时不要吃东西， 会胖
10、少喝奶茶， 因为高热量，高油，没有营养价值可言，长期饮用，易罹患高血压，糖尿病，等疾病
11、刚出炉的面包 不宜马上食用
12、远离充电座， 人体应远离30公分以上，切忌放在床边
13、天天喝水 八大杯
14、每天十杯水， 膀胱癌不会来
15、白天多喝水， 晚上少喝水
16、一天不要喝两杯以上的咖啡， 喝太多易导致失眠,胃痛
17、多油脂的食物少吃，因 为得花5~7小时去消化,并使脑中血液集中到肠胃，易昏昏欲睡
18、下午五点后，大餐少少吃, 因为五点后身体不需那么多能量
19、10种吃了会快乐的食物: 深海鱼,香蕉,葡萄柚,全麦面包,菠菜,大蒜,南瓜,低脂牛奶,鸡肉,樱桃
20、睡眠不足会变笨, 一天须八小时睡眠,有午睡习惯较不会老
21、最佳睡眠时间是在 晚上10点~清晨6点
22、每天喝酒不要超过一杯, 因为酒精会抑制制造抗体的B细胞,增加细菌感染的机会
23、服用胶囊应以冷水吞服(可以第一个吃), 睡前30分先服药，忌立即躺下
24、酸梅具防止老化作用, 青春永驻;肝火有毛病者宜多食用
25、掉发因素: 熬夜,压力,烟酒,香鸡排，麻辣锅，油腻食物，调味过重的料理
26、帮助头发生长:多 食用包心菜,蛋，豆类;少吃甜食(尤其是果糖)
27、每天一杯柠檬汁,柳橙汁， 不但可以美白还可以淡化黑斑
28、苹果是机车族、瘾君子、家庭主妇的常备良药， 一天一颗，才能让自己有个干干净净的肺
29、抽烟又吃维他命(B胡萝卜素-A维他命的一种), 会致癌,尽早戒烟，才是最健康的做法
30、女性不宜喝茶的五个时期: 月经来时,孕妇,临产前，生产完后,更年期
31、抽烟,关系最大的是 肺癌,唇癌,舌癌,喉癌,食道癌,也与膀胱癌有关
32、饮酒导致肝硬化 ，引发肝癌
33、吃槟榔会导致口腔纤维化, 口腔癌
34、食物过于精细,缺乏纤维; 含大量脂肪,尤其是胆固醇会引发胃癌
35、食物过于粗糙, 营养不足时导致食道癌,胃癌
36、食品中的黄曲毒素， 亚硝酸类物皆具有致癌性
37、不抽烟， 拒吸二手烟
38、适量饮酒, 不拚久，不醉酒
39、减少食用 盐腌，烟熏,烧烤的食物
40、每天摄取新鲜的 蔬菜与水果
41、每天摄取富含高纤维的 五谷类及豆类
42、每天摄取均衡的饮食, 不过量
43、维持理想体重， 不过胖
44、保持规律的 生活与运动
45、保持 轻松愉快的心情
46、正确饮食习惯: 早上吃的像皇帝,中午吃的像平民,晚上吃的像乞丐

    WM－Windows Mobile，是微软推出的For Pocket PC/Smartphone等移动通信设备的操作系统。这些设备往往价格较高，不少人（包括我）都消费不起。但是，我们可以通过“设备仿真器”，在电脑中运行WM操作系统，来体验WM For PPC的魅力。下面就介绍我在仿真器里面模拟的WM6。

一、在“设备仿真器”里运行PPC后如下图：

二、设置网络

    1、我们可以让“仿真器网卡”桥接到电脑网卡上。在“设备仿真器”上单击“文件”－“配置”，切换到“网络”页面，如下图：

勾选中“启用NE2000 PCMICA网络适配器并绑定到”，然后在下面的列表中选择计算机的网卡，完成桥接。

  2、在WM6中，单击“开始”－“设置”，打开设置窗体，切换到“连接”选项，如下图示：

  3、单击“网卡”，打开“配置网络适配器”窗体。在“我的网卡连接到”中，选择“Work”（此处也可以选择"The Internet"，选择后，下面的凡是选择"Work"的都要改为选择"The Internet"。）；在“点击适配器以修改设置”中，选择“NE2000 兼容Ethernet驱动程序”。如下图：

  4、选择完适配器后，会自动打开适配器网络设置窗口。根据实际网络来分配IP、网关、DNS等。如下图：

  5、单击右上角“OK”，以确定配置。

  6、返回窗体，然后单击“连接”图标，切换到“高级”选项页，如下图：

  7、单击“选择网络”按钮，打开“网络管理”，在程序自动连接到Internet时，使用”下选择“单位网络”（此处也可以选择“Internet网络”，要与第一步设置对应。）。如下图：

这样，WM6就可以通过计算机网卡连接到INTERNET了。使用IE打开QQ手机网站如下图：

微软提供OCS2007的180天试用版本。详情请查看微软官方网站www.microsoft.com/china/office 。

一、简介：

       OCS2007，全称是Office Communications Server 2007，是微软“统一沟通”平台的重要产品之一。

       OCS2007提供了 Standard Edition 和 Enterprise Edition 两种版本：

       Standard Edition：适用于中小型组织。在不需要 Enterprise Edition 提供的性能、可伸缩性和高可用性的组织中，也建议使用 Standard Edition。

       Enterprise Edition：适用于大型组织常用的大型部署。在 Enterprise Edition 部署中，多个 Office Communications Server Enterprise Edition 服务器作为池部署在负载平衡器后面。池中的服务器共享存储用户数据的中央Microsoft SQL Server? 数据库。

      当安装使用标准版时，OCS2007的以下组件将安装在单台计算机上：

           Microsoft SQL Server? 2005 Express Edition Service Pack 2 (SP2)

    前端服务器：用于存放即时消息、状态、电话会议服务器以及所有必需的用户服务。

    Web 会议服务器：用于启用内部会议。

    A/V（音频/视频）会议服务器：允许用户共享音频和视频流。

   Web 组件服务器：允许用户执行以下操作：

         从 Web 会议访问会议演示文稿和其他内容

        下载通讯簿服务器文件，用于为 Microsoft Office Communicator 客户端提供全局地址列表信息

         扩展通讯组以便与各个成员进行通信

二、安装：

安装OCS2007前，请详细查看《Microsoft Office Communications Server 2007 Standard Edition 部署指南》，以便了解安装所需的“基础结构要求”和“先决条件”。

OCS2007的安装程序非常友好，OCS2007安装、运行需要的相关条件，在安装时都会友好的提示；每个组件的按照都有详细的安装向导和帮助，并能查看组件安装是否成功。条理很清晰。

1、运行SETUP.EXE，此时如果计算机上没有安装"Visual C++ 2005 Redistributable"，安装程序将提示你安装它，安装包提供其安装程序。

2、如果系统中没有安装Microsoft Dotnet Framework 2.0的话，提示安装它。

3、先决条件具备之后，将打开OCS2007的部署向导，如下图示：

提供了非常详细的安装步骤

    4、OCS2007的部署向导非常详细，每一步应该安装什么，需要什么先决条件，部署后怎样验证安装是否成功，都提供了详细的说明。

    5、安装过程中的细节，请查看《Microsoft Office Communications Server 2007 Standard Edition 部署指南》。

三、配置启用音频/视频会议和 Web 会议，添加会议用户

1、在OCS2007管理器中，右键单击“林”节点，单击“属性”，然后单击“全局属性”。打开如下图示的设置窗体：

2、如果希望用户能匿名参与会议，请在“匿名参与者”中选择“允许用户邀请匿名参与者”。

3、选中“全局策略”，然后单击“编辑”，弹出如下示的设置窗体：

     1）为了启用视频会议，请勾选中“启用Web会议”、“启用IP音频”、“启用IP视频”选项。

     2）如果想让主持者能共享他的桌面，需勾选“启用程序和桌面共享”选项。

     3）如果允许录制会议，请勾选“允许演示者录制会议”选项。

4、为“演讲者”创建和启用账户

     1）在“域用户和计算机”中创建一个账户。

     2）用RTCUniversalUserAdmins 组成员身份登录到 Office Communications Server。

     3）在OCS上输入dsa.msc打开域用户和计算机，在需要使用会议的用户名上单击右键，弹出的菜单中选择“为Office Communications Server启用用户...”，如下图示：

     4）打开启用用户向导，在生成用户登录名的窗体中，选择用户SIP URI的格式，如下图示：

     5）单击“下一步”，将显示启用用户是否成功。

     6）这样就启用了用户，可以在OCS的管理器－用户，看到列表。如下图：

       7）配置用户：在Llive Meeting中不需要。OCS客户端需要。

四、创建视频会议

       1）安装Microsoft Office Live Meeting 2007客户端

       2）打开“用户账户”设置窗体，单击“高级”按钮，在弹出的窗体中设置使用的“服务器”、“用户名”、“密码”。如下图示：

     然后单击“确定”，返回。

    在如下图示窗口中单击“测试连接”。提示成功后，单击确定返回主窗体。如下图示：

    3）单击“立即开会”按钮，创建一个会议。

    4）单击“会议”菜单，将看到本次会议的“会议代码”及“进入位置”。如下图：

    5）将进入会议代码及位置通告给会议参加者，以便其在Live Meeting 2007登录窗体中设置，如下图示：

至此，OCS2007的视频会议搭建完成。

全文转自【人民网】。

       “娃儿，你不该走呀！你是为我们活活累死的呀！”

　　“叔叔，我们长大了也要像你那样去报效祖国……”

　　一声声呼唤，聚焦着同一个名字；一排排花圈，悼念着同一个士兵。

　　岷江上游的都江堰，记载了李冰父子不畏艰险与洪水抗争的奋斗历史；今天，它铭记了一位战士真情爱民累倒在抗灾一线的感人事迹。

　　6月18日凌晨4时45分，因过度劳累引发肺血管破裂出血，济南军区驻豫某红军师炮兵指挥连战士武文斌永远地走了，年仅26岁。

　　6月21日，某集团军党委追认他为中共正式党员，追记一等功，批准为革命烈士。

　　“舍不了自己的命，就救不了群众的命”

　　铁军一兵――光荣传统熏陶，他好学上进；面对受困群众，他奋不顾身

　　2002年，高中毕业的武文斌，入伍来到某红军师“飞夺泸定桥”红二连。

　　这是一支有着优良传统的军队。该师历史悠久、战功卓越，素有“铁军”之称。

　　从此，红军的传统熏陶着这名年轻的战士，二十二勇士“要桥不要命”的连魂深深融入到他的血液。

　　2005年8月，武文斌以全团第一的成绩考入解放军信息工程大学测绘学院，2007年7月分配到铁军师炮指连实习。地震发生时，武文斌的实习期快满了。考虑到这点，部队安排武文斌留守。“指导员，你是不是不把我当连队的兵看？对我来说，能给党分点忧，给灾区人民做点贡献，就是最好的毕业证。”就这样，武文斌争取到了参加抗震救灾的机会。

　　5月12日，部队到达灾区后，武文斌和战友们始终奋战在第一线。转移群众，他肩扛背驮走在前面，和战友们翻越一座座大山，把食品和饮用水及时送到受灾群众手中；搜救失事直升机，他不畏山高路险，一直在最前面探路，3次滚下山，幸运地被树木拦住；灾后安置重建，他一个人干几个人的活，清淤泥、搬石头、疏通引水渠……

　　“他最自豪的是他以前的老连队。”新兵徐鸿光说，“当我们都觉得扛不住的时候，他就用红军精神鼓励我们。”

　　5月17日，武文斌所在师接到命令，迅速组织兵力前往汶川县三江乡展开搜救和转移重伤员。具有军事地形学专长的武文斌和代理排长李孝会，被抽调到先遣队担负探路任务。

　　道路被毁，山体滑坡，判定方位、选择开进路线异常困难。但武文斌还是凭着过硬的专业技能，引导救援官兵以最快的速度，翻越3座2500多米的高山，第一时间把部队安全带到了指定地域。

　　“让我去！”浸透衣背的汗水还没晾干，得知山上的一位老人房屋倒塌、生死不明，武文斌立即找到通信营教导员王斌请战。

　　山路崎岖，余震不断，飞石滚落。武文斌全然不顾，带着几名战士攀山而行，一个多小时后赶到救援现场，将全身7处受伤的老人马学友成功救出。

　　那是一次多么艰难的前行啊！战士们如伏在旱地上的青蛙，四肢交替爬行。衣服破了，手划破了，双肘双膝磨破了。虽然他们小心翼翼，但还是几次险些跌下山崖。面对战友的担心和责怪，武文斌却十分坦然：“舍不了自己的命，就救不了群众的命。”

　　“老乡一天不住进板房，我就一天不休息”

　　拼命三郎――平时最听话的兵，抗震救灾中成了“最不听话”的人　　

　　武文斌出生在河南农村，对农民怀有朴素的感情。

　　在武文斌眼里，群众的事就是自己的事。进入灾区以来，武文斌从没睡过午觉，一有空儿就跑到附近的老百姓那里，清废墟、割麦子、搭帐篷。

　　6月9日，连队奉命帮灾区群众安装板床，武文斌抢着承担了最重的拧螺丝任务。时间不长，就磨破了手套。他就干脆徒手作业，很快手上就打起了血泡。

　　“戴手套拧螺丝不方便，速度慢。”战友见状，给武文斌送来手套，劝他休息一会儿。武文斌却说：“不碍事，我们早一分钟把床装好，灾区群众就少受一分钟的罪。”

　　一天下来，武文斌拧了1400多个螺丝，螺丝刀都被拧变了形。

　　看着他打满血泡的双手，有的战友心疼得掉泪，可武文斌却自豪地说：“我们铁军都该有双铁手。”

　　据炮兵指挥连提供的资料，武文斌在抗震救灾一线的32天时间里，连队共给他安排了3天轮休，分别是5月22日、6月2日、6月16日。可他一刻也没“消停”。

　　“他是我们连平时最听话，但在抗震救灾中‘最不听话’的兵。”连长李俊峰说，到灾区以后，武文斌总是找活干、抢活干，干完分内的事，就到处蹭活，别人拦也拦不住，被战友称为“拼命三郎”。

　　历史记下了他和连队战友32天创造的业绩：走遍都江堰市玉堂镇的12个村7816户人家，转移群众3638人，帮助群众搭建1000余顶（间）帐篷和简易房，组装木床1818张，卸载救灾物资54车。

　　历史记下了这位钢铁战士最后一日的战斗瞬间：6月17日早上8点，连队从玉堂镇向胥家镇转移战场，临行前，武文斌抽空给父亲武中林打了参加抗震救灾以来的第三个电话。

　　电话中，父亲听说儿子又有了新的任务，反复叮嘱他“既要完成好任务，又要注意休息，我们正在家给你忙乎结婚的事。”

　　武文斌对父亲说：“现在咋能休息，老百姓都在焦急地等着。只要还有一个老乡没住进板房，我就一天不休息。”

　　这一天，武文斌好像知道自己的时间不多了，整个人像开机的马达，转个不停！

　　活动板材很沉，四周是锋利的金属皮，稍不留意就会割破手。第一车快卸完的时候，夜色渐暗，连长李俊峰担心天黑后官兵割伤手，决定组织党员骨干抢卸。

　　武文斌不是党员，他找到连长：“让我上吧，我保证和党员一样快。”

　　对于武文斌，李俊峰没有办法拒绝，这个虽然不是党员的战士，只要组织党员突击队，他都一次不落。况且，连里开展火线入党时，他还把机会一次次让给了别人；部队组织党员交“特殊党费”时，他把身上仅有的２００块钱交了上去。

　　21时25分，武文斌和战友们冒雨将8车50吨活动板房建材全部卸载到位。他累得瘫坐在地。

　　武文斌实在太累了！尽管如此，他仍念念不忘灾区群众。熄灯前洗漱，他对一起打水的班长姜春雷说：“洗洗袜子泡泡脚，明天又可以好好干。”

　　没想到，这却成了武文斌留在人间的最后一句话。

　　“我们要替武班长了结入党心愿，他是一名真正的共产党员！”5月18日，武文斌牺牲的消息传到指挥连，全连官兵签名要求连队党支部发展武文斌为中共党员。集团军党委及时作出决定：追认武文斌为中国共产党党员。

　　“我宣誓，我志愿加入中国共产党……宣誓人：武文斌！”6月20日20时，在武文斌的灵堂内，战友抱着他的遗像，全连官兵高举右手，面向鲜红的党旗，庄严地代表武文斌齐声宣读入党誓词。

　　“老婆，等我抗震救灾凯旋时,一定把你风风光光娶进门”

　　真情男儿――认准的事情，他一定要做到；商定的婚礼，竟成了永远的梦

　　听说武文斌要上灾区前线，2月份刚和他领取了结婚证的妻子杨卫华有些放不下心。武文斌在电话里对她说：“现在灾区人民有难，铁血男儿岂能无动于衷，如果错过了这次抗震救灾机会，我会后悔一辈子。战士就应该上战场！”

　　杨卫华高挑的个子，俊秀的面容，和英俊的武文斌站在一起，谁都说是天生的一对。他俩恋爱5年，感情深厚，一直到今年2月，武文斌才休了一个短假，领了结婚证，两人商定在“五一”或6月武文斌毕业时举行婚礼。因为工作，一推再推。“老婆，辛苦了！等我抗震救灾凯旋时,一定把你风风光光娶进门。”丈夫透着千般柔情。

　　这些日子，武文斌几乎每天都要和杨卫华通个短信，报个平安。参加抗震救灾以来，两人每次联系，武文斌要说许多安慰妻子的话：“我不累。”“我在这挺好。”武文斌牺牲的噩耗传来，杨卫华悲痛欲绝，前往都江堰的途中，怀里揣着丈夫的照片，泪流满面地念叨着：“文斌呀，我一直等着你回来完婚，没想到这婚礼竟成了永远的梦。”

　　武文斌牺牲后，战友们在清理他的遗物时，发现他口袋里仅有5元2角钱。

　　“这孩子太节俭了，心里总想着别人。”父亲武中林热泪盈眶，伤心不已。

　　武中林说，儿子当兵以来，无论是当义务兵还是后来当士官，他隔三岔五向家里寄些钱。回家时，绝少不了给村里大爷大妈孝敬。

　　武文斌是家里的顶梁柱，弟弟是个智障残疾人，妈妈做过胆结石穿孔手术，干不了什么重活。为了生计，已经60岁的武中林来到河南邓州市第二人民医院做临时工，每月挣300元钱。儿子当上士官后对父亲说：“我今后有工资了，你以后不用再操心，安心注意身体，我养活你。”

　　武文斌从小就想当兵。参军来到部队后，武文斌省吃俭用，一双袜子补了又补，一个牙刷能用半年，一个笔记本用完正面用反面，从不随便丢弃，从不乱花一分钱。

　　“他热爱生活，懂得体贴人，哪怕遇见小孩子过马路，他总是习惯地伸开手护着，生怕他们摔一跤。这次，他是为灾区人民献身的，我为有这样的丈夫感到骄傲！”杨卫华抽泣着，努力地不哭出声来，“我要留下来，当个志愿者。”

　　武文斌走了，他同时带走了妻子6月17日22时00分53秒发来的短信――这是一段绵绵的情话：“老公，你受苦了，等你回去，我去看你，请你吃好吃的，吃你爱吃的，给你按摩，让你舒舒服服！你困吗，要是困了，你就先睡吧。”

　　武文斌睡着了，头冲着青城山。他的心与灾区人民紧紧相连，他的爱洒在了身下这片土地！ 

本文是介绍使用SteadyState的体会，软件的详细介绍请查阅微软SteadyState网站：http://www.microsoft.com/china/windows/products/winfamily/sharedaccess/default.mspx。

使用SteadyState以后，觉得它从以下三方面对公共计算机做了安全设计（个人认为是亮点的就以红色显示）：

1、配置计算机限制：

     1）隐私保护：

          a) 不在 "登录到Windows” 对话框中显示用户名（非域环境下）：

              选择此选项可帮助确保当某个用户注销时，"登录到 Windows” 对话框中的“用户名”框显示为空白。

          b) 防止无法在计算机上找到的锁定或漫游用户配置文件登录：在 Windows SteadyState 的“设置计算机限制”中选中此选项，将防止在计算机上没有配置文件的用户进行登录。

          c) 对于以前登录此计算机的用户不缓存锁定或漫游用户配置文件的副本：选择此选项有助于提高隐私性和节省磁盘空间。

    2）安全设置：

         a) 从“欢迎”屏幕删除管理员用户名（要求连按 Ctrl-Alt-Del 两次以登录到未列出的帐户）：Windows“欢迎”屏幕列出了驻留在计算机上的所有用户帐户名。选择此选项可从该屏幕的列表中删除管理员用户名。若要以管理员身份登录，必须连按 Ctrl-Alt-Del 两次以显示传统的登录屏幕。

        b) 从“登录到 Windows”对话框和“欢迎”屏幕删除“关机”和“关闭”选项：选择此选项可防止用户从“登录到 Windows”对话框和“欢迎”屏幕关闭计算机。

        c) 不允许 Windows 使用 LAN Manager 哈希值计算和存储密码：选择此选项可帮助通过禁用每个密码的 LanMan 哈希 (LMHash) 形式提升安全密码存储。LMHash 是一种加密机制，用于支持与早期 Windows 操作系统的向后兼容性。

       d) 不存储用于登录 Windows Live ID 或域的用户名和密码（要求重新启动计算机）：选择此选项可防止 Windows 保存用户的 Windows Live ID 帐户和域凭据，并强制用户在每次开始会话时输入此信息。这样可以提高隐私性，防止用户使用先前使用此计算机的用户的凭据登录。

      e) 防止用户在驱动器 C:\ 中创建文件夹和文件：选择此选项可以更改系统驱动器根目录中的访问控制列表 (ACL)，以防止用户创建文件和文件夹。

      d) 防止用户从 Internet Explorer 打开 Microsoft Office 文档：选择此选项有助于确保 Microsoft Office 应用程序承载自己的文档，以便可选的 Microsoft Office 软件限制正常工作。

      e) 防止对 USB 存储设备进行写访问（要求重新启动计算机）：选择此选项可防止用户将文件或数据保存到 USB 存储设备。

  3）用户模式下，对WINDOWS的限制：

       a) 会话计时：如果选择如图示的两项，将有效的防止客户端超时使用计算机。

     b) WINDOWS限制：可以对开始菜单、系统等做详细限制。本人以为有如下亮点：

         A、防止更改Explorer高级注册表设置。

         B、防止访问命令提示符。

         C、防止访问注册表编辑器。

         D、防止访问任务管理器。

         E、防止访问管理控制台实用程序。

         F、只允许运行Windows和Program Files  文件夹中的程序。

         G、禁用系统工具和其它管理工具。

         H、隐藏指定驱动器。

二、Windows自动更新：此处也为一大亮点。

    SteadyState可以在磁盘保护开启的情况下对系统进行安全更新。安全更新后，自动的将更新后的系统数据保存到“永久磁盘”数据中。比一般的第三方硬盘保护卡有优势。

三、磁盘保护：

   只能保护系统盘数据，非系统分区不能保护。但可以使用NTFS安全特性限制在非系统盘的数据存储。或者使用上述的  D、只允许运行Windows和Program Files  文件夹中的程序。来限制运行非系统盘的程序。

四、补充说明

   上述对WINDOWS系统的限制，大部分是通过修过注册表、软件限制策略完成的。

   SteadyState 提高了组策略模板，存放位置在软件安装目录的ADM文件夹中，文件名为 SCTSettings.adm。我们可以将SteadyState的组策略模板导入到域中，通过域来统一部署限制。

   在域中，我们还可以对用户的文档目录指定重定向，可以重定向到网络共享中。还可以做更详细的软件限制策略。如下图：

指定用户“我的文档”位置

 
添加一个软件限制策略：限制运行D盘的程序

当ARP请求是从一个网络上的主机发往另外一个网络上的主机时，连接这两个网络的设备应答该请求时，我们就认为此设备具有ARP代理功能。

一、应用场景：

        如下图：

二、应用分析

1、由于R1的F0/0和R2的F0/1用同一个网段IP，于是，在R1上PING 192.168.0.102时，R1上的协议程序会认为目标是和自己在同一个网段，于是R1发出ARP请求广播。如果R0没有启用ARP代理，R0路由器默认要隔离此广播。结果将出现R1访问不到R2的情况。

抓包如下图示：

R1 PING 192.168.0.102时，将发出ARP广播请求

2、当R0的F0/0接口启用ARP代理时，R1发出的请求“IP地址为192.168.0.102的主机的MAC地址是多少”的ARP广播会被R0的F0/0应答，应答的MAC地址为R0的F0/0接口的MAC地址。

抓包如下图示：

 R0的F0/0接口将自己的MAC应答给R1

3、R1将PING 请求数据传递给R0的F0/0。如下图：

4、R0看到此数据的目标地址为自己另外一个网段的地址，于是，R0将数据通过F0/1传递出去。

5、数据传递到R2后，R2要应答此数据，于是，R2向192.168.0.2发出应答数据。同样，由于R2的协议程序认为此地址和自己在同一个网段，于是R2发出ARP请求，请求IP为192.168.0.2的主机的MAC地址是多少。

6、此时，如果R0的F0/1接口没有启用ARP代理的话，R2发出的ARP广播将被R0丢弃。这样R2就不能给R1返回应答数据。因此，要想让R0启用ARP代理，则必须在要参与通信的所有接口启用。

7、R0的F0/1启用ARP代理，将应答R2对192.168.0.2的MAC地址的请求，R0的F0/1接收R2传递来的数据，进而经过F0/0传递给R1。PING 通信完成。

奥运火炬7月29日在郑州传递。

７月２８日至３１日，奥运圣火将依次在河南商丘、开封、郑州、洛阳、安阳５个城市传递。

具体传递时间为：

    ２８日上午在商丘市传递，下午在开封市传递

    ２９日在郑州市传递，

    ３０日在洛阳市传递，

    ３１日在安阳市传递至河北省。

根据北京奥组委的统一安排，火炬传递将于2008年7月29号经过郑州。

为充分展示郑州特有的历史文化，自然风光和建设成就，有利于沿途群众观看火炬传递，郑州市初步拟订了火炬传递路线：火炬将从新郑黄帝故里广场出发传递6.1公里，之后转程至登封少林寺传递12.1公里。

郑州市区内火炬传递将在当天下午2点30分从绿城广场出发，途径二七广场，文化路，河南博物院，花园路，中州大道，郑东新区，最后在郑州国际会展中心结束。

传递路线全长38.2公里，用时约8.5小时，共有208名火炬手参与火炬传递。

本文只介绍SoftGrid Client的使用，详细信息请查看软件主页：http://www.microsoft.com/china/systemcenter/softgrid/default.mspx。

1、在“管理工具”中找到"SoftGrid Client Management”，打开管理界面。

2、如下图示右击鼠标，弹出菜单，选择"New Server..."。

3、在如下窗口中输入SoftGrid Server的计算机名或IP地址。

SoftGrid Client配置完成。

二、客户端获取软件，操作如下图：

更新完之后，在Applications中将出现软件列表，在用户的桌面等处将出现快捷方式。

本文只介绍SoftGrid Sequncer的安装使用，详细信息请查看软件主页：http://www.microsoft.com/china/systemcenter/softgrid/default.mspx

SoftGrid Sequencer用来制作应用程序序列化包，通过使用SoftGrid Sequencer制作序列化包，然后在SoftGrid Server中导入，以便SoftGrid Desktop来调用。

一、软硬件环境要求

SoftGrid Senquecer对软、硬件要求不高，Intel Pentium III 850 MHz及以上CPU、 256M及以上内存即可。操作系统可以是WINDOWS 2000、XP、2003及以上版本。要求有两个NTFS格式的分区，默认情况下，SoftGrid Desktop运行程序序列化程序使用Q分区，所以，在SoftGrid Sequencer中最好将要序列化的程序安装在Q分区，也就是说，SoftGrid Senquecer所在的计算机要有一个驱动器名称为"Q"的分区。

二、制作序列化软件过程

1、程序打开后点击File－New Packge...，在弹出的对话框里点"YES”

2、在接着出现的向导对话框中，点击"Next"

3、在出现的安装包的描述信息对话框中输入相应的信息。需要注意的是最下面的Server URL的设置。

     Hostname中可以使用默认值：%SFT_SOFTGRIDSERVER%，如果使用此默认值，那么需要在客户端注册此变量，变量的值为SoftGrid Server的IP地址或计算机名。也可以在"Hosftname"中输入SoftGrid Server的IP地址，在"Path"中输入要发布到服务器的路径。此处的设置要与序列化包文件夹在SoftGrid Server中Content的位置对应，如下图示的设置，那么，需要将序列化包文件夹命名为autoruns，并将此文件夹拷到Content文件夹内。

4、单击下一步，出现选择程序要运行的客户端操作系统环境。选择好之后，单击下一步，选择完成。

5、在弹出的安装向导窗口中单击“下一步”，如下图，选择默认。单击“下一步”。

6、在弹出的窗口中单击“Begin Monitoring”，然后选择要安装的软件，开始安装软件，需要注意的是，安装软件时，要选择将软件安装到"Q”分区中。此时SoftGrid Senquencer将开始监视安装。

7、安装完软件，单击"Stop Monitoring"，将弹出如下窗口，让确认软件安装的位置。此处应该选择Q:\autoruns。

8、单击“下一步”，在下面的窗口中选择“DO NOTHING”。单击“完成”。

9、在如下窗口中，设置客户端可用的快捷方式，单击"Remove"按钮，删除多余的，只留下程序运行的“autoruns”快捷方式。

10、在如下窗口中，单击“Launch”，运行程序，继续抓取程序运行时所需的相关信息。

11、单击“下一步”完成。保存到autoruns文件夹中，然后将此文件夹拷贝到SoftGrid Server的Content文件夹下。

完成软件序列化过程。

本文只介绍SoftGrid Server的安装使用，详细信息请查看软件主页：http://www.microsoft.com/china/systemcenter/softgrid/default.mspx

一、安装软件的软、硬件条件：

本人测试使用的是SoftGrid Server 4.1.3.16。从安装界面来看，其包含一下组件：

各组件的软、硬件要求如下：

SoftGrid Virtual Application Server：

Intel Pentium III，1 GHz及 以上 CPU；512M及以上内存；WINDOWS 2003 SP1及以上或WINDOWS XP SP2及以上版本操作系统；MDAC 2.7及以上版本。

SoftGrid Management Console：

256M及以上内存；WINDOWS 2003 SP1及以上或WINDOWS XP SP2及以上版本操作系统；Microsoft Management Console 3.0及以上版本；.NET Framework 2.0及以上版本。

SoftGrid Management Web Service：

256M及以上内存；WINDOWS SERVER 2000及以上服务器版本操作系统；Internet Information Server 5.0及以上版本；.NET Framework 2.0及以上版本。

附件组件－MSDE或SQL SERVER：

SoftGrid Server 需要附加一个Data Store，可以使用软件里面提供的MSDE，也可以使用SQL SERVER。同时需要域环境（我想可能是客户端、服务器通信需要加密及认证要求吧）。

二、软件的安装过程

1、运行程序到组件选择界面：

选择要安装的组件，单击“Next”。

2、软件提醒需要安装启用“ASP.NET WEB 服务扩展”：

3、参照上面的提示，应先安装IIS、.NET 2，并在Internet信息管理器里面启用ASP.NET扩展

4、安装Data Store，可以选择软件自带的MSDE或SQL SERVER。我选择的是MSDE

5、给MSDE创建Administrator Password和User Password

6、提供访问目录服务的凭据

7、需要提供做为SoftGrid Server管理组的域用户组，因此此时需要在AD中创建SoftGrid Server管理员组，然后在下图中输入管理员组。此组用来登录域后管理SoftGrid Server。

8、需要提供做为SoftGrid Server普通用户组的域用户组，因此此时需要在AD中创建SoftGrid Server普通用户组，然后在下图中输入。

9、创建一个服务器组名

10、选择Content文件夹位置，此文件夹要设置为共享，用来放置序列化后的应用程序文件。

至此，SoftGrid Server安装完毕。

三、软件的配置使用

1、在 管理工具－SoftGrid Management Console打开软件。

2、在管理控制台左侧右击“Softgrid Systems”，在弹出的菜单中选择“Connect to SoftGrid System”，将弹出如下窗口，输入要登录到的服务器名及凭据。

3、连接上服务器后，在服务器名上右击，在弹出的菜单中选择“System Options”，在弹出窗口中设置Content Path。使用UNC或URL方式，我选择的是UNC。如下图：

四、添加序列化后的软件包

1、把用SoftGrid Sequncer序列化后的文件拷贝到content根目录或指定目录，具体应该是根目录还是指定目录，要根据使用SoftGrid Sequencer 序列化时选择，建议选择指定目录，便于查看和管理。如下图：

如果序列化时做如上配置，那么在SoftGrid Server中就要将autoruns序列化后的文件夹拷贝到content中。如果只在指定一个服务器中使用序列化包，可以将上图中Hostname改为IP地址或可以解析为IP地址的计算机名。如果使用默认的变量名，那么需要手工在客户端上注册变量名，变量的值为SoftGrid Server的IP地址或计算机名。如果在Hostname中指定的是具体的IP地址或计算机名，但又想在让此序列化程序在别的服务器上使用，可以手工更改OSD文件中的服务器IP地址为新服务器IP。

2、导入应用程序序列化数据到服务器。在服务器管理器里找到“Applications”，右键单击，在弹出菜单中选择“Import Applications...”，然后选择要导入的“SPRJ”文件。将弹出如下窗口：

在上述窗口中，要注意OSD路径、ICON路径是否正确，然后选择Server Group，单击“NEXT”。

3、下一个窗口是设置程序的快捷方式存放位置

4、下一个窗口是注册文件类型，以便可以双击打开文件。

5、下一个窗口是设置可以使用此程序的组。

至此，SoftGrid Server导入一个序列化后的文件过程结束。

当ISA的内部网络为多网段时，需要在ISA的内部网络添加所有网段的IP范围；需要在ISA的主机上手工添加到各网段的静态路由。原因说明如下：

当内部网络与外部网络的“网络规则”为“路由”时：
从内部网络到外部网络的数据能顺利出去。但是，返回数据可能不能正确传回，因为返回到达ISA的数据包的目标地址可能是内部别的和ISA不在一个网段的地址，此时ISA不知道怎样来转发此数据包。因此，需要给ISA明确指出，数据包需转发到内部交换机，也就是需要在ISA上添加静态路由：

route add 172.10.10.0 mask 255.255.255.0 内部交换机的IP

这样返回的数据才可到达内部网络。

当内部网络与外部网络的“网络规则”为“NAT”时：
从内部网络到外部网络的数据能顺利到达，返回的数据，目标地址将是ISA的外网卡IP。

由于是NAT，在ISA中将有一张NAT表，数据到达ISA时，ISA要查看NAT表，以便确定数据要送达内部的哪个IP。

经过查看NAT表，确定数据是返回给非ISA网络所在的网段的，此时ISA将不知怎样转发此数据。所以此时仍要添加静态路由：

route add 172.10.10.0 mask 255.255.255.0 内部交换机的IP

因此，不管是哪种情况，均需要在ISA上手工添加静态路由才可跨网段。

实际应用环境的网络拓扑如下图：

模拟实验中，简化为如下图（让路由器R担当客户端）：

虚拟实验环境搭建：

    ISA SERVER－－由虚拟机VM_ISA（WINDOWS SERVER 2003 R2 + ISA Server 2006）实现；

    三层交换机－－由虚拟机VM_3S_R（WINDOWS XP SP2 + Dynamips + CISCO 3640 IOS）实现；

    路由器－－在虚拟机VM_3S_R中，通过Dynamips模拟器加载CISCO 2600 IOS实现；

    ISA SERVER和三层交换机的连接：通过Dynamips桥接到VM_3S_R的一个网卡，进而和VM_ISA内网卡连接；

    路由器和三层交换机的连接：通过Dynamips直接连接。

具体配置：

   虚拟机VM_ISA中：

       ISA的“内部网络”范围为：

      192.168.0.0－192.168.0.255 ＋ 192.168.1.0－192.168.1.255 ＋ 192.168.2.0－192.168.2.255

      VM_ISA虚拟机中的路由信息为：

其中，红框内的两条路由为手工添加，添加方法为

route add 192.168.1.0  mask  255.255.255.0  192.168.0.1

route add 192.168.2.0  mask  255.255.255.0  192.168.0.1

  虚拟机VM_3S_R中：

      路由器配置：

          R(config)# int f0/0

         R(config-if)# ip add 192.168.1.11 255.255.255.0

         R(config-if)#exit

         R(config)# ip route 0.0.0.0 0.0.0.0 192.168.1.1

    三层交换机配置：

        interface FastEthernet0/0
        switchport access vlan 2

        interface Vlan1
        ip address 192.168.0.1 255.255.255.0
        !
        interface Vlan2
        ip address 192.168.1.1 255.255.255.0
        !
        interface Vlan3
        ip address 192.168.2.1 255.255.255.0
        !
        ip route 0.0.0.0 0.0.0.0 192.168.0.53
        ip route 192.168.2.0 255.255.255.0 192.168.2.1
        ip route 192.168.2.0 255.255.255.0 192.168.1.2

实验成功。

ISA Server 2004 does not listen for Web proxy requests after you enable a network adaptor or remove an IP address

ISA日志信息可以存放到"MSDE”、"SQL SERVER"、"文本文件"中，但是，日志中客户端IP是以"bigint"数据格式存放的，很不方面我们来查看客户端IP。在.NET中可以使用以下方法将bigint格式的IP转换为点分十进制格式IP。代码如下：

private string numbertoipstr(Int64 number)
    {
        //IP十进制最大值和最小值
        if ((number > 4294967295) || (number < 16777217))
        {
            return "Inviable Data." ;
        }
        string ipstr=null ;
        System.Collections.ArrayList al = new System.Collections.ArrayList();
        Int64 remainder;
        //十进制转换为二进制，存入数组
        while(number>0)
        {
            number = Math.DivRem(number, 2, out remainder);
            al.Add(remainder);
        }
        //不够32位的高位补零
        if (al.Count < 32)
        {
            int c = al.Count;
            for (int n = 0; n < 32 - c; n++)
            {
                al.Add(0);
            }
        }
        //转换为点分十进制形式
        for (int n = 0; n < 4; n++)
        {
            Int64 ipnum=0 ;
            int m = 7;
            for (int i = al.Count -1; i >(al.Count-9); i--)
            {
                ipnum+=(Convert.ToInt64(al[i])) * (Convert.ToInt64(Math.Pow(2, m)));
                m--;               
            }
            al.RemoveRange(al.Count-8,8);
            ipstr+=ipnum.ToString() + ".";
        }
        return ipstr.Substring(0,ipstr.Length-1);
    }

'断开"所有"或者"指定IP地址"的当前会话：

'*************************************************************************************
' Script Name: ISA_Manage_Sessions.vbs
'     Version: 1.0
'      Author: Jason Fossen (www.ISAscripts.org)
'Last Updated: 16.Aug.2005
'     Purpose目标: Some functions for viewing and disconnecting Web Proxy, Firewall and
'              VPN sessions to ISA Server 2004 and later.  You can disconnect
'              sessions by IP address, username or process name (or all sessions).
'       Notes注意: You should download the free ISA Server SDK from Microsoft's web site
'              to understand the objects and collections referenced below: 你需要下载微软的开发资料,然后弄懂资料上的内容.
'              http://www.microsoft.com/isaserver/downloads/
'       Legal合法性: Public Domain.  Modify and redistribute freely.  No rights reserved.
'              SCRIPT PROVIDED "AS IS" WITHOUT WARRANTIES担保 OR GUARANTEES保证 OF ANY KIND.
'              USE AT YOUR OWN RISK风险.  Test on non-production servers first.
'*************************************************************************************
'修改者 刘旭靖 20080612
'**************************************************************************************
Option Explicit

'断开"所有"或者"指定IP地址"的当前会话
' sIPaddress is the IP address of the client, all of whose sessions will
' be disconnected.  Pass in "all" as the argument to disconnect all sessions.
' Function returns True if no (apparent) problems, False otherwise.
Function DisconnectSessionByIP(sIPaddress)
    On Error Resume Next
    Const iBufferSize32bitLong = 200000   'Used with ExecuteQuery(), increase if output truncated.
    Dim oFPC, oFilterExpressions, cFirewallSessionsMonitor, cWebProxySessionsMonitor, oEntry, sLine
    sIPaddress = LCase(Trim(sIPaddress))
   
    Set oFPC = CreateObject("FPC.Root")
    Set oFilterExpressions = CreateObject("FPC.FPCFilterExpressions") '?
   
    If sIPaddress <> "all" Then
        oFilterExpressions.FilterType = 1 '0=None, 1=Sessions, 2=LogViewer
        oFilterExpressions.AddIPAddressFilter 1, 1, sIPaddress 'HRESULT AddIPAddressFilter
        '( FpcFilterCriteria Criteria,  FpcFilterConditionCondition,
        'BSTR Value,IFPCFilterExpression**ppNewFilterExpression);
    End If
   
    'gets an FPCSessionsMonitor collection that represents the session monitor for the Microsoft Firewall service sessions
    Set cFirewallSessionsMonitor = oFPC.GetContainingArray.SessionsMonitors.SessionsMonitorFirewall
    'The ExecuteQuery method starts a new query using the specified filters on all servers in the
    cFirewallSessionsMonitor.ExecuteQuery oFilterExpressions, iBufferSize32bitLong

    Set cWebProxySessionsMonitor = oFPC.GetContainingArray.SessionsMonitors.SessionsMonitorWebProxy
    cWebProxySessionsMonitor.ExecuteQuery oFilterExpressions, iBufferSize32bitLong

    If Err.Number <> 0 Then
        DisconnectSessionByIP = False
        Exit Function
    End If
   
    WScript.Sleep (1000) 'Not necessary, but these queries don't kick in instantaneously...

    For Each oEntry In cFirewallSessionsMonitor  '断开当前所有的NAT会话
        If oEntry.Event = 0 Then   'Event=0 simply means it was found and is live.
           '  fpcInternalNetworkfpcInternalNetworkThe predefined Internal network. = 4,仅断开源网络为内部的会话(sesstion)
            If ((oEntry.ClientIP = sIPaddress) Or (sIPaddress = "all")) And oEntry.SourceNetworkType = 4 Then
                'The DisconnectSession method disconnects the session with the specified session ID.
                cFirewallSessionsMonitor.DisconnectSession oEntry.ServerName, oEntry.SessionID
            End If
        End If
    Next
    cFirewallSessionsMonitor.EndQuery
   
    'And now do it for Web Proxy sessions...  断开当前所有的Web会话
       
    For Each oEntry In cWebProxySessionsMonitor
        If oEntry.Event = 0 Then   'Event=0 simply means it was found and is live.
            If ((oEntry.ClientIP = sIPaddress) Or (sIPaddress = "all")) And oEntry.SourceNetworkType = 4 Then
                cWebProxySessionsMonitor.DisconnectSession oEntry.ServerName, oEntry.SessionID
            End If
        End If
    Next
    cWebProxySessionsMonitor.EndQuery
   
    If Err.Number = 0 Then DisconnectSessionByIP = True Else DisconnectSessionByIP = False
End Function

'开始断开所有IP
If DisconnectSessionByIP("all") Then WScript.Echo "Good all IP disconnect!" Else WScript.Echo "IP disconnect problems."

重启防火墙服务：

Set root = CreateObject("FPC.Root")
Set server = root.GetContainingServer()
server.StopFirewallService()
server.StartFirewallService()
WScript.Echo "防火墙重新启动成功!"

导入QQ服务器IP地址的脚本：

'*************************************************************************************
' Script Name: ISA_Fill_Computer_Set_Computers.vbs
'     Version: 1.1
'      Author: Jason Fossen ( www.ISAscripts.org )
'Last Updated: 1.Sep.2005
'     Purpose: Create or update an ISA Server Computer Set with computer objects.
'              The current computer objects in the Set are all deleted before the
'              new ones from the file are added, but only computer objects are deleted.
'   Arguments: First arg is the name of Computer Set, in double-quotes if necessary.  
'              The second arg is the local full path or file name (if in
'              same folder as script) of a text file containing the computers and IP
'              addresses.  Each line should consist of a computer host name or FQDN
'              followed by a delimeter and then the IP address.  The delimeter can
'              be a space, comma, tab, semicolon, colon, forwardslash or backslash. 
'              Any comments must begin with a "#" or ";" or "<".  Blank lines are
'              ignored and will not cause problems.  Previously existing Computer
'              Sets will be updated, not completely deleted.
'       Notes: Works on both ISA Standard and Enterprise.
'       Legal: Public Domain.  Modify and redistribute freely.  No rights reserved.
'              SCRIPT PROVIDED "AS IS" WITHOUT WARRANTIES OR GUARANTEES OF ANY KIND.
'              USE AT YOUR OWN RISK.  Test on non-production servers first.
'*************************************************************************************

Option Explicit
'On Error Resume Next

ReDim aComputersArray(0)    'Array of computers to be added to the Computer Set.
Dim sComputerSetName        'Name of Computer Set to be created and/or updated.
Dim sComputersFilePath      'A local filesystem path to a file of computers.
Dim oFPC                    'See MakeIsaObjects()
Dim oIsaArray               'See MakeIsaObjects()

Dim oFileSystem :  Set oFileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Call CatchAnyErrorsAndQuit("Problems creating the FileSystemObject.")

'*************************************************************************************
' Main()
'*************************************************************************************
Call ProcessCommandLineArguments()
Call CreateComputerSet()
Call CreateComputers()

'*************************************************************************************
' Procedures
'*************************************************************************************

Sub ProcessCommandLineArguments()
    On Error Resume Next
    'Get command line arguments, show Help if necessary.
    If WScript.Arguments.Count <> 2 Then Call ShowHelpAndQuit()
    sComputerSetName = WScript.Arguments.Item(0)
    sComputersFilePath = WScript.Arguments.Item(1)
    Call CatchAnyErrorsAndQuit("Problems processing command line arguments.")
   
    'Create global ISA objects and puke on any errors.
    Set oFPC = CreateObject("FPC.Root")
    Set oIsaArray = oFPC.GetContainingArray
    Call CatchAnyErrorsAndQuit("Problems connecting to ISA Server array.")

    'Now parse the text file into an array or puke.
    If Not ParseInputFile(sComputersFilePath, aComputersArray) Then
        Err.Raise -1
        Call CatchAnyErrorsAndQuit("Problems reading the file: " & sComputersFilePath)
    End If
End Sub

Sub CreateComputerSet()
    On Error Resume Next
    Dim cComputerSets    'FPCComputerSets collection.
    Dim cComputerSet     'FPCComputerSet collection.

    Set cComputerSets = oIsaArray.RuleElements.ComputerSets
    Set cComputerSet = cComputerSets.Add(sComputerSetName)
   
    If Err.Number = 0 Then
        cComputerSet.Description = "Only add computers to this Computer Set with the script. Items added by hand will be removed the next time the script is run."
        cComputerSet.Save
    Else
        If Err.Number = -2147024713 Then Err.Clear  'The Computer Set already exists, so ignore error.
    End If
   
    Call CatchAnyErrorsAndQuit("Problems creating the Computer Set named " & sComputerSetName)
End Sub

Sub CreateComputers()
    On Error Resume Next
    Dim cComputers      'FPCURLSets collection.
    Dim oComputer       'FPCComputer object.
    Dim cComputerSet    'FPCComputerSet collection.
    Dim cComputerSets   'FPCComputerSets collection.
    Dim sLine, sDelimeter, sComputerName, sIPaddress
   
    Set cComputerSets = oIsaArray.RuleElements.ComputerSets
    Set cComputerSet = cComputerSets.Item(sComputerSetName)
    Set cComputers = cComputerSet.Computers
   
    'Delete any computer objects in the set.  Notice that only computer objects are deleted,
    'hence, you can fill the set with other types of objects with other scripts.
    For Each oComputer In cComputers
        cComputers.Remove(oComputer.Name)       
    Next
    Call CatchAnyErrorsAndQuit("Problems deleting current computers in " & sComputerSetName)

    'Parse the array of lines from text file and create new computer objects.
    For Each sLine In aComputersArray
        If ((Left(sLine, 1) <> "#") And (Left(sLine, 1) <> ";") And (Left(sLine, 1) <> "<")) Then
       
            'Assume delimeter is a single space character, but check for other common delimeters.
            sDelimeter = " " 
            If InStr(sLine, vbTab) <> 0 Then sDelimeter = vbTab
            If InStr(sLine, ",") <> 0   Then sDelimeter = ","
            If InStr(sLine, ";") <> 0   Then sDelimeter = ";"
            If InStr(sLine, ":") <> 0   Then sDelimeter = ":"
            If InStr(sLine, "/") <> 0   Then sDelimeter = "/"
            If InStr(sLine, "\") <> 0   Then sDelimeter = "\"
           
            'Extract the two elements of each line, given the delimeter.
            sComputerName  = Trim( Left(sLine, InStrRev(sLine, sDelimeter) - 1))
            sIPaddress = Trim(Right(sLine, Len(sLine) - InStrRev(sLine, sDelimeter)))

            Set oComputer = cComputers.Add(sComputerName, sIPaddress)

            If Err.Number = -1073478910 Then
                WScript.Echo sIPaddress & " is not a valid IP address (entered with " & sComputerName & ")."
                Err.Clear
            End If

            If Err.Number = -2147024713 Then
                WScript.Echo sComputerName & " already exists, not added again (entered with " & sIPaddress & ")."
                Err.Clear
            End If
           
        End If
    Next
   
    cComputers.Save

    Call CatchAnyErrorsAndQuit("Problems creating new computer objects in " & sComputerSetName)
End Sub

Sub CatchAnyErrorsAndQuit(sMessage)
    Dim oStdErr
    If Err.Number <> 0 Then
        Set oStdErr  = WScript.StdErr  'Write to standard error stream.
        oStdErr.WriteLine vbCrLf
        oStdErr.WriteLine ">>>>>> ERROR: " & sMessage
        oStdErr.WriteLine "Error Number: " & Err.Number
        oStdErr.WriteLine " Description: " & Err.Description
        oStdErr.WriteLine "Error Source: " & Err.Source 
        oStdErr.WriteLine " Script Name: " & WScript.ScriptName
        oStdErr.WriteLine vbCrLf
        WScript.Quit Err.Number
    End If
End Sub

Sub ShowHelpAndQuit()
    Dim sUsage : sUsage = vbCrLf
    sUsage = sUsage & vbCrLf
    sUsage = sUsage & "ISA_FILL_COMPUTER_SET_COMPUTERS.VBS setname file.txt [/?]" & vbCrLf
    sUsage = sUsage & vbCrLf
    sUsage = sUsage & "Purpose: Create or update a Computer Set in ISA Server with hostnames and" & vbCrLf
    sUsage = sUsage & "         IP addresses from a text file. Clears current computers in the" & vbCrLf
    sUsage = sUsage & "         Computer Set before the new ones are added." & vbCrLf
    sUsage = sUsage & vbCrLf
    sUsage = sUsage & "   Args: setname  -- Name of the Computer Set to be created or updated." & vbCrLf
    sUsage = sUsage & vbCrLf
    sUsage = sUsage & "         file.txt -- Text file of computernames or FQDNs along with their" & vbCrLf
    sUsage = sUsage & "                     IP addresses.  Each line must be a hostname, a" & vbCrLf
    sUsage = sUsage & "                     delimeter, then an IP address.  The delimeter can be" & vbCrLf
    sUsage = sUsage & "                     a space, comma, semicolon, colon, tab, backslash," & vbCrLf
    sUsage = sUsage & "                     or forwardslash. Comment lines must begin with ""#""," & vbCrLf
    sUsage = sUsage & "                     "";"" or ""<"".  Blank lines are ignored.  The hostname" & vbCrLf
    sUsage = sUsage & "                     can be a simple computername or a fully qualified" & vbCrLf
    sUsage = sUsage & "                     domain name." & vbCrLf
    sUsage = sUsage & vbCrLf
    sUsage = sUsage & "  Legal: Public domain. No rights reserved. SCRIPT PROVIDED ""AS IS"" WITH- " & vbCrLf
    sUsage = sUsage & "         OUT WARRANTIES OR GUARANTEES OF ANY KIND. USE AT YOUR OWN RISK." & vbCrLf
    sUsage = sUsage & "         ( www.ISAscripts.org )" & vbCrLf
    sUsage = sUsage & vbCrLf
    sUsage = sUsage & " " & vbCrLf
    sUsage = sUsage & vbCrLf
   
    WScript.Echo sUsage
    WScript.Quit
End Sub

'*********************************************************************************
' Script Name: Parse_Input_File.vbs
'     Version: 1.1
'      Author: Jason Fossen
'Last Updated: 29.Mar.2004
'     Purpose: Sorts lines of a text file into an array.
'       Usage: Function returns true if no problems, false otherwise.  Pass global
'              variable of an array into second argument of function; this will be
'              resized and populated with lines from text file.  Blank and empty
'              trailing lines from file, if any, are excluded from the array.  The
'              array global variable must be declared with "ReDim", not just "Dim".
'              The file can be passed in with full path or just the file name if
'              the file is in the same folder as the script.
'        Note: You must declare the global array variable with "ReDim" before
'              passing it into the function; make it of size one because it
'              will be ReDim-ed without preservation again anyway.
'       Legal: Public Domain.  Modify and redistribute freely.  No rights reserved.
'              Use at your own risk.  Do not run on networks for which you do not
'              have prior written permission to do so.  Script provided "AS IS".
'*********************************************************************************

Function ParseInputFile(ByVal sFile, ByRef aArray)
    On Error Resume Next
    Const ForReading = 1
    Const OpenUsingDefault = -2
    Dim sCurrentFolder, oFileSystem, oInputFile, i, iCurrentSize
    Dim iPreserveCounter, oFile, oTextStream, iLineCount, sLine

    'Expand environmental variables, if any.
    If InStr(sFile, "%") <> 0 Then
        If Not IsObject(oWshShell) Then Set oWshShell = WScript.CreateObject("WScript.Shell")
        sFile = oWshShell.ExpandEnvironmentStrings(sFile)
    End If

    'Assume input file is in current folder if a full path is not given.
    If InStr(sFile, "\") = 0 Then
        sCurrentFolder = WScript.ScriptFullName
        sCurrentFolder = Left(sCurrentFolder, InstrRev(sCurrentFolder, "\"))
        sFile = sCurrentFolder & sFile
    End If   

    'Verify that file exists and is readable, return false if not.
    If Not IsObject(oFileSystem) Then Set oFileSystem = WScript.CreateObject("Scripting.FileSystemObject")
    Set oFile = oFileSystem.GetFile(sFile)
    Set oTextStream = oFile.OpenAsTextStream(ForReading, OpenUsingDefault) 
    If Err.Number <> 0 Then
        'WScript.Echo "Problem opening " & sFile & " (" & Err.Description & ")"
        ParseInputFile = False
        Exit Function
    End If

    'Count the number of lines in file, not including an empty line at the very end (if present).
    iLineCount = 0
    Do While Not oTextStream.AtEndOfStream
        oTextStream.SkipLine
        iLineCount = iLineCount + 1
    Loop

    'ReDim the array to be equal to expected size of the input from file.
    If iLineCount <> 0 Then
        ReDim aArray(iLineCount - 1) 
        oTextStream.Close
        Set oTextStream = Nothing
    Else 'The input file was empty!
        ReDim aArray(0)
        'aArray(0) = ""    'Assign default here if desired.
        oTextStream.Close
        Set oTextStream = Nothing
        Set oFile = Nothing
        Set oFileSystem = Nothing
        If Err.Number = 0 Then
            ParseInputFile = True
        Else
            ParseInputFile = False
        End If
        Exit Function
    End If

    'Read each line of file into an element of the array, excluding blank lines.
    Set oTextStream = oFile.OpenAsTextStream(ForReading, OpenUsingDefault) 
    i = 0
    iPreserveCounter = 0
    Do While Not oTextStream.AtEndOfStream
        sLine = Trim(oTextStream.ReadLine)    'Note the trimming here.  
        If Len(sLine) <> 0 Then
            aArray(i) = sLine
            i = i + 1
        Else
            iPreserveCounter = iPreserveCounter + 1   'Keep track of blank lines.
        End If
    Loop
    oTextStream.Close
    Set oTextStream = Nothing
   
   
    'If there were blank lines in the file, trim the array of empty elements.
    If iPreserveCounter <> 0 Then
        iCurrentSize = UBound(aArray)
        ReDim Preserve aArray(iCurrentSize - iPreserveCounter)
    End If

    Set oFile = Nothing
    Set oFileSystem = Nothing
   
    If Err.Number = 0 Then
        ParseInputFile = True
    Else
        ParseInputFile = False
    End If
End Function

'END OF SCRIPT

************************************************************************

在“开始菜单”-“运行”输入
如：D:\Auto\ISA_Fill_Computer_Set_Computers.vbs "QQSeverAutoIn" "computer.txt"
“D:\Auto\”为脚本文件存放的位置
参数"QQSeverAutoIn"为要在ISA中新建的计算机集的名称；参数"computer.txt"里的是IP地址。