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

    本文給大家分享的是一個(gè)使用VBS實(shí)現(xiàn)查詢服務(wù)的制造商的代碼，思路非常的巧妙，方法很簡(jiǎn)單，這里推薦給大家。
    一個(gè)網(wǎng)友提問(wèn)：
    select * from win32_service 這個(gè)能查服務(wù)名稱(chēng)、狀態(tài)……
    但我想查這個(gè)服務(wù)的制造商，如微軟、農(nóng)業(yè)銀行，還是未知的？？這個(gè)屬性是什么，謝謝……
    我發(fā)現(xiàn)msconfig中可以看見(jiàn)的，但無(wú)法提取
    下面給出解答，一種間接方法：
    根據(jù)服務(wù)名獲取到關(guān)聯(lián)的主程序，再?gòu)闹鞒绦颢@取制造商
    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
    是不是非常不錯(cuò)的解法，小伙伴們可以學(xué)習(xí)下。