新进化论

道生一，一生二，二生三，三生万物。
  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 :: 管理 ::

2013年1月24日

脚本：列出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 岌岌可危 阅读(213) 评论(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 岌岌可危 阅读(214) 评论(0) 推荐(0)