VBS版Windows系统服务及说明

youxi01

本文来源网络.

strComputer ="."
Set objWMIService =GetObject("winmgmts:\\"& strComputer &"\root\CIMV2") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_Service instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "AcceptPause: "& objItem.AcceptPause
    Wscript.Echo "AcceptStop: "& objItem.AcceptStop
    Wscript.Echo "Caption: "& objItem.Caption
    Wscript.Echo "CheckPoint: "& objItem.CheckPoint
    Wscript.Echo "CreationClassName: "& objItem.CreationClassName
    Wscript.Echo "Description: "& objItem.Description
    Wscript.Echo "DesktopInteract: "& objItem.DesktopInteract
    Wscript.Echo "DisplayName: "& objItem.DisplayName
    Wscript.Echo "ErrorControl: "& objItem.ErrorControl
    Wscript.Echo "ExitCode: "& objItem.ExitCode
    Wscript.Echo "InstallDate: "& objItem.InstallDate
    Wscript.Echo "Name: "& objItem.Name
    Wscript.Echo "PathName: "& objItem.PathName
    Wscript.Echo "ProcessId: "& objItem.ProcessId
    Wscript.Echo "ServiceSpecificExitCode: "& objItem.ServiceSpecificExitCode
    Wscript.Echo "ServiceType: "& objItem.ServiceType
    Wscript.Echo "Started: "& objItem.Started
    Wscript.Echo "StartMode: "& objItem.StartMode
    Wscript.Echo "StartName: "& objItem.StartName
    Wscript.Echo "State: "& objItem.State
    Wscript.Echo "Status: "& objItem.Status
    Wscript.Echo "SystemCreationClassName: "& objItem.SystemCreationClassName
    Wscript.Echo "SystemName: "& objItem.SystemName
    Wscript.Echo "TagId: "& objItem.TagId
    Wscript.Echo "WaitHint: "& objItem.WaitHint
Next
复制代码

youxi01

晕,不是死循环(如果要提前结束,可以结束wscript.exe进程)

它会把所有的进程、进程说明都用弹出窗口的形式显示出来的，当然会弹出很多次拉

随风

死循环啊！ 老大，
害我狂点了上百下鼠标，最后还是结束进程。
仍不明白是怎么回事。