VBS脚本显示用户和组及服务

for each obj in getObject("WinNT://.")
    err.clear
    wscript.echo "----------------------------------------------------------------"
    wscript.echo obj.Name
   wscript.echo"-----------------------------------------------------------------"
    wscript.echo obj.DisplayName
    wscript.echo"-----------------------------------------------------------------------"
    wscript.echo obj.path
   next
wscript.quit

我想改变一下输出颜色，结果不会。以上脚本改动一下

根据服务名描述找到exe的执行路径

cscript D:\vbs\server.vbs "Cisco Systems, Inc. VPN Service"
Microsoft (R) Windows Script Host Version 5.6
版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。

servername:CVPND
displayname:Cisco Systems, Inc. VPN Service
path:"C:\Program Files\Cisco Systems\VPN Client\cvpnd.exe"

代码：
on error resume next
dim obj,display
set server=getObject("WinNT://.")
for each obj in server

If Wscript.Arguments.Count > 0 Then
display = Wscript.Arguments(0)
else
wscript.echo "servername:"&obj.Name&chr(10)&"displayname:"&obj.DisplayName&chr(10)&"path:"&obj.path
end if

if obj.DisplayName=display then
wscript.echo "servername:"&obj.Name&chr(10)&"displayname:"&obj.DisplayName&chr(10)&"path:"&obj.path
end if

next
set server=nothing

======================================

C:\>sc GetKeyName "Windows Time"
[SC] GetServiceKeyName SUCCESS
Name = W32Time

C:\>sc qc W32Time
[SC] QueryServiceConfig SUCCESS

SERVICE_NAME: W32Time
        TYPE               : 20 WIN32_SHARE_PROCESS
        START_TYPE         : 2   AUTO_START
        ERROR_CONTROL      : 1   NORMAL
        BINARY_PATH_NAME   : C:\WINDOWS\system32\svchost.exe -k LocalService
        LOAD_ORDER_GROUP   :
        TAG                : 0
        DISPLAY_NAME       : Windows Time
        DEPENDENCIES       :
        SERVICE_START_NAME : NT AUTHORITY\LocalService