一个网友提问：

select * from win32_service 这个能查服务名称、状态……

但我想查这个服务的制造商，如微软、农业银行，还是未知的？？这个属性是什么，谢谢……

我发现msconfig中可以看见的，但无法提取

下面给出解答，一种间接方法：

根据服务名获取到关联的主程序，再从主程序获取制造商

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\.rootcimv2")
Set Services = objWMIService.ExecQuery("Select * from Win32_Service")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(0)
i = 0
Do
  If objFolder.GetDetailsOf("", i) = "公司" Then '非中文系统自行修改
    Exit Do
  Else
    i = i+1
  End If
Loop

For Each objService in Services
  path = GetPath(objService.PathName)
  IF fso.GetExtensionName(path) = "" Then path = path & ".exe"
  Set objFolder = objShell.NameSpace(fso.GetParentFolderName(path))
  Set objItem = objFolder.ParseName(fso.GetFileName(path))
  comp = objFolder.GetDetailsOf(objItem, i)
  If comp = "" Then comp = "未知"
  info = info & "服务："& objService.DisplayName &" 制造商："& comp & vbCrLF
Next
fso.CreateTextFile("info.txt", true).WriteLine info
MsgBox "完成"

Function GetPath(strng)
  Dim re
  Set re = New RegExp
  re.Pattern = "^""?(.+\[^\s""]+).*"
  GetPath = re.Replace(strng,"$1")
  Set regEx = Nothing
End Function

是不是非常不错的解法，小伙伴们可以学习下。

VBS中解决带空格路径的三种方法
方法一：Setwshell=CreateObject("WScript.Shell")wshell.Run"""C:ProgramFiles360360se360se.exe""",5,TrueSetwshell=Nothing方法二：temp="C:ProgramFiles360360se3360se.exe"path=Chr(34)&temp&C

VBScript获取CPU使用率的方法
VBScript通过WMI获取CPU使用率的代码度娘中，搜索关键词WMICPU使用率，得到的全是《python使用WMI监视系统－CPU使用率》，不用看，肯定又是采集的。Python固

VBS实现将当前时间转换成UTC时间
例如下面的代码在当前时间返回：1368299689OptionExplicitDimdtmDateIfWScript.Arguments.Named.Count0ThenSyntaxWithWScript.Arguments.Unnamed'CheckcommandlineargumentsIf.Count=0ThendtmDate=No