列出本地计算机上所有可用的服务名称。
解决方案 »
- 求excel的宏基础教程
- 关于VB安装打包的方案
- 高手请进,日程提醒程序的设计
- timer控件的使用?
- 请问MSHFlexGrid中单元格内的文字能竖着排列吗?
- 请问如何把符合条件的查询结果进行汇总赋给变量。急!!!在线等
- 关于各位大哥帮帮忙
- VB中的ActiveX DLL有关问题
- qkaizhou(御赐金牌小密探!):我有一字符串"adasd阿三点121速度",里面有中文也有英文!我怎么判断一字符串有中文或英文!急!还没完!
- wbdx(碳离子) 我是loveyxy帮帮忙 给你20分
- 小问题
- 我用的是VB和Access开发的软件,如何将Access数据表导出到Excel中啊(需要用代码实现)~~~~~谢谢关注
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.OpenTextFile("c:\scripts\service_list.csv", _
ForAppending, True)
objLogFile.Write _
("System Name,Service Name,Service Type,Service State, Exit " _
& "Code,Process ID,Can Be Paused,Can Be Stopped,Caption," _
& "Description,Can Interact with Desktop,Display Name,Error " _
& "Control, Executable Path Name,Service Started," _
& "Start Mode,Account Name ")
objLogFile.Writeline
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service")
For Each objService in colListOfServices
objLogFile.Write(objService.SystemName) & ","
objLogFile.Write(objService.Name) & ","
objLogFile.Write(objService.ServiceType) & ","
objLogFile.Write(objService.State) & ","
objLogFile.Write(objService.ExitCode) & ","
objLogFile.Write(objService.ProcessID) & ","
objLogFile.Write(objService.AcceptPause) & ","
objLogFile.Write(objService.AcceptStop) & ","
objLogFile.Write(objService.Caption) & ","
objLogFile.Write(objService.Description) & ","
objLogFile.Write(objService.DesktopInteract) & ","
objLogFile.Write(objService.DisplayName) & ","
objLogFile.Write(objService.ErrorControl) & ","
objLogFile.Write(objService.PathName) & ","
objLogFile.Write(objService.Started) & ","
objLogFile.Write(objService.StartMode) & ","
objLogFile.Write(objService.StartName) & ","
objLogFile.writeline
Next
objLogFile.Close到这里看看,应该有你想要的
http://www.microsoft.com/china/technet/community/scriptcenter/services/default.mspx