中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

本文給大家分享的是一個使用VBS實現查詢服務的制造商的代碼，思路非常的巧妙，方法很簡單，這里推薦給大家。

一個網友提問：

select * from win32_service 這個能查服務名稱、狀態……

但我想查這個服務的制造商，如微軟、農業銀行，還是未知的？？這個屬性是什么，謝謝……

我發現msconfig中可以看見的，但無法提取

下面給出解答，一種間接方法：

根據服務名獲取到關聯的主程序，再從主程序獲取制造商

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

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

是不是非常不錯的解法，小伙伴們可以學習下。