VBS打造自己的重启删除工具

Posted on

VBS打造自己的重启删除工具

安装文件(REG),Install.reg,双击导入即可完成安装 1

Windows Registry Editor Version 5.00

2

3

[HKEY_CLASSES_ROOT\/*\shell\重启删除\

command

]

4

@=

"WScript.exe //nologo c:\windows\system32\rerase.vbs \"%1\""

rerase.vbs,需拷贝至c:\windows\system32\rerase.vbs ,当然也可是其它目录,但是要修改Insatll.reg 01

On Error Resume Next

02

TargetFile = Wscript.Arguments(0) 03

04

Set ObjRUN = Wscript.createObject(

"Wscript.shell"

) 05

Set ObjFSO = CreateObject(

"Scripting.FileSystemObject"

)

06

07

If ObjFSO.FileExists(TargetFile) Then

08

09

Set GetFile = ObjFSO.GetFile(TargetFile)

10

Set InfFile = ObjFSO.CreateTextFile(objFSO.GetParentFolderName(GetFile) &

"\INFFILE.INF"

) 11

12

InfFile.WriteLine(

"[Version]"

) 13

InfFile.WriteLine(

"Signature = "

"$Chicago$"

""

)

14

InfFile.WriteLine(

"[DestinationDirs]"

) 15

InfFile.WriteLine(

"DefaultDestDir = 01"

)

16

InfFile.WriteLine(

"[DefaultInstall]"

) 17

InfFile.WriteLine(

"DelFiles = DELETELIST"

)

18

InfFile.WriteLine(

"[DELETELIST]"

) 19

InfFile.WriteLine(

"INFFILE.INF"

)

20

InfFile.WriteLine(ObjFSO.GetFileName(GetFile) &

",,,1"

) 21

InfFile.Close

22

23

ObjRUN.Run

"RUNDLL32.EXE SETUPAPI.DLL,InstallHinfSection DefaultInstall 128 "

& objFSO.GetParentFolderName(GetFile) &

".\INFFILE.INF"

, 0, TRUE

24

25

WScript.Sleep 200

26

27

If ObjFSO.FileExists(TargetFile) Then

28

Return = Msgbox(

"必须重启才能完成删除操作,你想现在重启吗?"

, vbYesNo + vbInformation + vbDefaultButton2,

"提示"

) 29

IF Return = vbYes Then

30

ObjRUN.Run

"shutdown -r -t 0" 31

End If

32

End If 33

34

Else 35

MsgBox

"文件未找到!"

, 16,

"错误"

36

End If

来源: [http://my.oschina.net/veterans/blog/27839](http://my.oschina.net/veterans/blog/27839)

我的项目经历及分析:为什么一个小项目要花掉8个人月?

Posted on

我的项目经历及分析:为什么一个小项目要花掉8个人月?

这是我亲身经历的项目,并且是项目负责人,该项目只有10个左右核心页面,七人,一个半月。 而几年前,我做过的两个项目,技术难度比这大,功能模块比这多,却只需要一个人,一个月。 问题在哪里?大家一起来分析一下。 先描述一下这两个成功的项目。 项目一 南开BT联盟(简称:BT) 项目背景南开BT联盟是我03年底在校内部署的一个BT网站,采用一个免费的BT服务器(PHP)。半年后,也就是04年秋,发展成南开校园内几乎最热门的下载站点,我爱南开BBS的BT版成为年度十大热门板块(网站运营是另外一帮哥们,我只负责幕后技术)。因为校内注册用户超过5000,并且种子数超过1万,于是出现了定制化开发的需求。但是,该BT服务器是免费闭源,PHP是加密过的,没法改。于是,05年年初,也就是寒假那一个月,我没有回老家,从零开始,一个月写了一个Java版的BT服务器,开学后,就替换了原来的,运行一个月后,反应良好,晚上高峰期,上千人同时下载,五年前的截图。 功能模块 内核:BT客户端和Server端通信(编码解码器),torrent种子文件解析,种子状态更新、下载流量统计。 附加约8模块:种子列表、详细,站内信,简易BBS,种子上传、管理,用户管理,用户注册登录,排行榜、求种、系统管理等。 开发技术:JavaBean+Servlet+JSP(eclipse3.0+Tomcat5.0) 代码量:50多个JSP,约三万行Java代码 项目二 报表展现(简称:Report) 项目背景该网站约有两百个复杂报表,现在,因为整个大系统统一用Java开发,所以主要是技术升级。项目经理估算是10个人月,所以把活丢给我就没管了,慢慢开发吧。我分析了两天后,告诉他,我可以两周出一个版本,他大吃一惊,很有信心,就不过问我了。 我根据需求,自己开发了一套适合报表的框架(定制化的MVC框架)。另外,将sql统一到几个配置文件,以便将报表查询和程序分开(DBA和开发人员分开)。说实话,真正有难度的是sql,反正我看不懂。 开发了一个月后(两人,一个月),交工,客户很满意(50万合同额)。后来有近两个月的维护期,基本一周花半天就可以了,反正那段时间我特闲,专心啃技术。 实际情况是,我两周开发框架,两周开发业务。 项目三和四 当前的项目(简称:新B2C)? 项目背景该项目(老B2C)04年,一个程序员一个美工,一个来月就上线了。其后几年,每年几十万的毛利。但项目几年没维护,页面陈旧,内容过时,当然,产品和价格总在更新。 于是准备改版,核心页面总共10个左右,如首页、频道首页,产品详细页,预订表单。 技术5人,业务2人(负责网站内容)。技术人员中,一个(我)负责需求和原型,一个负责后台(另外一个辅助),一个负责前台,一个设计师。其中有技术高手,比如我,却搁浅搞业务,一个电子科大的技术牛人,一个原来开发老版本的开发人员。 花了一个半月,约8人月。 技术:前台JSP+JavaBean+WebWork,后台用Flex+Hibernate+Spring。前台让开发人员选用自己的熟练地技术,后台技术也是熟练的,基本上进度阻力并不在技术。

改版后,Google统计数据和实际订单量表明,并不成功。

问题在哪里? 下面是我的分析和比较,但我认为项目的决定性因素总是那些方面,只不过哪一方面突出些。 1、原型开发(需求分析) BT:基本没有,因为业务非常简单,主要是老版本技术升级。 Report:基本没有 老B2C:有,主要是抄袭,业务简单。另外,两个人,一拍即合。 新B2C:开发完原型后,给业务人员确认,修改,反反复复。老板当时不看,过几天会突然提出修改命令(小企业,老板没那么多事)。 最后确定下来的,是第三个版本,已经花掉了约两周。 2、内容建设 BT:不需要内容,只做平台。 Report:不需要内容,主要是处理数据 老B2C:内容抄袭,美工、开发人员一起抄。 新B2C:内容重新整理,只要出结果就行。 不过,出哪些内容,也就是一级大纲我出,包括原型上要求的内容,我都要截图出规范,配合很死板。小团队协作,通过文档规范来解决,已经是下下策了,但没办法,已经没法推进了。 3、界面开发 前三个项目,界面都很简单,直接Dreamweaver开发。 新B2C,一位高级设计师,新来的。因为原型中已经大体确定了布局,另外,可能我对界面干涉较多,所以他来后极不适应,因为以前做网站都是自己一人说了算,经常是到下班六点,就开始做自己的个人网站,不把工作放在心上。后来差不多做完,就离开公司了。 界面开发了约一个月,其中首页开发了半个月,后半个月都是赶,所以质量很差。因为界面设计都是先PS做效果图,后切片做HTML,工作量大。 我的问题:交互设计师(我)和界面设计师的职责不明确,导致设计师失去热情。后来我想到解决方案:1、设计前先给设计师仔细讲解业务,为什么我这么布局;2、界面风格的评审留给业务员。 但我本身对交互设计和界面设计有较好的基础,我更接近客户,还是业务员?我接触业务已经一两年了。 4、决策 前三个项目,基本上是个人决策,执行力很高 新B2C:因为涉及到产品经理(我)、业务员、老板三方,谁都想争取决策,闹得非常僵,项目几乎无法展开。第三个版本,修改建议主要是听业务员的,但大家已经彼此失去合作热情,导致后期的原型确认和内容建设进度很慢,三方都在耗。 5、协作 前三个项目,基本都是单双人,很顺畅。 新B2C项目,涉及7人,技术团队内部协作对进度影响可能只有10%(除了当时那位设计师,都服我),但部门间协作非常困难,因为没有利益制衡。虽然没有剑拔弩张,但已经是很机械、被动的合作。 6、激情/热情(最根本的问题) BT:强烈的学习动机,一定的责任和荣誉感。那时候我每天写代码到晚上3点,睡一觉后接着写。 Report:强烈的技术爱好,领导的信任和支持,没有进度压力。那时候我路上思考,吃饭时思考,睡在床上也思考。 新B2C:毫无激情(一周有效时间三天都不到),下班和周末就彻底不想思考。 我:有责任,但无权和利。权:无法推进业务员的内容建设, 利:作为合伙人,只拿基本生活费2k(五年前月薪的1/3)。 我的期望:老板把网站业务这块抓起来,另外花点时间在用户体验上,而不是想起来就催进度,提需求,而从来不关心导致进度迟缓的原因,并且一起办法。 管理的本质是利益的制衡,对于我们三方,我、老板和业务员均无制衡。 事后我想到的解决方案 以信任和激励为核心(激励的本质是满足人性的需求:比如我最看重士气和团队凝聚力,做事本身的快乐,而不是利润)。 一切问题,都是人的问题。 如果说业务人员不配合、缺乏动力,是我引起的只有30%,因为我们是物理上分开的两个环境,两种文化。 如何激励?

  • 老板解决内容质量和内容推进,不规定进度,而是期望进度(没有进度压力,往往开发得更快,进度我心里有分寸)。
  • 原型决策权:在我,我会征询大家的建议,协商一致后,业务部必须达成。
  • 界面风格决策权:在设计师(因为我吸取了以前的教训,新设计师热情很高,我的建议基本上就是她的决策),其它任何人只有建议权。
  • 薪水:在我强烈要求下,已经涨了1k,基本够业余时间消遣。 上面的措施,主要是解决我(负责人)和设计师的激励。如果说管理的本质原则是:责权利的平衡,那么有权和利做支撑,我的责任感也会来,我也想把事情做好。 不过,我的期望似乎太理想了,去改变老板太难。 如果能够解决团队协作和士气问题,我认为可以达成如下目标:整体进度提前50%,约15工作日(三周),也就是将内耗省下来。界面设计速度、代码开发速度可能快不了,但原型开发速度、内容建设速度可能提高60%。 因为公司有好几个子网站要改版,目前这个子网站,我把负责人的位子交出来了,离开成都来大连(和老婆团聚一段时间),我只专注于原型和界面评审,也就是用户看到的那部分。因为,我确实不想这样内耗,或许那位做老网站的员工和业务员、老板处容易些(企业基因啊,我是外来基因)。 大家看到这样的案例后,对团队协作和单人作战,以及项目开发过程(需求、原型、开发、内容)与进度的关系,有什么新的看法?如果这样一个项目,你是负责人,你会怎么做?

管理经验,很难直接从书本中学来

Posted on

管理经验,很难直接从书本中学来

首页 资讯 精华 论坛 问答 博客 专栏 群组 更多 ▼

招聘 搜索

您还未登录 ! 登录 注册

zwchen的博客

管理经验,很难直接从书本中学来 **

博客分类:

了解我的人都知道,我是一个喜欢阅读的人,我每个月的书籍开销都是几百。 也许是尝到了读书的甜头,比如说技术阅读吧。 若干年前,我自学TCP/IP协议,认真啃过《TCP/IP Illustrated》后,做一些ftp、telnet、http的小demo,特别是后来成功运营的BT服务器,都感觉特别简单。 再后来看了若干本Java书籍、设计模式书籍后,开发代码非常快,并且通读Jetty、HSQLDB、Struts等源码,几乎没有障碍。 这一切经历,让我觉得,看书太有效了。 工作几年后,出来和人合伙做公司,我是IT负责人,做项目头一年,从商业角度来看,败得一塌糊涂。 要知道,我没有出来前,技术水平和项目开发能力都是被团队认可的,并且在那几年,看了很多过程管理和项目管理的书,尤其是深入研究过RUP。 忽然感觉读书没用,书籍欺骗了我。 经历了那次惨败后,我才明白,管理是一种实践,就像游泳一样,无论你看了多少游泳教程。 任何管理方法都有其适用场景,也就是前提,一开始就照搬书,往往会过分关注书中的方法,而忽视了场景,就如在沙漠上种蘑菇,无论怎样施肥都没用。而你不看书,你可能会特别关注场景或环境变化,自己摸索方法,这样成功概率更大。 所以,如果你以前没有项目管理、过程管理的意识和经历,切忌看大量相关书籍,或者干脆不看书都好。没有实践经验前,理论几乎没法指导你,只会约束你。 管理类书籍前期只需略读,在有一定项目经验和项目管理意识后,才开始深入阅读,结合项目学以致用。 过程管理和项目管理一样,也是一种实践活动。任何高效的流程,都是有其适用条件,如项目本身及人员素质,并且随着时空的变化,导致上一个项目中用得好好的流程,无法应用到下一个项目,比如同样的模块,采取外包和内包,开发流程就不同。 刚才我说到的RUP,即使非常熟悉它,而不知道怎么根据项目环境来裁剪,使用效果也是大打折扣,或者说非常危险,比如RUP工件中并没有强调原型和界面视图,这对特别重视界面的网站项目,指导就很受限。 刚毕业时,我把开公司想的很简单,市面上不是有很多公司制度表格的书籍吗,照抄就行了。后来我才明白,根本没法用,就是一个组织结构,不同行业、同一行业不同业务、不同规模或是公司不同阶段,都不一样。 技术上升到一个阶段/层次,需要提升的往往不是技术: 第一阶段/层次:纯技术 往往能够通过书本和demo练习,可以学会并且熟练。这阶段可以速成很多纯技术高手 第二阶段/层次:技术+业务 这时候就要理解业务,评估功能点的轻重和缓急,然后把技术镶嵌进去 第三阶段/层次:技术+业务+商业 比如资金、进度和人员约束 以上三种阶段/层次,只是告诉我们,上升到一个新的阶段后,你需要考虑更多的东西,同时受制约也越多,纯技术几乎没法让项目成功。 当然,上面没有考虑到管理,这个横向(横切)维度,如果也加上,项目需要权衡的因素就更多。 没有一本书,告诉你在这些受制约环境下,你该如何应用你的技术,因为每一种场景都不同。 也许,当你看了大量书籍后,并且忘了书中的一招一式,还能够应用自如时,你才真正达到了能力的最高境界:随心所欲(有知识无意识)。 先写到这里吧,想到其它的在回帖中补充。 分享到:

[个人管理]一位技术人员成长的烦恼及我的 ... | 我看韩寒的《独唱团》

评论

68 楼 zwchen 2010-10-09

tuti 写道

zwchen 写道

tuti 写道

xiaoyuwei 写道

管理 和 领导 是不一样的,项目经理是管理角色,不是领导角色,没有领导的权力. 请教 管理角色 和 领导角色 怎么个不一样 管理,关注的是事,如何高效达成目标、流程/过程管理等。 领导,关注的是人,如何激励人,建立团队凝聚力等。 事是人做的事,人是做事的人。 这种人与事分割的角色区分有意思吗? 这种东西,都是企业管理最基本的概念,先肯两本书,然后再来批驳,理解就会深多了。 结构化思考是一种方法,就像做web开发,做到后来,就发现可以分个MVC。当然,最简单的应用,是没有这个必要的。 IT业的人,做管理可能最开始都是基于感觉,后来就基于经验,最后是基于方法。而基于方法的管理,是需要一定理论知识积累的,MBA知识在管理达到一定阶段后,还是有点用。 领导和管理的区别,可以看看这个。 像领导行为,有些人喜欢独裁式,有些人喜欢民主式,无所谓对错和优劣,决定于领导者的性格和项目、团队环境。 67 楼 tuti 2010-10-09

zwchen 写道

tuti 写道

xiaoyuwei 写道

管理 和 领导 是不一样的,项目经理是管理角色,不是领导角色,没有领导的权力. 请教 管理角色 和 领导角色 怎么个不一样 管理,关注的是事,如何高效达成目标、流程/过程管理等。 领导,关注的是人,如何激励人,建立团队凝聚力等。 事是人做的事,人是做事的人。 这种人与事分割的角色区分有意思吗?

66 楼 xiaoyuwei 2010-10-08

项目经理需要定期向领导汇报项目进展情况,以供领导做出决策。 规范点的公司往往会设置项目监督委员会这个机构,我觉得它的职责就是充当领导角色来监督项目经理的。 我认为一个好的项目经理给其他项目组成员的印象应该像个“打杂的”,而不是一个"独裁者"

65 楼 zwchen 2010-10-08

tuti 写道

xiaoyuwei 写道

管理 和 领导 是不一样的,项目经理是管理角色,不是领导角色,没有领导的权力. 请教 管理角色 和 领导角色 怎么个不一样 管理,关注的是事,如何高效达成目标、流程/过程管理等。 领导,关注的是人,如何激励人,建立团队凝聚力等。

64 楼 xiaoyuwei 2010-10-08

tuti 写道

xiaoyuwei 写道

管理 和 领导 是不一样的,项目经理是管理角色,不是领导角色,没有领导的权力. 请教 管理角色 和 领导角色 怎么个不一样 领导角色是做决策的,一般不会参与到具体的项目管理中,项目经理是帮领导者具体执行其决策的人员,是听从领导者安排的,但目前中国有很多项目经理 同时兼任了 领导角色 和 管理角色。这其实是增大了项目的风险,是不符合规范的,决策权和管理权应该是分开的。 63 楼 todo158 2010-10-08

tuti 写道

xiaoyuwei 写道

管理 和 领导 是不一样的,项目经理是管理角色,不是领导角色,没有领导的权力. 请教 管理角色 和 领导角色 怎么个不一样 我的理解是: 好比一个体制,管理是在这个体制下的如何做才能按章办事,领导是这个体制准备做什么

62 楼 tuti 2010-10-08

xiaoyuwei 写道

管理 和 领导 是不一样的,项目经理是管理角色,不是领导角色,没有领导的权力. 请教 管理角色 和 领导角色 怎么个不一样 61 楼 xiaoyuwei 2010-10-08

项目经理对一个人的综合素质要求是非常高的,做人与处世就是最基本的一条。 从技术转型的项目经理,做人与处世往往不是很强,并会受以前的做技术工作习惯的影响。所以做好角色转换也是非常重要的。 另外管理 和 领导 是不一样的,项目经理是管理角色,不是领导角色,没有领导的权力. 确定好自己的职责与责任范围也是非常重要的

60 楼 todo158 2010-10-08

管理经验确实是实践出来的,这是有深刻体会 我个人觉得想从无到有可以这么做: 1、找一个体系,例如CMM、ISO或其它 2、找一个螃蟹,这看你怎么忽悠 3、严格执行、定时总结 4、OK,经验花啦啦就进来了 5、运气不好,跳槽,你已经是一个专家 6、运气好,你就是公司的管理大师 59 楼 xiaoyuwei 2010-10-08

项目管理是活的,不是靠几本书就能搞得定得。 我认为好的IT项目管理需要有以下几方面得特征 1)实施结果导向,杜绝项目成员各种各样的失败理由 2)实施敏捷开发,快速响应需求问题 3)营造公正,公开奖罚制度。 4)营造开放的沟通环境,保证信息的及时共享 5)与最终用户搞好关系,获取用户的支持 项目经理的责任最大,他就像一名船长,要负责随时监控这个船的航行状况.发现一切 不正常情况,并采取各种方式来解决,这个就需要经验了,所以项目管理非常注重经验

58 楼 hua_jing 2010-10-07

小弟也想做管理,我是个新手 读了楼主的帖子我觉得自己有两种方式来提高自己: 1、在实践中结合书箱来提高自己,以实践为主 2、运用书箱中的知识然后去实践,侧重书箱中的方法 57 楼 wjapollo 2010-09-30

cleanerje 写道

哈哈,LZ是深在山中不知全貌罢了。 我给你我的经验。 其实想LZ这种的人占了绝大多数,而且都是在中国。 国外的项目管理是越管越轻松的。所以他们能够总结出经验,能够写出项目管理方面的书来。从这一点来看,书是没错的。 但问题是,我们所在的是天朝。天朝是不允许我们走自由资本主义市场化经济的。 也就是说,大家在用西方管理模式管理中国团队的时候,会有“中国特色”的各种问题,没有哪一本书是讲:“中国特色的项目管理”。 其实,“中国特色的项目管理”也是可以总结并归纳出理论经验的。不过这些东西已经超出了软件的范畴了,不太适合在这里讲。 亮点啊,确实是这样的。技术是全世界都通用的。技术原理不会因为你在什么国家而不一样。但是管理的话真的是要看环境。在天朝照搬老外的那一套注定是不会成功。第一步要的做的就是将它本地化。。。

56 楼 livexu 2010-08-24

“因地制宜,随着环境的不同而做出适当变化” 似乎谁都知道, 但真正想到的 不断提听自己做到的 很少, 我们似乎每天都重复着 这种怪圈: “什么都知道,但很难做到” 楼主再一次给我们提了个醒!以自己切身的经历体会 很好的分享! 55 楼 damoqiongqiu 2010-08-17

flashing 写道

楼主做了那么多年技术,才做了一年管理,这里面经验差别很大啊。 其实我觉得管理和技术思维不太一样,技术是确定的,管理是不确定的,不是yes/no可以解决所有问题的。 干什么都需要多做一些成功案例才能出头的。 从个人感情讲,喜欢技术出身的管理者,因为他们身上的气质与所谓的“纯管理”大多是完全不同的

54 楼 damoqiongqiu 2010-08-17

9981661 写道

simlee 写道

读万卷书不如行万里路,行万里路不如阅人无数。 这个貌似说的是小姐。。。 这个是某传销组织头目的名言。 53 楼 lib 2010-08-10

zwchen 写道

抛出异常的爱 写道

mathfox 写道

请问你是怎么阅读的啊?
一个消费几百元,书籍怎么可能都看完呢。
现在的书籍动辄500多页,我一般要看两三个月的。

看一眼之后发现不值得看的书很多.

lobbychmd 写道

wwccss 写道

一个月几百块的书,差不多得有100本左右,平均每天3本。大概这就是原因所在吧。


你算术真好。。。


我最近两年,一个月买书的开销,一般在150到400之间。最近一个月买了7本,大概200多。

这是一个买书习惯,而不完全是读书习惯。有些书我会完整看,有些书我会看两三章,有些书我会扫读,有些书我会买下了过几个月再读。

当然,每个月看几本,确实是个习惯。

当了一年的救火队员,天天都要加班,根本就没有时间去总结,更不要说有时间看书了!哎!

52 楼 zwchen 2010-08-09

flashing 写道

nice,其实还是激发个人的兴趣;管理和当老师有很多相似之处。 btw:下次来大连联系我,虽然最近病了,不过我争取快点好:) 身体是一切的基础,正因为它基础得像大楼里的电缆、水管,很容易让人忽视,一定要珍惜啊。 领导,首先应该是位合格的教练,我希望自己在职业生涯规划、过高品质生活、自我管理方面给团队以指导,这也要求我要渊博的知识。 另外,我试着将营销的理念引入到管理:理解客户需求,让客户满意。团队成员就是我的客户。 还有,就是Web2.0的开放、共享、去中心化思想。 挖掘各成员的潜能,提高团队协作效率,是我现在孜孜以求的目标。 RCFans 写道

楼主现在还在成都吗,我也是成都的,有机会的话,想当面交流。 我现在定居成都,成都有个IT茶馆和UCDChina书友会,你要去时不妨给我打个招呼,我有时懒得动。 51 楼 RCFans 2010-08-09

楼主现在还在成都吗,我也是成都的,有机会的话,想当面交流。

50 楼 flashing 2010-08-09

zwchen 写道

flashing 写道

楼主做了那么多年技术,才做了一年管理,这里面经验差别很大啊。 其实我觉得管理和技术思维不太一样,技术是确定的,管理是不确定的,不是yes/no可以解决所有问题的。 干什么都需要多做一些成功案例才能出头的。 应该说整整两年。 第一年管理很不顺,项目也做砸了。 今年四五月,我在大连休了两个月假,认真反省了近几年的工作(我的博客都有记录)。我的态度改变了,方法改进了,现在,整个团队基本上是自动自发。 改进主要有几点: 决策权 在大方向前提下,尽量把决策权交给他们;目的:让他们喜欢自己的工作,并且愿意随时改进。 沟通和协调 以前是我在中心,任何问题先反馈到我;现在是以任务负责人为中心,其他人都是可调遣资源。这样,团队内气氛也活跃了。 目标设定 以前是我一个人说了算,现在会和团队商量,共同制定目标和计划。 nice,其实还是激发个人的兴趣;管理和当老师有很多相似之处。 btw:下次来大连联系我,虽然最近病了,不过我争取快点好:) 49 楼 zwchen 2010-08-09

flashing 写道

楼主做了那么多年技术,才做了一年管理,这里面经验差别很大啊。 其实我觉得管理和技术思维不太一样,技术是确定的,管理是不确定的,不是yes/no可以解决所有问题的。 干什么都需要多做一些成功案例才能出头的。 应该说整整两年。 第一年管理很不顺,项目也做砸了。 今年四五月,我在大连休了两个月假,认真反省了近几年的工作(我的博客都有记录)。我的态度改变了,方法改进了,现在,整个团队基本上是自动自发。 改进主要有几点: 决策权 在大方向前提下,尽量把决策权交给他们;目的:让他们喜欢自己的工作,并且愿意随时改进。 沟通和协调 以前是我在中心,任何问题先反馈到我;现在是以任务负责人为中心,其他人都是可调遣资源。这样,团队内气氛也活跃了。 目标设定 以前是我一个人说了算,现在会和团队商量,共同制定目标和计划。

« 上一页 1 2 3 4 下一页 »

发表评论

您还没有登录,请您登录后再发表评论

zwchen的博客

zwchen

  • 浏览: 411251 次
  • 性别: Icon_minigender_1
  • 来自: 成都
  • 最近访客 更多访客>>

dylinshi126的博客

dylinshi126

kglgmlldd的博客

kglgmlldd frfgzzq的博客

frfgzzq

sungang_1120的博客

sungang_1120

文章分类

存档分类

最新评论

批处理计算雯波那契数列

Posted on

批处理计算雯波那契数列

批处理计算雯波那契数列

01

@

echo

off

02

rem 批处理计算雯波那契数列 03

setlocal enabledelayedexpansion

04

set

a=1 05

set

b=1

06

echo

任意键查看下一项. 07

echo

第1项为:!a!

08

echo

第2项为:!b! 09

:start

10

set

/a tn+=1 11

set

/a n_=!tn!+2

12

for

/l %%a

in

(1,1,1000)

do

( 13

set

ka=!a:~%%a,1!

14

if

not defined ka ( 15

set

la=%%a

16

goto :start_a 17

)

18

) 19

:start_a

20

for

/l %%a

in

(1,1,1000)

do

( 21

set

kb=!b:~%%a,1!

22

if

not defined kb ( 23

set

lb=%%a

24

goto :start_b 25

)

26

) 27

:start_b

28

if

!la! == !lb! ( 29

set

l=!la!

30

set

/a m=!a:~0,1!+!b:~0,1! 31

if

!m! geq 9 (

32

set

n=1 33

)

else

(

34

set

n=0 35

)

36

)

else

( 37

set

n=0

38

) 39

if

!la! gtr !lb! (

40

set

/a l=!la!+!n! 41

)

else

(

42

set

/a l=!lb!+!n! 43

)

44

for

/l %%a

in

(1,1,!l!)

do

( 45

if

!la! geq %%a (

46

set

x=!a:~-%%a,1! 47

)

else

(

48

set

x=0 49

)

50

if

!lb! geq %%a ( 51

set

y=!b:~-%%a,1!

52

)

else

( 53

set

y=0

54

) 55

if

defined o (

56

set

/a z=!x!+!y!+!o! 57

set

o=

58

)

else

( 59

set

/a z=!x!+!y!

60

) 61

if

!z! gtr 9

set

o=1

62

set

/p =!z:~-1,1!>%temp%\temp.txt 63

set

/p all=<%temp%\temp.txt

64

65

)

66

for

/l %%a

in

(1,1,!l!)

do

set

/p =!all:~-%%a,1!>%temp%\temp_.txt 67

set

b=!a!

68

set

/p a=<%temp%\temp_.txt 69

del %temp%\temp/*.txt /q

70

if

"!a:~0,1!"

==

"0"

set

a=!a:~1! 71

echo

第!n_!项为:!a!

72

pause>nul 73

goto :start

来源: [http://my.oschina.net/veterans/blog/27841](http://my.oschina.net/veterans/blog/27841)

使用WMI修改文件文件夹的NTFS权限

Posted on

使用WMI修改文件文件夹的NTFS权限

使用WMI修改文件文件夹的NTFS权限

使用WMI修改文件文件夹的NTFS权限

01

strUser =

"guests"

02

strPath =

"D:\abc.txt" 03

RetVal = AddPermission(strUser,strPath,

"R"

,True)

04

05

'-------------------------------------------------------------------------

06

07

'用于给文件和文件夹添加一条权限设置.返回值: 0-成功,1-账户不存在,2-路径不存在

08

'strUser表示用户名或组名 09

'strPath表示文件夹路径或文件路径

10

'strAccess表示允许权限设置的字符串,字符串中带有相应字母表示允许相应权限: R-读,C-读写,F-完全控制 11

'blInherit表示是否继承父目录权限.True为继承,False为不继承

12

13

Function AddPermission(strUser,strPath,strAccess,blInherit)

14

Set objWMIService = GetObject(

"winmgmts:\.\root\Cimv2"

) 15

Set fso = CreateObject(

"Scripting.FileSystemObject"

)

16

'得到Win32_SID并判断用户/组/内置账户是否存在 17

Set colUsers = objWMIService.ExecQuery(

"SELECT /* FROM Win32_Account WHERE Name='"

&strUser&

"'"

)

18

If colUsers.count<>0 Then 19

For Each objUser In colUsers

20

strSID = objUser.SID 21

Next

22

Else 23

AddPermission = 1

24

Exit Function 25

End If

26

Set objSID = objWMIService.Get(

"Win32_SID.SID='"

&strSID&

"'"

) 27

'判断文件/文件夹是否存在

28

pathType =

"" 29

If fso.fileExists(strPath) Then pathType =

"FILE"

30

If fso.folderExists(strPath) Then pathType =

"FOLDER" 31

If pathType =

""

Then

32

AddPermission = 2 33

Exit Function

34

End If 35

'设置Trustee

36

Set objTrustee = objWMIService.Get(

"Win32_Trustee"

).SpawnInstance_() 37

objTrustee.Domain = objSID.ReferencedDomainName

38

objTrustee.Name = objSID.AccountName 39

objTrustee.SID = objSID.BinaryRepresentation

40

objTrustee.SidLength = objSID.SidLength 41

objTrustee.SIDString = objSID.Sid

42

'设置ACE 43

Set objNewACE = objWMIService.Get(

"Win32_ACE"

).SpawnInstance_()

44

objNewACE.Trustee = objTrustee 45

objNewACE.AceType = 0

46

If InStr(UCase(strAccess),

"R"

) > 0 Then objNewACE.AccessMask = 1179817 47

If InStr(UCase(strAccess),

"C"

) > 0 Then objNewACE.AccessMask = 1245631

48

If InStr(UCase(strAccess),

"F"

) > 0 Then objNewACE.AccessMask = 2032127 49

If pathType =

"FILE"

And blInherit = True Then objNewACE.AceFlags = 16

50

If pathType =

"FILE"

And blInherit = False Then objNewACE.AceFlags = 0 51

If pathType =

"FOLDER"

And blInherit = True Then objNewACE.AceFlags = 19

52

If pathType =

"FOLDER"

And blInherit = False Then objNewACE.AceFlags = 3 53

'设置SD

54

Set objFileSecSetting = objWMIService.Get(

"Win32_LogicalFileSecuritySetting.Path='"

&strPath&

"'"

) 55

Call objFileSecSetting.GetSecurityDescriptor(objSD)

56

blSE_DACL_AUTO_INHERITED = True 57

If (objSD.ControlFlags And &H400) = 0 Then

58

blSE_DACL_AUTO_INHERITED = False 59

objSD.ControlFlags = (objSD.ControlFlags Or &H400) '自动继承位置位,如果是刚创建的目录或文件该位是不置位的,需要置位

60

End If 61

If blInherit = True Then

62

objSD.ControlFlags = (objSD.ControlFlags And &HEFFF) '阻止继承复位 63

Else

64

objSD.ControlFlags = (objSD.ControlFlags Or &H1400) '阻止继承位置位,自动继承位置位 65

End If

66

objOldDacl = objSD.Dacl 67

ReDim objNewDacl(0)

68

Set objNewDacl(0) = objNewACE 69

If IsArray(objOldDacl) Then '权限为空时objOldDacl不是集合不可遍历

70

For Each objACE In objOldDacl 71

If (blSE_DACL_AUTO_INHERITED=False And blInherit=True) Or ((objACE.AceFlags And 16)>0 And (blInherit=True) Or (LCase(objACE.Trustee.Name)=LCase(strUser))) Then

72

'Do nothing 73

'当自动继承位置位为0时即使时继承的权限也会显示为非继承,这时所有权限都不设置

74

'当自动继承位置位为0时,在继承父目录权限的情况下不设置继承的权限.账户和需要加权限的账户一样时不设置权限 75

Else

76

Ubd = UBound(objNewDacl) 77

ReDim preserve objNewDacl(Ubd+1)

78

Set objNewDacl(Ubd+1) = objACE 79

End If

80

Next 81

End If

82

objSD.Dacl = objNewDacl 83

'提交设置修改

84

Call objFileSecSetting.SetSecurityDescriptor(objSD) 85

AddPermission = 0

86

Set fso = Nothing 87

End Function

来源: [http://my.oschina.net/veterans/blog/27840](http://my.oschina.net/veterans/blog/27840)