VBS怎么實現(xiàn)查詢服務(wù)的制造商

這篇文章主要講解了“VBS怎么實現(xiàn)查詢服務(wù)的制造商”，文中的講解內(nèi)容簡單清晰，易于學(xué)習(xí)與理解，下面請大家跟著小編的思路慢慢深入，一起來研究和學(xué)習(xí)“VBS怎么實現(xiàn)查詢服務(wù)的制造商”吧！

一個網(wǎng)友提問：

select * from win32_service 這個能查服務(wù)名稱、狀態(tài)……

但我想查這個服務(wù)的制造商，如微軟、農(nóng)業(yè)銀行，還是未知的？？這個屬性是什么，謝謝……

我發(fā)現(xiàn)msconfig中可以看見的，但無法提取

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

根據(jù)服務(wù)名獲取到關(guān)聯(lián)的主程序，再從主程序獲取制造商

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 '非中文系統(tǒng)自行修改
    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 & "服務(wù)："& 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怎么實現(xiàn)查詢服務(wù)的制造商”的內(nèi)容了，經(jīng)過本文的學(xué)習(xí)后，相信大家對VBS怎么實現(xiàn)查詢服務(wù)的制造商這一問題有了更深刻的體會，具體使用情況還需要大家實踐驗證。這里是億速云，小編將為大家推送更多相關(guān)知識點的文章，歡迎關(guān)注！