新进化论

道生一，一生二，二生三，三生万物。
  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
  1021 随笔 :: 34 文章 :: 76 评论 :: 85万 阅读

01 2013 档案

脚本：列出windows上已安装的应用程序（使用中发现部分没有vender的应用程序列不出来）
摘要：Set wshShell = Wscript.CreateObject( "Wscript.Shell" )strServer=wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%")Set objFSO = CreateObject("Scripting.FileSystemObject")Set objTextFile = objFSO.CreateTextFile("software_list_" & strServer & ".txt 阅读全文
posted @ 2013-01-24 14:56 岌岌可危 阅读(208) 评论(0) 推荐(0) 编辑

脚本：列出windows服务和状态信息
摘要：strComputer = "." Set wshShell = Wscript.CreateObject( "Wscript.Shell" )strServer=wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%")Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.CreateTextFile("service_list_" & strserver & 阅读全文
posted @ 2013-01-24 14:45 岌岌可危 阅读(209) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示